|
|
本帖最后由 lidenpan 于 2009-7-7 23:29 编辑
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\ico\Thunder.ICO
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
$variable0="迅雷5: 用户使用协议"
$variable1="欢迎使用 迅雷5 安装向导"
$variable2="迅雷5: 安装选项"
$variable3="选择附加任务"
$variable4="安装：迅雷5"
$variable5="百度工具栏 轻松搜索，拦截广告！"
$variable6="迅雷5: 安装完成"
$variable7="迅雷5安装程序已完成安装"
$variable8=""
$variable9=""
$directory="D:\Program Files\Thunder Network\Thunder"
Run("Thunder.exe")
TrayTip("正在安装","讯雷软件,请稍等...",5,1)
WinWaitActive($variable0,$variable1)
Send("!y")
WinWaitActive($variable2,$variable3)
ControlSetText($variable2,$variable3,"Edit1",$directory)
sleep(500)
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{DOWN}{DOWN}{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}{DOWN}{SPACE}")
Send("!n")
WinWaitActive($variable4,$variable5)
ControlClick($variable4,$variable5,"Button4")
ControlClick($variable4,$variable5,"Button2")
WinWaitActive($variable6,$variable7)
ControlClick($variable6,$variable7,"Button5")
ControlClick($variable6,$variable7,"Button6")
ControlClick($variable6,$variable7,"Button2")
sleep(2000)
if winactive("文件夹存在") Then
send("!y")
EndIf
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-5-11 15:32:01
.gif)