|
|
发表于 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 |
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
