论坛 › 已解决问题区 › 处女作品QQ2009测试版自动安装

收割者 发表于 2008-10-13 15:02:49

处女作品QQ2009测试版自动安装

今天上午研究了一下AU3，感觉很有意思，就按着帮助文档写了个小脚本，发上来给给位指点一下。

TrayTip("系统提醒您:请勿动键盘和鼠标!","正在安装QQ2009到你的D盘,请稍候...",10,1)
$var = DriveStatus( "D:" )
If $var ="Ready" Then
   run("qq2009")
       WinWaitActive("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
       WinSetState("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009", @SW_HIDE)
   ControlClick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","")
       ControlEnable ("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","")
       ControlClick("腾讯QQ2009 安装向导","","")
       WinWaitActive("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置")
       ControlClick("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置","")
       WinWaitActive("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项")
       ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","")
       ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","")
       WinWaitActive("腾讯QQ2009 安装向导","请选择安装路径")
       ControlClick("腾讯QQ2009 安装向导","请选择安装路径","")
       ControlSetText("腾讯QQ2009 安装向导","请选择安装路径","","D:Program FilesTencentQQ2009")
       ControlClick("腾讯QQ2009 安装向导","请选择安装路径","")
       ControlClick("腾讯QQ2009 安装向导","请选择安装路径","")
       WinWaitActive("腾讯QQ2009 安装向导","安装完成")
       ControlClick("腾讯QQ2009 安装向导","安装完成","")
       ControlClick("腾讯QQ2009 安装向导","安装完成","")
       ControlClick("腾讯QQ2009 安装向导","安装完成","")
       ControlClick("腾讯QQ2009 安装向导","安装完成","")
Else
       MsgBox(0,"错误提示：","在你的系统中没发现D：盘，软件无法自动安装！")
       Exit       
EndIf

xy77109 发表于 2008-11-23 15:07:47

不成功哦！~

查看完整版本: 处女作品QQ2009测试版自动安装