影音先锋自动安装脚本

顽固不化

;影音先锋自动安装脚本
;2008.4.10 顽固不化
;
SplashTextOn("****警告****","    自动安装过程中请勿进行键盘与鼠标的操作,否则,自动安装会崩溃!",120,80,10,10)
Run("yyxf.exe")
WinWaitActive("安装 - 影音先锋","欢迎使用")
Send("!n")
WinWaitActive("安装 - 影音先锋","许可协议")
Send("!a""!n")
WinWaitActive("安装 - 影音先锋","选择目标位置")
send("!n")
if winactive("文件夹存在") Then
    send("!y")
EndIf
WinWaitActive("安装 - 影音先锋","选择组件")
Send("!n")
WinWaitActive("安装 - 影音先锋","准备安装")
Send("!i")
winwaitclose("安装 - 影音先锋","正在安装")
WinWaitActive("http://yyxfplayer.com")
Send("!{F4}")
WinActivate ("安装 - 影音先锋","安装向导完成")
WinWaitActive("安装 - 影音先锋","安装向导完成")
Send("{space}""!f")

TrayTip("提示", "影音先锋自动安装第二版", 30, 1)
Run("YYXF.exe")
WinWaitActive("安装 - 影音先锋", "欢迎使用")
$WinHD = WinGetHandle("安装 - 影音先锋", "欢迎使用")
ControlClick($WinHD, "", "TButton1")
WinWaitActive($WinHD, "许可协议")
ControlClick($WinHD, "", "TRadioButton1")
ControlClick($WinHD, "", "TButton2")
WinWaitActive($WinHD, "选择目标位置")
ControlClick($WinHD, "", "TButton3")
WinWaitActive($WinHD, "选择组件")
ControlClick($WinHD, "", "TButton3")
WinWaitActive($WinHD, "准备安装")
ControlClick($WinHD, "", "TButton3")
TrayTip("", "", "")
While 1
        If WinExists("http://yyxfplayer.com/", "链接") Then
                WinClose("http://yyxfplayer.com/", "链接")
                ExitLoop
        EndIf
WEnd
WinWaitActive($WinHD, "向导完成")
WinActivate($WinHD,"向导完成")
Send("{space}")
ControlClick($WinHD, "向导完成", "TButton3")

[ 本帖最后由 顽固不化 于 2008-7-31 11:21 编辑 ]

lxz

顽固不化的东西,要好好收藏.

bsplin

智能化的处理，很好很强大！

jiamei521

收藏收藏收藏收藏收藏收藏

netbandit

如果更改安装目录的话还需要添加什么语句？

linweifan

学习啊，

番茄

原帖由 netbandit 于 2008-12-4 08:41 发表
如果更改安装目录的话还需要添加什么语句？

WinWaitActive("安装 - 影音先锋","选择目标位置") 
ControlSetText("安装 - 影音先锋","选择目标位置","Edit1", "D:\Program Files\影音先锋") 

wangjinxian

一直想学自动安装，就是学不会，苦恼

wuluck

好东西，学习一下，学会就爽了

fuchengwu

楼主很棒！

a7602177

谢谢楼主了

a7602177

谢谢楼主了