lzqw 发表于 2011-6-7 09:50:47

金山卫士3.0全自动安装

Run("金山卫士3.0.exe")
WinWaitActive(" 金山卫士 3.0.0.1496 正式版 安装")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装","下一步(&N) >","Button2")
WinWaitActive(" 金山卫士 3.0.0.1496 正式版 安装 ")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","我接受(&I)","Button2")
WinWaitActive(" 金山卫士 3.0.0.1496 正式版 安装 ")
ControlSetText(" 金山卫士 3.0.0.1496 正式版 安装 ","目标文件夹","Edit1","D:\Program Files\KSafe")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","安装(&I)","Button2")
WinWaitActive("金山卫士 安装")
ControlClick("金山卫士 安装","全新傲游3双核浏览器","Button3")
ControlClick("金山卫士 安装","PPTV网络电视","Button4")
ControlClick("金山卫士 安装","设置首页为金山网址导航","Button5")
ControlClick("金山卫士 安装","下一步(&N) >","Button1")
Sleep(3000)
WinWaitActive(" 金山卫士 3.0.0.1496 正式版 安装 ")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","运行 金山卫士3.0.0.1496 正式版(&R)","Button4")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","在桌面上显示软件管理快捷方式","Button6")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","加入云安全计划，自动上报可疑文件到云安全服务","Button5")
ControlClick(" 金山卫士 3.0.0.1496 正式版 安装 ","完成(&F)","Button2")

dyd 发表于 2011-6-7 11:20:26

占个沙发！！

sogo 发表于 2011-7-1 14:13:02

谢谢了! 学习有希望

1733413480 发表于 2012-4-18 20:10:31

可以借鉴一下，做个最新版的金山。

xlj310 发表于 2012-5-7 14:22:47

有点意思，学习了

522744793 发表于 2012-6-3 18:17:33

看不懂，自己不会，学习学习了
页: [1]
查看完整版本: 金山卫士3.0全自动安装