AU3源码腾讯QQ2010 自动安装脚本
Dim $a = "腾讯QQ2010 安装向导"TrayTip($a,$a & "正在进行安装，不要进行操作，以免出现错误！",5,2)
Run("QQ2010Beta.exe")
WinWait($a,"欢迎使用腾讯QQ2010")
WinActivate($a,"欢迎使用腾讯QQ2010")
ControlClick($a,"欢迎使用腾讯QQ2010","Button1")
Send ("!N")
WinWait($a,"自定义安装选项")
WinActivate($a,"自定义安装选项")
ControlClick($a,"自定义安装选项","Button9")
ControlClick($a,"自定义安装选项","Button10")
ControlClick($a,"自定义安装选项","Button11")
Send("!n")
WinWait($a,"请选择安装路径")
WinActivate($a,"请选择安装路径")
Send ("!I")
WinWait($a,"安装完成")
WinActivate($a,"安装完成")
ControlClick($a,"安装完成","Button6")
ControlClick($a,"安装完成","Button8")
ControlClick($a,"安装完成","Button9")
ControlClick($a,"安装完成","Button7")
Send ("!f")
页:
[1]