本人新手，刚刚做了第一个自动安装~请专家帮我简化一下代码，给我参考一下^_^

numjun

TrayTip( "正在安装","Thunder5.9.4.969.exe,请稍后......",10,1)
Sleep(1000)
run(".\Thunder5.9.4.969.exe")
winwaitactive("迅雷5: 用户使用协议","")
winactive("迅雷5: 用户使用协议","")
ControlFocus("classname=#32770","","Button2")
sleep("2000")
Send("!Y")
WinActivate("迅雷5: 安装选项","")
WinActive("迅雷5: 安装选项","")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
Send("{SPACE}")
sleep("500")
Send("{DOWN}")
sleep("1000")
Send("{ENTER}")
sleep("1000")
Send("{Tab}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{SPACE}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{ENTER}")
sleep("500")
Send("{ENTER}")
winwaitactive("迅雷5: 安装完成","")
winactive("迅雷5: 安装完成","")
Send("{Tab}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{SPACE}")
sleep("500")
Send("{Tab}")
Send("{SPACE}")
sleep("500")
Send("{Tab}")
sleep("500")
Send("{ENTER}")

lindafu

顶一下

lodas

恩不错，继续努力！

水木子

建议在自动安装脚本中尽量少用"Sleep"，毕竟每台电脑的运行速度是不一样的，用多了会影响兼容性的哦！
“WinActivate”类似的函数可以避免上述问题。

caoautoit

同一批机子的话，问题不大

netsdy

$variable0="迅雷5: 用户使用协议"
$variable1="欢迎使用 迅雷5 安装向导"
$variable2="迅雷5: 安装选项"
$variable3="选择附加任务"
$variable4="安装：迅雷5"
$variable5="百度工具栏  轻松搜索，拦截广告！"
$variable6="迅雷5: 安装完成"
$variable7="迅雷5安装程序已完成安装"
$variable8=""
$variable9=""

$directory="D:\Program Files\Thunder Network\Thunder"

Run("soft\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}{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

bloodspirit

恩，还是不错的

jwei_ox

恩，还是不错的

辉聚网络

是的,时间尽量少用,用"WinActivate”比较好