论坛 › 已解决问题区 › [强烈推荐]QQ2009一键安装超级完美版+++目前为止最完美的版本+++要是不好你骂我!!!!

zyx870615 发表于 2009-5-26 19:42:52

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

本帖最后由 zyx870615 于 2009-5-26 19:51 编辑


先看一下这个小小的自定义函数.
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 发表于 2009-5-26 21:46:51

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

xhxuhui 发表于 2009-5-27 13:39:31

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

hongtaoliu 发表于 2009-5-28 09:14:43

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

23070205 发表于 2009-5-30 13:00:25

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

buyiraul 发表于 2009-5-30 19:52:45

1# zyx870615


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

goodrunde 发表于 2009-6-4 15:31:01

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

ccbluesky 发表于 2009-6-17 08:26:00

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

szxiaomage 发表于 2009-6-17 19:46:39

楼主有创意

szxiaomage 发表于 2009-6-17 19:46:47

楼主有创意

俊凌古魂 发表于 2009-6-18 17:56:57

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

6wings 发表于 2009-6-21 18:00:22

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 发表于 2009-6-24 10:43:49

是我们学习的好贴

ahkang 发表于 2009-7-6 15:15:55

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

dj-judy 发表于 2009-7-6 16:15:48

学习了，谢谢

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