yamhpsxn 发表于 2011-3-19 10:00:52

QQ2011自动安装脚本(不安装插件)

$TITLE="腾讯QQ"
$T2="QQ软件管理"
run("QQ2011.exe")
MsgBox(4096, "~_~", "请等待...出现qq安装程序,点击 确定 按钮", 0)
WinWait($TITLE,"")
If Not WinActive($TITLE,"") Then WinActivate($TITLE,"")
WinActivate($TITLE,"欢迎使用腾讯QQ")
Send("{Space}")

ControlClick ($TITLE,"欢迎使用腾讯QQ","Button3")
WinActivate($TITLE,"请选择自定义安装选项与快捷方式选项")

ControlClick ($TITLE,"请选择自定义安装选项与快捷方式选项","Button9")
ControlClick ($TITLE,"请选择自定义安装选项与快捷方式选项","Button17")
ControlClick ($TITLE,"请选择自定义安装选项与快捷方式选项","Button12")
ControlClick ($TITLE,"快捷方式选项","Button7")

ControlClick ($TITLE,"快捷方式选项","Button2")
WinActivate($TITLE,"请选择安装路径")
ControlClick ($TITLE,"请选择安装路径","Button8")
ControlClick ($TITLE,"请选择安装路径","Button2")

WinWait($TITLE,"安装完成")
WinActivate($TITLE,"安装完成")
ControlClick ($TITLE,"安装完成","Button6")
ControlClick ($TITLE,"安装完成","Button8")
ControlClick ($TITLE,"安装完成","Button9")
ControlClick ($TITLE,"安装完成","Button7")
ControlClick ($TITLE,"安装完成","Button2")
FileDelete (@AppDataDir&"\Microsoft\Internet Explorer\Quick Launch\QQ游戏.lnk")
FileDelete (@StartupDir&"\腾讯QQ.lnk")


EXIT

tryhi 发表于 2011-3-20 16:36:24

有现成的，就不自己写了。
话说第六行是不是多余的If Not WinActive($TITLE,"") Then WinActivate($TITLE,"")

uxuuexqyxwk 发表于 2011-3-28 17:20:42

为什么 等一下呢

zysanjing 发表于 2011-3-30 22:27:57

http://www.autoitx.com/?fromuid=7655462更多资料查看这里~

qs2d 发表于 2011-3-31 16:41:43

谢谢啦！！！！

sxs2 发表于 2011-4-9 16:35:45

这个不错，下来试试

kilusa 发表于 2011-4-15 15:36:04

源码贴出来不错，我顶了，严重支持

dalao 发表于 2011-4-18 14:27:19

不错 谢谢楼主了

pk2910 发表于 2011-4-21 15:01:52

八神楼主好强大噢。

pk2910 发表于 2011-4-21 15:02:53

请问楼主QQ的版本是Bate1还是Bate2呢？

zm5268 发表于 2011-4-22 18:46:49

谢谢楼主,支持一下{:face (356):}{:face (356):}

duyan 发表于 2011-4-24 09:12:20

好极了，正是我需要的

风雨无悔 发表于 2011-4-24 11:47:51

这个方便了，很好

yamhpsxn 发表于 2011-4-26 10:12:34

回复：
有现成的，就不自己写了。
话说第六行是不是多余的If Not WinActive($TITLE,"") Then WinActivate($TITLE,"")

主要目的是防止当前QQ程序不是当前活动窗口

pcbn 发表于 2011-4-30 09:07:31

谢谢分享，支持下
页: [1] 2
查看完整版本: QQ2011自动安装脚本(不安装插件)