论坛 › 『 提问交流 』 › 本人新手，刚刚做了第一个自动安装~请专家帮我简化一下代码，给我参考一下^_^

numjun 发表于 2009-7-30 09:59:02

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

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 发表于 2009-7-31 01:38:52

本帖最后由 lindafu 于 2009-8-2 10:28 编辑

顶一下:face (33):

lodas 发表于 2009-7-31 15:58:55

恩不错，继续努力！

水木子 发表于 2009-7-31 23:05:56

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

caoautoit 发表于 2009-8-1 16:15:13

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

netsdy 发表于 2009-8-11 18:33:27

$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 发表于 2009-8-12 11:44:44

恩，还是不错的

jwei_ox 发表于 2009-9-11 09:29:05

恩，还是不错的

辉聚网络 发表于 2009-9-11 09:34:09

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

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