做了一个自动签收文件的AU3程序

大学生医保的事，劳动局来人调试了一下收款科室的电脑和网络，安装了医保软件。但现在并不能用，要等医保软件商再来处理下一步的事情。

学校校办为了提高公文处理效率，在校办网站上实现公文签收，就是公文发布以后，各单位应该及时登录校办网站签收公文。长期不及时签收公文的单位会受到点名批评。

因为平时很难经常注意校办公文，所以想写一个自动签收的程序。开始想用Perl的LWP模块，但很快想到这个问题用Autoit来解决更简单。

用Autoit果然非常简单地解决了自动签收的问题，目前设置上午８点到晚上８点之间，每１小时自动签收一次校办公文。

附AU3代码，以便以后遇到类似的问题作参考：

#include
; 自动签收校办公文的程序

;　以下是登录校办的代码 具体网址省略
$oIE = _IECreate ("url");
_IEPropertySet ($OIE, "left",0)
_IEPropertySet ($OIE, "top",0)
_IEPropertySet ($OIE, "height",@DesktopHeight-30)
_IEPropertySet ($OIE, "width",@DesktopWidth)
sleep(1000)

$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs
if $oInput.id = "BtnLogin" then
       _IEAction ($oInput, "click")
EndIf
Next

sleep(1000)
_IEQuit ($oIE)

 

; 以下是签收的代码
$oIE = _IECreate ("http://office.qfnu.edu.cn/User/Content/Signin.aspx");
_IEPropertySet ($OIE, "left",0)
_IEPropertySet ($OIE, "top",0)
_IEPropertySet ($OIE, "height",@DesktopHeight-30)
_IEPropertySet ($OIE, "width",@DesktopWidth)

sleep(1000)

$oForm. = _IEFormGetObjByName ($oIE, "MainForm")

$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs
if $oInput.id = "ChkAll" then
       _IEAction ($oInput, "click")
EndIf
Next

$oQuery = _IEFormElementGetObjByName ($oForm, "EBtnSignIn")
;_IEAction($oQuery ,"click")    # 不要用这句直接点击，会出现程序暂停。须用下面代码点击！

sleep(2000)
_IELoadWait($oIE)
$hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction ($oQuery, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")

WinWait("来自网页的消息", "确定要进行此批量操作？")    ; 有的电脑需要填"Microsoft ...."，根据情况修改
ControlClick("来自网页的消息", "确定要进行此批量操作？", "[CLASS:Button; Instance:1;]")

sleep(5000)
_IEQuit ($oIE)

;MsgBox(1,'','感谢您签收！    确定退出')

Exit

 

 

 

 

 

 

 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21129783/viewspace-743837/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21129783/viewspace-743837/