暴风影音2011 安装脚本

dyd

新手，错了别拍我哈


FileInstall("Storm2011595.exe", @TempDir & "\Storm2011595.exe",1)
Run(@TempDir & "\Storm2011595.exe")
WinWait("安装 暴风影音 2011")
If WinExists("安装 暴风影音 2011", "您的电脑已安装了暴风影音，安装过程中将先卸载已安装的版本。") Then
        ControlClick("安装 暴风影音 2011", "您的电脑已安装了暴风影音，安装过程中将先卸载已安装的版本。", "Button1")
EndIf
WinWait("安装 暴风影音 2011", "欢迎安装 暴风影音 2011")
WinActivate("安装 暴风影音 2011", "欢迎安装 暴风影音 2011")
ControlClick("安装 暴风影音 2011", "欢迎安装 暴风影音 2011", "Button2")
WinWait("安装 暴风影音 2011", "许可证协议")
WinActivate("安装 暴风影音 2011", "许可证协议")
ControlClick("安装 暴风影音 2011", "许可证协议", "Button2")
WinWait("安装 暴风影音 2011", "选择组件和需要创建的快捷方式")
WinActivate("安装 暴风影音 2011", "选择组件和需要创建的快捷方式")
ControlClick("安装 暴风影音 2011", "选择组件和需要创建的快捷方式", "Button2")
WinWait("安装 暴风影音 2011", "选择安装位置")
WinActivate("安装 暴风影音 2011", "选择安装位置")
ControlClick("安装 暴风影音 2011", "选择安装位置", "Button2")
WinWait("安装 暴风影音 2011", "免费的百度工具栏")
WinActivate("安装 暴风影音 2011", "免费的百度工具栏")
ControlClick("安装 暴风影音 2011", "免费的百度工具栏", "Button4")
ControlClick("安装 暴风影音 2011", "免费的百度工具栏", "Button2")
If WinExists("安装 暴风影音 2011", "暴风影音推荐软件") THEN
      WinActivate("安装 暴风影音 2011", "暴风影音推荐软件")
      ControlClick("安装 暴风影音 2011", "暴风影音推荐软件", "Button4")
      ControlClick("安装 暴风影音 2011", "暴风影音推荐软件", "Button5")
      ControlClick("安装 暴风影音 2011", "暴风影音推荐软件", "Button6")
      ControlClick("安装 暴风影音 2011", "暴风影音推荐软件", "Button2")
ENDIF
WinWait("安装 暴风影音 2011", "运行 暴风影音 2011")
WinActivate("安装 暴风影音 2011", "运行 暴风影音 2011")
ControlClick("安装 暴风影音 2011", "运行 暴风影音 2011", "Button4")
ControlClick("安装 暴风影音 2011", "运行 暴风影音 2011", "Button2")
FileDelete(@DesktopDir & "\暴风休闲游戏中心.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风休闲游戏中心.lnk")

1733413480

呵呵，我是新手，我不怕，我来试验，相信楼主。

m765555

二话不说，回了再说。

m765555

二话不说，回了再说。