求一个QQ2009的自动安装的代码谢谢!!

wz5288

求一个QQ2009的自动安装的代码谢谢!!
QQ:521172093

zhangkuizhai

这个简单，看个自动安装教程就会了。

lynfr8

Run('QQ2009Beta.exe')
WinWait("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")     
WinWaitActive("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
ControlCommand("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009", "Button1", "Check")     ;打上钩 我已阅读并同意软件许可协议和青少年上网安全指导
Send("!n")
WinWaitActive("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置")
Send("!n")
WinWaitActive("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项")
ControlCommand("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项", "Button9", "UnCheck")     ;去掉 将浏览器的首页设置为QQ.com 钩
ControlCommand("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项", "Button6", "UnCheck")
Send("!n")
WinWaitActive("腾讯QQ2009 安装向导","请选择安装路径")
ControlCommand("腾讯QQ2009 安装向导","请选择安装路径", "Button8", "Check")
Send("!i")
WinWait("腾讯QQ2009 安装向导","安装完成")
WinWaitActive("腾讯QQ2009 安装向导","安装完成")
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button6", "UnCheck")  
ControlCommand("腾讯QQ2009 安装向导","安装完成", "Button7", "UnCheck")  
Send("{enter}")

consen

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\Documents and Settings\cface\桌面\QQ9.EXE
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
FileInstall("E:\Consen\autoit3\QQ2009.exe","C:\QQ2009.exe");
Run("C:\QQ2009.exe")
WinWaitActive("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
ControlCommand("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导","Button1","Check", "")
Send("!N")
WinWaitActive("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置")
ControlCommand("腾讯QQ2009 安装向导","网吧、学校等公共机房","Button7","Check", "")
ControlCommand("腾讯QQ2009 安装向导","网吧、学校等公共机房","Button12","Check", "")
Send("!N")
WinWaitActive("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项")
ControlCommand("腾讯QQ2009 安装向导","将浏览器的首页设置为QQ.com","Button9","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","桌面","Button6","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","快速启动栏","Button7","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","安装腾讯软件管理器","Button8","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","安装QQ工具栏","Button10","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","安装中文搜搜","Button11","UnCheck", "")
Send("!N")
WinWaitActive("腾讯QQ2009 安装向导","请选择安装路径")
Send("!I")
WinWaitActive("腾讯QQ2009 安装向导","当前第6步，共6步")
ControlCommand("腾讯QQ2009 安装向导","显示新特性","Button7","UnCheck", "")
ControlCommand("腾讯QQ2009 安装向导","开机时启动腾讯QQ2009","Button8","UnCheck", "")
Send("!F")
$A=FileDelete("C:\QQ2009.exe")
While $A==0
        $A=FileDelete("C:\QQ2009.exe")
WEnd
Exit