kodin 发表于 2008-10-21 11:11:28

自动安装QQ2009（源码）

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


#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 发表于 2008-10-30 12:34:41

高手,不错!

tsj017 发表于 2008-11-6 17:41:15

看看我写的：
While 1
If WinExists("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009") <> 0 Then
ControlClick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","")
Send("!n")
ElseIf WinExists("腾讯QQ2009 安装向导","网吧、学校等公共机房") <> 0 Then
ControlClick("腾讯QQ2009 安装向导","网吧、学校等公共机房","")
Send("!n")
ElseIf WinExists("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项") <> 0 Then
ControlClick("腾讯QQ2009 安装向导","将浏览器的首页设置为QQ.com","")
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 发表于 2008-11-6 17:45:28

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

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

wuha3619 发表于 2008-11-9 02:10:03

回复 3# tsj017 的帖子

呵呵 有些看不明白

nicefeel 发表于 2008-11-10 14:50:57

经典，感谢。

luke 发表于 2008-11-12 08:50:20

呵呵，参考学习下。

小网吧 发表于 2008-11-16 20:46:23

学习中.....:face (33):

adowngg 发表于 2008-12-2 16:17:30

也来学习啦:face (29):

wbfans 发表于 2008-12-2 19:11:26

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

悠闲老狼 发表于 2008-12-3 17:12:23

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

ckmxtk 发表于 2008-12-3 23:22:50

向领导学习了

gen2009 发表于 2008-12-23 16:11:08

刚开始学，:face (22): :face (22):

6wings 发表于 2008-12-25 20:41:54

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

wuluck 发表于 2008-12-29 14:06:23

版本变了，呵呵，现在是2009p4sp1了，所以上面要修改一下才能用
页: [1] 2
查看完整版本: 自动安装QQ2009（源码）