qq2011beat2安装到D盘，随意乱写，欢迎指教！
本帖最后由 龍行天下 于 2011-5-31 10:13 编辑#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Res_Comment=制作：龍行天下
#AutoIt3Wrapper_Res_Description=腾讯QQ2011Beta2安装脚本
#AutoIt3Wrapper_Res_LegalCopyright = 版权所有 (C) 2011 龍行天下
#EndRegion AutoIt3Wrapper 预编译参数设置完成
traytip(" 温馨提示","自动安装期间为避免操作失败，请勿动键盘鼠标",15,4)
$t="腾讯QQ2011"
Run("QQ2011Beta2.exe")
WinWaitActive($t,"欢迎")
ControlClick($t,"欢迎","我已阅读并同意软件许可协议和青少年上网安全指引")
WinWaitActive($t)
send("!n")
WinWait($t,"请选择自定义安装选项与快捷方式选项")
ControlClick($t,"请选择自定义安装选项与快捷方式选项","安装QQ工具栏及中文搜搜")
Sleep(100)
ControlClick($t,"请选择自定义安装选项与快捷方式选项","安装QQLive网络电视")
Sleep(100)
ControlClick($t,"请选择自定义安装选项与快捷方式选项","安装QQ音乐播放器")
Sleep(100)
ControlClick($t,"请选择自定义安装选项与快捷方式选项","快速启动栏")
Sleep(100)
Send("!n")
WinWaitActive($t)
ControlSetText($t,"程序安装目录","Edit1","D:\Program Files\Tencent\QQ")
Send("!I")
Sleep(56000)
WinWaitActive($t,"安装完成")
ControlClick($t,"安装完成","立即运行腾讯QQ2011")
Sleep(100)
ControlClick($t,"安装完成","开机时自动启动腾讯QQ2011")
Sleep(100)
ControlClick($t,"安装完成","设置腾讯网为主页")
Sleep(100)
ControlClick($t,"安装完成","显示新特性")
Send("!F")
写得不好，参照了一些大虾的例子，希望大家多多指教！ 没人回帖光看贴？ 没人回帖光看贴？ 没人回帖光看贴？ 给你顶一个吧，这种方式容易出错，尽量不要用sleep 学习一下啊 ]说道：MouseWheel
页:
[1]