lidenpan 发表于 2009-5-11 15:32:01

Thunder5.9.3.951自动安装源码

本帖最后由 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

wuyu3200 发表于 2009-5-12 02:41:28

沙发！顶哦！

politank 发表于 2009-5-12 11:33:44

不错 哦，收藏了

wuyu3200 发表于 2009-5-13 10:44:10

学习！学习！

sdlw999 发表于 2009-5-18 09:10:37

顶！学习了。

q958com 发表于 2009-5-19 17:00:27

dddddddddddddddd

q958com 发表于 2009-5-19 17:00:43

我要啊。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

q958com 发表于 2009-5-19 17:01:06

可没钱啊                              :face (22):

q958com 发表于 2009-5-19 19:23:07

这有问题啊，设首页了

wyzjw 发表于 2009-5-20 13:51:59

相样，，好东西

zhj0751 发表于 2009-5-20 16:27:31

学习学习。。。。。

zhj0751 发表于 2009-5-20 16:27:34

学习学习。。。。。

zhj0751 发表于 2009-5-20 16:27:37

学习学习。。。。。

zhj0751 发表于 2009-5-20 16:27:39

学习学习。。。。。

zhj0751 发表于 2009-5-20 16:27:42

学习学习。。。。。
页: [1] 2 3 4
查看完整版本: Thunder5.9.3.951自动安装源码