暴风影音
$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
收起。。学习的榜样嘿。老不会循环………………
页:
[1]