[强烈推荐]QQ2009一键安装超级完美版+++目前为止最完美的版本+++要是不好你骂我!!!!

zyx870615

先看一下这个小小的自定义函数.

Func programelist($filename)
$filename="["&$filename&"]"
$file = FileOpen("programelist.dat", 0)
If $file = -1 Then
    MsgBox(0, "RHT提醒你", "无法读取程序位置信息，请确认当前目录下是否有 programelist.dat文件。")
    Exit
EndIf
$linesum=1
While 1
        $programelist=FileReadLine($file, $linesum)
        If @error = -1 Then ExitLoop
        $linesum=$linesum+1
        Wend
For $line=1 To $linesum-1
If($filename=FileReadLine($file, $line)) Then
$programelist=FileReadLine($file, $line+1)
EndIf
Next
FileClose($file)
Return($programelist)
EndFunc

其实前面的不用看,只是一个小函数,从当前目录中的programelist.dat文件中读取安装位置,这样更便于安装位置的设置.适合更多的不同人使用.
关于这个小小的函数的应用,请参考我的另一个帖子:
用配置文件方便地自定义程序安装路径
http://www.autoitx.com/forum.php?mod=viewthread&tid=7275&highlight=

OK,主要的东东现在开始.

Opt("TrayIconHide",1)
Opt("WinTitleMatchMode",4)
Run("QQ2009_chs.exe")
WinWaitActive("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导")
ControlClick("last","","我已阅读并同意软件许可协议和青少年上网安全指导","left")
Send("!N")
WinWaitActive("腾讯QQ2009 安装向导","自定义安装选项")
ControlClick("last","","将浏览器的首页设置为QQ.com","left")
ControlClick("last","","安装腾讯软件管理器","left")
ControlClick("last","","安装QQ工具栏","left")
ControlClick("last","","安装中文搜搜","left")
Send("!N")
WinWaitActive("腾讯QQ2009 安装向导","请选择安装路径")
ControlSetText("last","","Edit1",programelist("QQ2009"))
Send("!I")
WinWaitActive("腾讯QQ2009 安装向导","安装完成")
ControlClick("last","","立即运行腾讯QQ2009","left")
ControlClick("last","","显示新特性","left")
ControlClick("last","","开机时启动腾讯QQ2009","left")
Send("!F")
$time=0
While ProcessExists("StorageTool.exe")=0
        If $time <= 15000 Then
            sleep(250)
            $time=$time+250
    Else
            Exit
        EndIf
WEnd
WinWaitActive("QQ数据迁移")
Send("{Enter}")

最后这个WHILE判断15S,如果15秒内没有QQ数据迁移的进程出现,则自动退出程序,若出现此进程,则等待它完成操作后按回车退出
这个东东是我最引以为豪的,xdjm们一起讨论一下吧.欢迎高手赐教

lynfr8

的确是一个不错的思路
相信如果能再上传些截图就更显精彩了

xhxuhui

。。有点看不懂。但是说的意思懂了。

hongtaoliu

那个一开始的小函数不是很懂

23070205

last指什么啊，left又指什么啊，菜鸟的疑问

buyiraul

1# zyx870615


ControlClick("last","","我已阅读并同意软件许可协议和青少年上网安全指导","left")
意思是取消“我已阅读并同意软件许可协议和青少年上网安全指导”那个地方的勾？？
那如果原来没有选上，我要选上命令是什么啊？？

goodrunde

我把脚本在我机上运行不了啊!??

ccbluesky

第一个都是师傅啊，学习了

szxiaomage

楼主有创意

szxiaomage

楼主有创意

俊凌古魂

大体思路了解，还需自己实践下

6wings

Opt("TrayIconHide",1)
Opt("WinTitleMatchMode",4)
Run("QQ2009_chs.exe")
WinWaitActive("腾讯QQ2009 安装向导","我已阅读并同意软件许可协议和青少年上网安全指导")
ControlClick("last","","我已阅读并同意软件许可协议和青少年上网安全指导","left")
Send("!N")

1.楼主解释下前两句的含义
2.WinWaitActive  你没加 超时时间 似乎软件动不了哦
3.ControlClick("last","","我已阅读并同意软件许可协议和青少年上网安全指导","left")   这个我怎么实现不了？连动都不动。。。

wjs3325120

是我们学习的好贴

ahkang

思路不错, 借鉴学习了, 以往我都是用 While 1 循环来判断目标窗口是否出现的, 但是如果窗口不存在就会卡死, 这个应该没问题吧...

dj-judy

学习了，谢谢