自动安装QQ2009（源码）

kodin

今天有人问到，顺便把源码发布给大家。

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=ico.ICO
#AutoIt3Wrapper_Res_Comment=自动安装QQ2009
#AutoIt3Wrapper_Res_Description=自动安装
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=kodin
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Run("QQ2009.exe")

WinWait("腾讯QQ", "我已阅读")
If Not WinActivate("腾讯QQ", "我已阅读") Then
        WinActivate("腾讯QQ", "我已阅读")
        WinWaitActive("腾讯QQ", "我已阅读")
EndIf
ControlClick("腾讯QQ", "我已阅读", "Button1")
Sleep(500)
ControlClick("腾讯QQ", "我已阅读", "Button3")

WinWait("腾讯QQ", "请选择使用")
If Not WinActivate("腾讯QQ", "请选择使用") Then
        WinActivate("腾讯QQ", "请选择使用")
        WinWaitActive("腾讯QQ", "请选择使用")
EndIf
ControlClick("腾讯QQ", "请选择使用", "Button2")

WinWait("腾讯QQ", "请选择自定义")
If Not WinActivate("腾讯QQ", "请选择自定义") Then
        WinActivate("腾讯QQ", "请选择自定义")
        WinWaitActive("腾讯QQ", "请选择自定义")
EndIf
ControlClick("腾讯QQ", "请选择自定义", "Button9")
Sleep(500)
ControlClick("腾讯QQ", "请选择自定义", "Button7")
Sleep(500)
ControlClick("腾讯QQ", "请选择自定义", "Button2")

WinWait("腾讯QQ", "请选择安装")
If Not WinActivate("腾讯QQ", "请选择安装") Then
        WinActivate("腾讯QQ", "请选择安装")
        WinWaitActive("腾讯QQ", "请选择安装")
EndIf
ControlClick("腾讯QQ", "请选择安装", "Button2")

WinWait("腾讯QQ", "安装完成")
If Not WinActivate("腾讯QQ", "安装完成") Then
        WinActivate("腾讯QQ", "安装完成")
        WinWaitActive("腾讯QQ", "安装完成")
EndIf
ControlClick("腾讯QQ", "安装完成", "Button6")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button7")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button8")
Sleep(500)
ControlClick("腾讯QQ", "安装完成", "Button2")

xumeng

高手,不错!

tsj017

看看我写的：
While 1
If WinExists("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009") <> 0 Then
  ControlClick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","[ID:1020]")
  Send("!n")
ElseIf WinExists("腾讯QQ2009 安装向导","网吧、学校等公共机房") <> 0 Then
  ControlClick("腾讯QQ2009 安装向导","网吧、学校等公共机房","[ID:1023]")
  Send("!n")
ElseIf WinExists("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项") <> 0 Then
  ControlClick("腾讯QQ2009 安装向导","将浏览器的首页设置为QQ.com","[ID:1038]")
  Send("!n")
ElseIf WinExists("腾讯QQ2009 安装向导","请选择安装路径") <> 0 Then
  Send("!i")
ElseIf WinExists("腾讯QQ2009 安装向导", "安装完成") <> 0 Then
  ControlCommand ( "腾讯QQ2009 安装向导", "安装完成", 1046, "UnCheck")
  Send("!f")
  Exit
           ElseIf WinExists("腾讯QQ2009 安装向导") <> 0 Then
  Sleep(100)
Else
  Run("qq2009preview3_chs.exe")
  WinWait("腾讯QQ2009 安装向导")
EndIf
Sleep(10)
WEnd

tsj017

不过我还有个问题：在安装完后怎么让它自动登陆qq？我搞不成功，那个来讲下怎么搞，谢谢！

[ 本帖最后由 tsj017 于 2008-11-6 17:46 编辑 ]

wuha3619

呵呵 有些看不明白

nicefeel

经典，感谢。

luke

呵呵，参考学习下。

小网吧

学习中.....

adowngg

也来学习啦

wbfans

代码比用nsis少多了，看来我落伍了，努力啦。
谢谢分享！

悠闲老狼

好向把简单的问题搞的有些复杂了

ckmxtk

向领导学习了

gen2009

刚开始学，

6wings

LZ的代码是不是有问题呢?我试了之后发现,脚本去钩都去不了,全部都装下去了,安装完后 设QQ.com为首页,显示特性,自动运行QQ,,,,=问题

wuluck

版本变了，呵呵，现在是2009p4sp1了，所以上面要修改一下才能用