金山毒霸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 看过了 回帖吧
页:
[1]