暴风影音

121044246

$title = "安装 暴风影音"
WinWait($title, "欢迎安装")
ControlClick($title, "欢迎安装", "下一步(&N) >")

WinWait($title, "许可证协议")
ControlClick($title, "许可证协议","我接受(&I)")

WinWait($title, "选择组件和需要创建的快捷方式")
ControlClick($title, "选择组件和需要创建的快捷方式", "下一步(&N) >")

WinWait($title, "选择安装位置")
ControlClick($title, "选择安装位置", "下一步(&N) >")

WinWait($title, "免费的百度工具栏")
ControlClick($title, "免费的百度工具栏", "安装百度工具栏")
Sleep(100)
ControlClick($title, "免费的百度工具栏", "安装(&I)")

While 1
        Select
                Case WinExists($title, "选择需要下载的播放组件") = 1
                        ControlClick($title, "选择需要下载的播放组件", "下一步(&N) >")
                        WinWait($title,"完成(F)")
                        ProcessClose("暴风影音.exe")
                        ProcessWaitClose("暴风影音.exe")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风休闲游戏中心.lnk")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\免费影视.lnk")
                        FileDelete(@DesktopDir & "\免费影视.lnk")
                        FileDelete(@DesktopDir & "\暴风休闲游戏中心.lnk")
                        RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Stormtray")
                        Exit
                Case WinExists($title,"完成(F)") = 1
                        ProcessClose("暴风影音.exe")
                        ProcessWaitClose("暴风影音.exe")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风休闲游戏中心.lnk")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音.lnk")
                        FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\免费影视.lnk")
                        FileDelete(@DesktopDir & "\免费影视.lnk")
                        FileDelete(@DesktopDir & "\暴风休闲游戏中心.lnk")
                        RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Stormtray")
                        Exit
        EndSelect
WEnd

zhangchongzhi

收起。。学习的榜样嘿。老不会循环………………