sunnday 发表于 2011-5-2 16:12:52

QQ2011官方Bata2自动安装~~小试牛刀

本帖最后由 sunnday 于 2011-5-16 08:16 编辑

$Teet="腾讯QQ2011 安装向导"
$Teet2="请选择安装路径"
$Teet3=""
$Teet4="欢迎使用腾讯QQ2011"
$Teet5="我已阅读并同意软件许可协议和青少年上网安全指引"
$Teet6="请选择自定义安装选项与快捷方式选项"
$Teet7="安装完成"
ShellExecute("QQ2011.exe","",@ScriptDir,"open")

TrayTip("正在安装程序","安装过程请勿安装其他软件",5,1)
WinWait($Teet,$Teet4)
WinActivate($Teet,$Teet4)
ControlClick($Teet,$Teet5,"Button1")
ControlClick($Teet,$Teet4,"")

WinWait($Teet,$Teet6)
WinActivate($Teet,$Teet6)
ControlClick($Teet,$Teet6,"")
ControlClick($Teet,$Teet6,"")
ControlClick($Teet,$Teet6,"")
ControlClick($Teet,$Teet6,"")
ControlClick($Teet,$Teet6,"")

WinWait($Teet,$Teet2)
WinActivate($Teet,$Teet2)
ControlSetText($Teet,$Teet3,"Edit1","d:\Program Files\Tencent\QQ")
ControlClick($Teet,$Teet2,"")
ControlClick($Teet,$Teet2,"")

WinWait($Teet,"正在提取安装文件")
WinWaitClose($Teet,"正在提取安装文件")
While 1
      If ControlGetHandle($Teet,$Teet7,"Button6") Then ExitLoop
WEnd
ControlClick($Teet,$Teet7,"Button6")
ControlClick($Teet,$Teet7,"Button8")
ControlClick($Teet,$Teet7,"Button9")
ControlClick($Teet,$Teet7,"Button7")
ControlClick($Teet,$Teet7,"Button2")

ProcessClose("QQ2011.exe")

贴了

最近刚接触AU3自己做的自动安装脚本 小试牛刀吧
如果有哪里做的不好的还希望大家谅解毕竟是小菜嘛 呵呵
有错误还请大家及时指正

wsfda 发表于 2011-5-2 16:28:21

这种源码建议直接贴出来，下载要20金币，看的人会少之又少

sunnday 发表于 2011-5-2 16:35:51

回复 1# sunnday


    哦

lpxx 发表于 2011-5-2 16:49:21

很多人都是从自动安装入门的，恭喜，下载就不下了，费钱。

tryhi 发表于 2011-5-2 17:00:35

为表示支持，我下载了

yinbinly 发表于 2011-5-2 20:17:58

楼主直接贴出来吧，不然我感觉不会有人花钱下载看的

sunnday 发表于 2011-5-3 08:36:45

回复 4# lpxx


    嗯嗯谢谢

sunnday 发表于 2011-5-3 08:37:31

回复 5# tryhi


    谢谢 大哥哦 有问题的话请及时指出来

chainmart 发表于 2011-5-3 19:36:42

到头来还是没贴～

zhusheng8701 发表于 2011-5-4 00:52:36

呵呵。。。论坛下载的钱太贵，这种帖子的代码一般没有人下载的。呵呵

sunnday 发表于 2011-5-4 14:58:03

回复 9# chainmart


    不知道怎么贴

sunnday 发表于 2011-5-4 18:47:58

回复 9# chainmart


    不知道乍贴

wzhen1210 发表于 2011-5-8 19:38:00

不帖出来还真的就会没有人看的。

wsfda 发表于 2011-5-8 19:58:41

编辑帖子，高级模式，选择源码，就可以了

meteor0330 发表于 2011-5-9 00:01:16

下载太贵了！！唉！穷人呀！
页: [1] 2
查看完整版本: QQ2011官方Bata2自动安装~~小试牛刀