自动安装QQ2011 不安装插件
#Region AutoIt3Wrapper 预编译参数(常用参数);#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
;#AutoIt3Wrapper_Run_Before= ;运行前
;#AutoIt3Wrapper_Run_After= ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ____________________________________
Au3 版本:
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:
#ce _______________脚本开始_________________
Run("QQ2011Beta2.exe")
$title="腾讯QQ2011 安装向导"
TrayTip("", "正在安装QQ2011,请不要进行任何操作否则程序将不自动安装下去!",15,1)
WinWait($title,"腾讯QQ2011 安装向导")
WinActivate($title,"腾讯QQ2011 安装向导")
Sleep(300)
ControlClick($title,"我已阅读并同意软件许可协议和青少年上网安全指引","Button1")
Sleep(300)
ControlClick($title,"欢迎使用腾讯QQ2011","Button3")
WinWait($title,"自定义安装选项")
WinActivate($title,"自定义安装选项")
Sleep(300)
ControlClick($title,"自定义安装选项","Button9")
Sleep(300)
ControlClick($title,"自定义安装选项","Button12")
;ControlClick($title,"自定义安装选项","Button11")
;ControlClick($title,"自定义安装选项","Button6")
Sleep(300)
ControlClick($title,"自定义安装选项","Button17")
Sleep(300)
ControlClick($title,"自定义安装选项","Button2")
WinWait($title,"请选择安装路径")
WinActivate($title,"请选择安装路径")
ControlSetText($title,"请选择安装路径","Edit1","D:\Program Files\Tencent\QQ2011")
Sleep(300)
ControlClick($title,"请选择安装路径","Button7")
Sleep(300)
ControlClick($title,"请选择安装路径","Button2")
WinWait($title,"安装完成")
WinActivate($title,"安装完成")
Sleep(300)
ControlClick($title,"","Button6")
Sleep(300)
ControlClick($title,"","Button8")
Sleep(300)
ControlClick($title,"","Button9")
Sleep(300)
ControlClick($title,"","Button7")
Sleep(300)
ControlClick($title,"","Button2")
Sleep(2000)
ProcessClose ("QQPCdownload.exe")
;ProcessClose ("QQPCdownloadForqq.exe")
exit 顶新手,鼓励学习...... o(╯□╰)o 囧飘过支持一下吧 回复 1# zjw201314
谢谢 下载个试试 好好学习 天天向上
测试玩下{:face (411):} 要是有静音 安装的参数就好了. 没有画面的吗 学习,学习别人怎么写的,从中找技巧! 这个代码只能作参考,但也容易误导人…… 你的代码使用了很多Sleep语句,在你的电脑上sleep这么久也许可以,但到别人的电脑上sleep完了以后不一定能得到相同的效果。 下来看看,没钱不能下附件
页:
[1]