yamhpsxn 发表于 2010-1-12 18:29:09

金山毒霸2009 自动安装脚本

Dim $T="金山毒霸 2009 安装程序"
run("金山毒霸2009.exe")
TrayTip("注意:在此期间切勿动键盘和鼠标!","正在安装软件,请稍候...",10,1)
WinWaitActive($T,"欢迎使用金山毒霸 2009")
Send("!n")
WinWaitActive($T,"许可协议")
Send("!I")
WinWaitActive($T)
Send("!n")
WinWaitActive($T)
Send("!n")
WinWaitActive($T,"确认安装组件")
Send("!I")
WinWaitActive($T,"文件复制完成")
Send("!n")
WinWaitActive("金山毒霸配置向导","欢迎使用金山毒霸配置向导")
Send("!n")
Send("{Enter}")
WinWaitActive("金山毒霸配置向导","安装成功")
Send("!n")
WinWaitActive("金山毒霸在线升级程序","欢迎使用金山毒霸在线升级程序!")
Send("!n")
if WinWaitActive("错误") then
Send("{Enter}")
endif
exit

xiaowu 发表于 2010-2-28 21:38:24

看过了 回帖吧
页: [1]
查看完整版本: 金山毒霸2009 自动安装脚本