自动安装QQ2009（源码）

ioiooo

原帖由 6wings 于 2008-12-25 20:41 发表
LZ的代码是不是有问题呢?我试了之后发现,脚本去钩都去不了,全部都装下去了,安装完后 设QQ.com为首页,显示特性,自动运行QQ,,,,=问题

----------------------------------分割线--------------------------------------------
我也想知道一下 怎么解决 上边说的勾的问题
不用鼠标键盘操作的

hanshiqi2000

刚开始学习有些不懂 。收藏了以后研究

ahkang

我也跟贴凑个热闹……
说明：先将下载的 QQ2009Beta….exe 改名为 QQ2009.Res ，由于用了 FileInstall() 函数，编译后的程序会有 19.8M左右。图标请自行指定。(如果版本号不同，可能会失效，请自己根据实际情况修改代码）

;脚本开始 － 请在这下面添加您的代码:

;======================== 安装 QQ2009 代码开始 ========================
Opt("WinTitleMatchMode", 4)

;---------- 初始化变量(窗口标题/文本) ------------
Global $ExeFile = @TempDir&"\QQ2009.Tmp"
Global $Title = "腾讯QQ2009 安装向导"
Global $A = "欢迎使用腾讯QQ2009"
Global $B = "请选择使用环境与查杀木马设置"
Global $C = "请选择自定义安装选项与快捷方式选项"
Global $D = "请选择安装路径"
Global $E = "安装完成"
;-------------- 变量结束 ---------------

RegWrite("Hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSMBalloonTip","Reg_Dword",1)

TraySetIcon("QQ.Ico",0)
TrayTip('正在初始化 腾讯QQ2009 自动安装, 请稍候...','正在提取 QQ 安装程序文件和准备自动安装, 请等待...',15,4)
FileInstall("QQ2009.Res",$ExeFile,1)
Run($ExeFile)
TrayTip("正在自动安装 腾讯QQ2009 之中...","正在自动安装 腾讯QQ2009 之中, 在整个安装过程" &@Cr& _
                "中没事千万别乱动键盘/鼠标, 否则无法自动完成...",15,4)
WinWait($Title,$A)
ControlCommand($Title,$A,"Button1","Check","")
ControlClick($Title,$A,"Button3")
WinWait($Title,$B)
ControlCommand($Title,$B,"Button12","Check","")
ControlClick($Title,$Title,"Button2")
WinWait($Title,$C)
ControlCommand($Title,$C,"Button9","UnCheck","")
ControlCommand($Title,$Title,"Button8","UnCheck","")
ControlClick($Title,$Title,"Button2")
WinWait($Title,$D)
ControlSetText($Title,$D,"Edit1","D:\Program Files\Tencent\QQ2009")
ControlClick($Title,$D,"Button8")
ControlClick($Title,$Title,"Button2")
If WinWait($Title,$E) Then WinActivate($Title,$E)
ControlCommand($Title,$E,"Button6","UnCheck","")
ControlCommand($Title,$E,"Button7","UnCheck","")
ControlCommand($Title,$E,"Button8","UnCheck","")
ControlClick($Title,$E,"Button2")

While 1
If FileExists($ExeFile) Then
        FileDelete($ExeFile)
        If @Error Then ExitLoop
Else
        ExitLoop
EndIf
WEnd
;======================== 安装 QQ2009 代码结束 ========================

我就是我

学习一下，谢谢！