[已解决]寻求QQ2008IIBeta1.exe可用安装脚本

minghui

QQ2008IIBeta1.exe 官方下载地址如下;
http://download.digi.tech.qq.com/soft/17/21/48016/index.shtml

如下图中的安装中文搜搜  窗口信息是;Dialog88d1  我用模拟鼠标点击也没效果,不知道是什么原因


附上我写的安装脚本

Opt("MouseCoordMode",0)
Run("QQ2008IIBeta1.exe")
TrayTip("正在安装", "QQ2008IIBeta1.exe,请稍后......", 10, 1)
Sleep(1000)
WinWait("QQ2008II Beta1 安装", "欢迎使用 QQ2008II Beta1 安装向导")
WinWaitActive("QQ2008II Beta1 安装", "欢迎使用 QQ2008II Beta1 安装向导")
WinSetOnTop("QQ2008II Beta1 安装", "欢迎使用 QQ2008II Beta1 安装向导",1)
Send("!i")
WinWait("QQ2008II Beta1 安装", "选定使用环境")
WinWaitActive("QQ2008II Beta1 安装", "选定使用环境")
ControlCommand("QQ2008II Beta1 安装", "选定使用环境", "Button4", "Check", "")
Send("!n")
WinWait("QQ2008II Beta1 安装 ", "选定安装位置和组件")
WinWaitActive("QQ2008II Beta1 安装 ", "选定安装位置和组件")
ControlSend("QQ2008II Beta1 安装 ", "选定安装位置和组件", "Edit1", "D:\Program Files\Tencent\QQ")
ControlCommand("QQ2008II Beta1 安装 ", "选定安装位置和组件", "Button4", "UnCheck", "")
ControlCommand("QQ2008II Beta1 安装 ", "选定安装位置和组件", "Button6", "UnCheck", "")
ControlCommand("QQ2008II Beta1 安装 ", "选定安装位置和组件", "Button5", "UnCheck", "")
MouseMove(33,256)
MouseDown("left")
Sleep(100)
MouseUp("left")
Sleep(500)
Send("!n")
WinWait("QQ2008II Beta1 安装 ", "完成 QQ2008II Beta1 安装向导")
WinWaitActive("QQ2008II Beta1 安装 ", "完成 QQ2008II Beta1 安装向导")
ControlCommand("QQ2008II Beta1 安装 ", "完成 QQ2008II Beta1 安装向导", "Button4", "UnCheck", "")
ControlCommand("QQ2008II Beta1 安装 ", "完成 QQ2008II Beta1 安装向导", "Button5", "UnCheck", "")
ControlCommand("QQ2008II Beta1 安装 ", "完成 QQ2008II Beta1 安装向导", "Button6", "UnCheck", "")
Send("!f")
FileDelete(@ProgramsDir & "\启动\腾讯QQ.lnk")
FileDelete(@DesktopCommonDir & "\QQ游戏.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\QQ游戏.lnk")
Exit

xz00311

你用高级类加标题试一下这样应该可以了吧

minghui

你用高级类加标题试一下这样应该可以了吧
xz00311 发表于 2010-6-12 09:04

请问一下用那个命令呢! 刚学AU3不久还不太懂,这个问题困扰了我很久了,自己一直没找到解决的方法,不得已才来提问,在这先谢谢大家了

ss98998

何必这么麻烦！用ControlClick

minghui

何必这么麻烦！用ControlClick
ss98998 发表于 2010-6-13 00:43

这个命令也没用,方法我都试用了,就是不见效,头都大了

t87564833

呵呵，这种脚本很简单的啊

minghui

呵呵，这种脚本很简单的啊
t87564833 发表于 2010-6-13 11:54

兄弟你下载我附上的原版,试下就知道了.并不是你想的那样简单,切实安装中文搜搜这个没法选空,要不我也不会求助大家的帮忙了

如果你有好的方法不防也告诉我下吧

t87564833

回复 7# minghui
恩，兄弟你好，是我没看清楚， 不好意思。
我弄过QQ2010的自动安装，很简单，没有遇到你那个问题。
我的想法是
去换个QQ安装包（我的QQ2010BETA3就没有那几个破东西）其他帮不了你的忙。
不过技术论坛就不应该避类似问题，支持你，如果解决了，记得把方法贴出来大家共享！

t87564833

Dim $a = "腾讯QQ2010 安装向导"
ProcessClose ( "qq.exe")
TrayTip($a,$a & "正在进行安装，不要进行操作，以免出现错误！",5,2)

Run("QQ2010Beta3.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")

minghui

#t87564833
我要的是QQ2008IIBeta1.exe的自动安装脚本,QQ2010很好解决的啦

QQ2008IIBeta1.exe 安装中文搜搜那个控件ID是比较特殊的,这是我目前遇到比较难解决的

viclai

我试了一下！真有点麻烦，真的要出去这个插件，只能解包了！
我得出的是Static60ab 1

viclai

你注意看“可见文本”里的内容没？唯独缺少这个中文搜搜！

minghui

最好的方法就是先安装后调用卸载中文搜搜

jinta2001

Do
        If ProcessExists('Toolbar_QQ.exe') Then
                ProcessClose('Toolbar_QQ.exe')
                ExitLoop
        EndIf
Until 1=2

minghui

回复 14# jinta2001

是直接终止进程的方法吧~！ 这样应该是最完美的了