dyd 发表于 2011-4-18 08:44:11

暴风影音2011 安装脚本

本帖最后由 dyd 于 2011-5-7 08:12 编辑

新手，错了别拍我哈


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 发表于 2012-3-29 21:24:52

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

m765555 发表于 2013-9-17 14:52:49

二话不说，回了再说。

m765555 发表于 2013-9-17 14:52:58

二话不说，回了再说。
页: [1]
查看完整版本: 暴风影音2011 安装脚本