sdlw999 发表于 2010-6-3 13:09:48

本帖最后由 sdlw999 于 2010-6-3 13:23 编辑

试了一下。O(∩_∩)O~
;说明:本脚本由 《星驰周的软件安装脚本辅助工具》于2010年06月03日所生成,请尊重作者劳动,保留版权信息
Opt("MouseCoordMode", 0);相对激活窗口的坐标
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Dim $dizhi = ""
Dim $rjlj = IniRead("soft.ini", "设置", "软件路径", @WorkingDir)
Dim $ruanj = $rjlj & "\QQPlayer_Setup_2.3.exe"
HotKeySet("{F11}", "tuichu");退出
Dim $bt = "QQ影音2.3 安装"
Dim $txt1 = "下一步(&N) >"
Dim $txt2 = "“QQ影音”软件安装"
Dim $txt3 = "选择组件"
Dim $txt4 = "可用空间: 5.0G"
Dim $txt5 = "d:\Program"
Dim $txt6 = ""
If Not FileExists($ruanj) Then
TrayTip("错误!!", "该文件找不到:" & @CRLF & $ruanj & @CRLF & @CRLF & "3 秒后自动退出", 15, 4)
Sleep(2500)
Exit
EndIf
Run($ruanj);运行软件
TrayTip(" 温馨提示", "自动安装期间为避免操作失败,请勿动键盘鼠标" & @CRLF & @CRLF & "长时间无反应可按    F11 退出", 15, 4)
Sleep(1000)
WinWaitActive($bt, $txt1)
ControlClick($bt, $txt1, "Button2")
WinWaitActive($bt, $txt2)
ControlClick($bt, $txt2, "Button2")
ControlClick($bt, $txt2, "Button2")
ControlClick($bt, $txt2, "Button2")
ControlClick($bt, $txt2, "Button2")
WinWaitActive($bt, $txt3)
ControlClick($bt, $txt3, "Button2")
WinWaitActive($bt, $txt4)
ControlClick($bt, $txt4, "Edit1")
ControlClick($bt, $txt4, "Edit1")
ControlClick($bt, $txt4, "Edit1")
WinWaitActive($bt, $txt5)
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
ControlClick($bt, $txt5, "Edit1")
WinWaitActive($bt, $txt6)
ControlClick($bt, $txt6, "")
TrayTip(" 恭喜!", "已经安装完成,谢谢使用", 5, 4)
Sleep(2000)
;强行退出函数
Func tuichu()
Exit
EndFunc

john860819 发表于 2010-6-4 01:47:17

这个,下来看看

aqtd 发表于 2010-6-4 11:43:57

加点延时更好。

devilma 发表于 2010-6-4 11:50:59

最好有个说明那,谢谢楼主分享

penny_shen 发表于 2010-6-5 15:56:29

回复支持先!再下载看看

agunagun 发表于 2010-6-5 20:46:51

dddddddddddddddddddd

agunagun 发表于 2010-6-5 20:46:57

ddddddddddddd

agunagun 发表于 2010-6-5 20:47:02

dddddddddddddddddd

agunagun 发表于 2010-6-5 20:47:07

dddddddddddddddddddd

agunagun 发表于 2010-6-5 20:47:12

dddddddddddddddd

agunagun 发表于 2010-6-5 20:47:16

dddddddddddddddd

agunagun 发表于 2010-6-5 20:47:20

ddddddddddddd

gxmzy 发表于 2010-6-5 21:04:38

晕啊,好贵

weare 发表于 2010-6-6 02:01:54

先学习学习,谢谢啦。

weare 发表于 2010-6-6 02:02:11

先学习学习,谢谢啦。
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 星驰周的软件安装脚本辅助工具(自动安装脚本生成器)5.3更新