ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 做了一个自动签收文件的AU3程序

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

原创 Linux操作系统 作者:perltest 时间:2012-09-17 19:04:05 0 删除 编辑

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

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

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

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

附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博客 ” ,链接:https://blog.itpub.net/21129783/viewspace-743837/ ,如需转载,请注明出处,否则将追究法律责任。

下一篇: 试用GAE空间
请登录后发表评论 登录
全部评论

注册时间:2016-08-15

  • 博文量
    111
  • 访问量
    132269