暴风影音 自动安装并去广告脚本
If ProcessExists("Baofeng5-5.52.0831.exe") Then Exit$Path &= "C:\Program Files\Baofeng\StormPlayer\"
AutoItSetOption("MouseCoordMode",2)
ShellExecute(@ScriptDir & "\Baofeng5-5.52.0831.exe")
$Title1 = "安装 暴风影音5 正式版"
$Title2 = "安装提示"
$Title = WinWait("")
Sleep(500)
If StringInStr(WinGetTitle($Title),$Title2) Then
ControlClick($Title2,"","Button1")
Exit
EndIf
WinActivate($Title)
Do
Sleep(500)
Until ControlCommand($Title,"","","IsVisible")
ControlClick($Title,"","","left",1,469,368);点击开始安装
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow2","IsVisible");等待自定义安装设置
Sleep(200)
If ControlGetHandle($Title,""," & ";INSTANCE:1]") <> $Path Then ControlSetText($Title,""," & ";INSTANCE:1]",$Path)
Sleep(200)
ControlClick($Title,"","SkinWindow2","left",1,81,244);[ ]暴风影视库快捷方式
Sleep(200)
ControlClick($Title,"","SkinWindow2","left",1,81,268);[ ]暴风游戏及快捷方式
Sleep(200)
ControlClick($Title,"","SkinWindow2","",1,478,366);下一步
Sleep(200)
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow3","IsVisible");等待推荐界面
ControlClick($Title,"","SkinWindow3","",1,81,198);安装360安全卫士，最受欢迎的免费安全软件
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,81,222);安装百度工具栏
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,81,246);雷霆之怒-正版传奇网页游戏，重温经典传奇
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,478,366);下一步
Sleep(2500)
If ControlCommand($Title,"","SkinWindow4","IsVisible") Then ControlClick($Title,"","SkinWindow4","",1,475,367)
ProcessWait("MediaLibraryUpdate.exe",2)
ProcessClose("MediaLibraryUpdate.exe")
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow5","IsVisible");等待立即体验
ProcessWait("BaofengPlatform.exe")
ProcessClose("BaofengPlatform.exe")
ProcessClose("Baofeng5-5.52.0831.exe")
;删除快捷方式
If FileExists(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音5.lnk") Then FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音5.lnk")
If FileExists(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影视库.lnk") Then FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影视库.lnk")
If FileExists(@ProgramsCommonDir & "\暴风软件\暴风影音5\检查更新.lnk") Then FileDelete(@ProgramsCommonDir & "\暴风软件\暴风影音5\检查更新.lnk")
If FileExists(@ProgramsCommonDir & "\暴风软件\暴风影音5\暴风影视库.lnk") Then FileDelete(@ProgramsCommonDir & "\暴风软件\暴风影音5\暴风影视库.lnk")
If FileExists(@MyDocumentsDir & "\暴风影视库") Then DirRemove(@MyDocumentsDir & "\暴风影视库",1)
;修改注册表
$wshNetwork = ObjCreate("WScript.Network")
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Account")
For $objItem In $colItems
If $objItem.Name = $wshNetwork.UserName Then
$SID = $objItem.SID
EndIf
Next
RegWrite("HKU\" & $SID & "\SOFTWARE\Baofeng\StormPlayer\UserConfig","ShowMovieBox","REG_DWORD",0)
;RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","BaofengPlatform")
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\Config\RepairAutoRun","AutoRun","REG_DWORD",0)
;高级选项
;退出时清空播放列表记录
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","CleanPlayListWhenQuit","REG_DWORD",1)
;[ ]启动时弹出暴风盒子
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","ShowMovieBox","REG_DWORD",0)
;[ ]开机时自动运行暴风
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","AutoRunApp","REG_DWORD",0)
;(*)退出程序
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","CloseMinSize","REG_DWORD",0)
;(*)有更新时提示
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","UpdateMode","REG_DWORD",1)
;[ ]显示暴风资讯窗口
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableMidAD","REG_DWORD",1)
;取消播放时赞助商推荐内容
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableNewClient","REG_DWORD",1)
;[ ]弹出推荐给我的消息
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableTips","REG_DWORD",1)
;去广告
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\bf") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\bf",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\DZone") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\DZone",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\HRTFDemo") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\HRTFDemo",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md") Then
DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md",1)
DirCreate(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\link",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\link","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\mat",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\mat","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\tt",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\tt","+R")
EndIf
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\MovieList") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\MovieList",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\msc") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\msc",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\userdialog") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\userdialog",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod") Then
DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod",1)
DirCreate(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\default_midAD",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\default_midAD","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\dsp",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\dsp","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\loading",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\loading","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\tips",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\tips","+R")
EndIf
IniWrite(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\config.ini","Welcome","ShowWelcome","0")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\dns.dat") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\dns.dat")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\skinlist.xml") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\skinlist.xml")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\stormpop.ini") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\stormpop.ini")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\sw.dat") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\sw.dat")
;删除文件(夹)
If FileExists(@ProgramFilesDir & "\Baofeng\PhoneAssistant") Then DirRemove(@ProgramFilesDir & "\Baofeng\PhoneAssistant",1)
If FileExists($Path & "\bin") Then DirRemove($Path & "\bin",1)
If FileExists($Path & "\DZone") Then DirRemove($Path & "\DZone",1)
If FileExists($Path & "\web") Then DirRemove($Path & "\web",1)
If FileExists($Path & "\webplayer") Then DirRemove($Path & "\webplayer",1)
If FileExists($Path & "\AppCenter.exe") Then FileDelete($Path & "\AppCenter.exe")
If FileExists($Path & "\BFGameManager.exe") Then FileDelete($Path & "\BFGameManager.exe")
If FileExists($Path & "\BFLp.exe") Then FileDelete($Path & "\BFLp.exe")
If FileExists($Path & "\BovShotcut64.dll") Then FileDelete($Path & "\BovShotcut64.dll")
If FileExists($Path & "\BovShotcut.dll") Then FileDelete($Path & "\BovShotcut.dll")
If FileExists($Path & "\BugReport.exe") Then FileDelete($Path & "\BugReport.exe")
If FileExists($Path & "\Crash.dll") Then FileDelete($Path & "\Crash.dll")
If FileExists($Path & "\dns.dll") Then FileDelete($Path & "\dns.dll")
If FileExists($Path & "\DZone.exe") Then FileDelete($Path & "\DZone.exe")
If FileExists($Path & "\FileTips64.dll") Then FileDelete($Path & "\FileTips.dll64")
If FileExists($Path & "\FileTips.dll") Then FileDelete($Path & "\FileTips.dll")
If FileExists($Path & "\gsc.dll") Then FileDelete($Path & "\gsc.dll")
If FileExists($Path & "\InstallApp.dll") Then FileDelete($Path & "\InstallApp.dll")
If FileExists($Path & "\InstallShell.dll") Then FileDelete($Path & "\InstallShell.dll")
If FileExists($Path & "\InstallStormPlayer.dll") Then FileDelete($Path & "\InstallStormPlayer.dll")
If FileExists($Path & "\libeay32.dll") Then FileDelete($Path & "\libeay32.dll")
If FileExists($Path & "\ListDownload.dll") Then FileDelete($Path & "\ListDownload.dll")
If FileExists($Path & "\ListMerge.dll") Then FileDelete($Path & "\ListMerge.dll")
If FileExists($Path & "\Log.dll") Then FileDelete($Path & "\Log.dll")
If FileExists($Path & "\LogExplorer.dll") Then FileDelete($Path & "\LogExplorer.dll")
If FileExists($Path & "\LogPlatform.dll") Then FileDelete($Path & "\LogPlatform.dll")
If FileExists($Path & "\MediaLibrary.dll") Then FileDelete($Path & "\MediaLibrary.dll")
If FileExists($Path & "\MediaLibraryIcon64.dll") Then FileDelete($Path & "\MediaLibraryIcon64.dll")
If FileExists($Path & "\MediaLibraryIcon.dll") Then FileDelete($Path & "\MediaLibraryIcon.dll")
If FileExists($Path & "\MediaLibraryUpdate.exe") Then FileDelete($Path & "\MediaLibraryUpdate.exe")
If FileExists($Path & "\OtherInst.exe") Then FileDelete($Path & "\OtherInst.exe")
If FileExists($Path & "\pfarr.dll") Then FileDelete($Path & "\pfarr.dll")
If FileExists($Path & "\popupplayer.exe") Then FileDelete($Path & "\popupplayer.exe")
If FileExists($Path & "\sqlite3.dll") Then FileDelete($Path & "\sqlite3.dll")
If FileExists($Path & "\stormpop.exe") Then FileDelete($Path & "\stormpop.exe")
If FileExists($Path & "\udm.dll") Then FileDelete($Path & "\udm.dll")
If FileExists($Path & "\unrar.dll") Then FileDelete($Path & "\unrar.dll")
If FileExists($Path & "\Update.dll") Then FileDelete($Path & "\Update.dll")
If FileExists($Path & "\urlsender.dll") Then FileDelete($Path & "\urlsender.dll")
If FileExists($Path & "\va_internet.dll") Then FileDelete($Path & "\va_internet.dll")
If FileExists($Path & "\Welcome.exe") Then FileDelete($Path & "\Welcome.exe")
;去暴风影视库
RegDelete("HKCR\CLSID\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKLM\SOFTWARE\Classes\CLSID\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKU\" & $SID & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
;刷新
DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0)
本帖最后由 zhaoyun 于 2016-5-14 07:15 编辑
楼主出现了两次错误不能进行下去 请修改下 回复 2# zhaoyun
贴出原版，经测试没问题的！
1、登记注册表路径，因为我使用安装器安装的。Windows Registry Editor Version 5.00
"Path"="C:\\Program Files"
2、安装脚本If ProcessExists("Baofeng5-5.52.0831.exe") Then Exit
$Path = RegRead("HKLM\SOFTWARE\ChiShingComputer","Path")
If StringLen($Path) < 16 Then
MsgBox(0,"错误","请使用软件安装器安装该程序！",3)
Exit
Else
$Path &= "\Baofeng\StormPlayer\"
EndIf
AutoItSetOption("MouseCoordMode",2)
ShellExecute(@ScriptDir & "\Baofeng5-5.52.0831.exe")
$Title1 = "安装 暴风影音5 正式版"
$Title2 = "安装提示"
$Title = WinWait("")
Sleep(500)
If StringInStr(WinGetTitle($Title),$Title2) Then
ControlClick($Title2,"","Button1")
Exit
EndIf
WinActivate($Title)
Do
Sleep(500)
Until ControlCommand($Title,"","","IsVisible")
ControlClick($Title,"","","left",1,469,368);点击开始安装
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow2","IsVisible");等待自定义安装设置
Sleep(200)
If ControlGetHandle($Title,""," & ";INSTANCE:1]") <> $Path Then ControlSetText($Title,""," & ";INSTANCE:1]",$Path)
Sleep(200)
ControlClick($Title,"","SkinWindow2","left",1,81,244);[ ]暴风影视库快捷方式
Sleep(200)
ControlClick($Title,"","SkinWindow2","left",1,81,268);[ ]暴风游戏及快捷方式
Sleep(200)
ControlClick($Title,"","SkinWindow2","",1,478,366);下一步
Sleep(200)
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow3","IsVisible");等待推荐界面
ControlClick($Title,"","SkinWindow3","",1,81,198);安装360安全卫士，最受欢迎的免费安全软件
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,81,222);安装百度工具栏
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,81,246);雷霆之怒-正版传奇网页游戏，重温经典传奇
Sleep(200)
ControlClick($Title,"","SkinWindow3","",1,478,366);下一步
Sleep(2500)
If ControlCommand($Title,"","SkinWindow4","IsVisible") Then ControlClick($Title,"","SkinWindow4","",1,475,367)
ProcessWait("MediaLibraryUpdate.exe",2)
ProcessClose("MediaLibraryUpdate.exe")
Do
Sleep(500)
Until ControlCommand($Title,"","SkinWindow5","IsVisible");等待立即体验
ProcessWait("BaofengPlatform.exe")
ProcessClose("BaofengPlatform.exe")
ProcessClose("Baofeng5-5.52.0831.exe")
;删除快捷方式
If FileExists(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音5.lnk") Then FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音5.lnk")
If FileExists(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影视库.lnk") Then FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影视库.lnk")
If FileExists(@ProgramsCommonDir & "\暴风软件\暴风影音5\检查更新.lnk") Then FileDelete(@ProgramsCommonDir & "\暴风软件\暴风影音5\检查更新.lnk")
If FileExists(@ProgramsCommonDir & "\暴风软件\暴风影音5\暴风影视库.lnk") Then FileDelete(@ProgramsCommonDir & "\暴风软件\暴风影音5\暴风影视库.lnk")
If FileExists(@MyDocumentsDir & "\暴风影视库") Then DirRemove(@MyDocumentsDir & "\暴风影视库",1)
;修改注册表
$wshNetwork = ObjCreate("WScript.Network")
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Account")
For $objItem In $colItems
If $objItem.Name = $wshNetwork.UserName Then
$SID = $objItem.SID
EndIf
Next
RegWrite("HKU\" & $SID & "\SOFTWARE\Baofeng\StormPlayer\UserConfig","ShowMovieBox","REG_DWORD",0)
;RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","BaofengPlatform")
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\Config\RepairAutoRun","AutoRun","REG_DWORD",0)
;高级选项
;退出时清空播放列表记录
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","CleanPlayListWhenQuit","REG_DWORD",1)
;[ ]启动时弹出暴风盒子
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","ShowMovieBox","REG_DWORD",0)
;[ ]开机时自动运行暴风
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","AutoRunApp","REG_DWORD",0)
;(*)退出程序
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","CloseMinSize","REG_DWORD",0)
;(*)有更新时提示
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","UpdateMode","REG_DWORD",1)
;[ ]显示暴风资讯窗口
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableMidAD","REG_DWORD",1)
;取消播放时赞助商推荐内容
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableNewClient","REG_DWORD",1)
;[ ]弹出推荐给我的消息
RegWrite("HKCU\SOFTWARE\Baofeng\StormPlayer\UserConfig","DisableTips","REG_DWORD",1)
;去广告
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\bf") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\bf",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\DZone") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\DZone",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\HRTFDemo") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\HRTFDemo",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md") Then
DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md",1)
DirCreate(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\link",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\link","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\mat",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\mat","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\tt",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\md\tt","+R")
EndIf
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\MovieList") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\MovieList",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\msc") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\msc",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\userdialog") Then DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\userdialog",1)
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod") Then
DirRemove(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod",1)
DirCreate(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\default_midAD",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\default_midAD","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\dsp",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\dsp","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\loading",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\loading","+R")
FileClose(FileWrite(FileOpen(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\tips",2),""))
FileSetAttrib(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\vod\tips","+R")
EndIf
IniWrite(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\config.ini","Welcome","ShowWelcome","0")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\dns.dat") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\dns.dat")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\skinlist.xml") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\skinlist.xml")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\stormpop.ini") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\stormpop.ini")
If FileExists(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\sw.dat") Then FileDelete(@AppDataCommonDir & "\Baofeng\StormPlayer\Profiles\sw.dat")
;删除文件(夹)
If FileExists(@ProgramFilesDir & "\Baofeng\PhoneAssistant") Then DirRemove(@ProgramFilesDir & "\Baofeng\PhoneAssistant",1)
If FileExists($Path & "\bin") Then DirRemove($Path & "\bin",1)
If FileExists($Path & "\DZone") Then DirRemove($Path & "\DZone",1)
If FileExists($Path & "\web") Then DirRemove($Path & "\web",1)
If FileExists($Path & "\webplayer") Then DirRemove($Path & "\webplayer",1)
If FileExists($Path & "\AppCenter.exe") Then FileDelete($Path & "\AppCenter.exe")
If FileExists($Path & "\BFGameManager.exe") Then FileDelete($Path & "\BFGameManager.exe")
If FileExists($Path & "\BFLp.exe") Then FileDelete($Path & "\BFLp.exe")
If FileExists($Path & "\BovShotcut64.dll") Then FileDelete($Path & "\BovShotcut64.dll")
If FileExists($Path & "\BovShotcut.dll") Then FileDelete($Path & "\BovShotcut.dll")
If FileExists($Path & "\BugReport.exe") Then FileDelete($Path & "\BugReport.exe")
If FileExists($Path & "\Crash.dll") Then FileDelete($Path & "\Crash.dll")
If FileExists($Path & "\dns.dll") Then FileDelete($Path & "\dns.dll")
If FileExists($Path & "\DZone.exe") Then FileDelete($Path & "\DZone.exe")
If FileExists($Path & "\FileTips64.dll") Then FileDelete($Path & "\FileTips.dll64")
If FileExists($Path & "\FileTips.dll") Then FileDelete($Path & "\FileTips.dll")
If FileExists($Path & "\gsc.dll") Then FileDelete($Path & "\gsc.dll")
If FileExists($Path & "\InstallApp.dll") Then FileDelete($Path & "\InstallApp.dll")
If FileExists($Path & "\InstallShell.dll") Then FileDelete($Path & "\InstallShell.dll")
If FileExists($Path & "\InstallStormPlayer.dll") Then FileDelete($Path & "\InstallStormPlayer.dll")
If FileExists($Path & "\libeay32.dll") Then FileDelete($Path & "\libeay32.dll")
If FileExists($Path & "\ListDownload.dll") Then FileDelete($Path & "\ListDownload.dll")
If FileExists($Path & "\ListMerge.dll") Then FileDelete($Path & "\ListMerge.dll")
If FileExists($Path & "\Log.dll") Then FileDelete($Path & "\Log.dll")
If FileExists($Path & "\LogExplorer.dll") Then FileDelete($Path & "\LogExplorer.dll")
If FileExists($Path & "\LogPlatform.dll") Then FileDelete($Path & "\LogPlatform.dll")
If FileExists($Path & "\MediaLibrary.dll") Then FileDelete($Path & "\MediaLibrary.dll")
If FileExists($Path & "\MediaLibraryIcon64.dll") Then FileDelete($Path & "\MediaLibraryIcon64.dll")
If FileExists($Path & "\MediaLibraryIcon.dll") Then FileDelete($Path & "\MediaLibraryIcon.dll")
If FileExists($Path & "\MediaLibraryUpdate.exe") Then FileDelete($Path & "\MediaLibraryUpdate.exe")
If FileExists($Path & "\OtherInst.exe") Then FileDelete($Path & "\OtherInst.exe")
If FileExists($Path & "\pfarr.dll") Then FileDelete($Path & "\pfarr.dll")
If FileExists($Path & "\popupplayer.exe") Then FileDelete($Path & "\popupplayer.exe")
If FileExists($Path & "\sqlite3.dll") Then FileDelete($Path & "\sqlite3.dll")
If FileExists($Path & "\stormpop.exe") Then FileDelete($Path & "\stormpop.exe")
If FileExists($Path & "\udm.dll") Then FileDelete($Path & "\udm.dll")
If FileExists($Path & "\unrar.dll") Then FileDelete($Path & "\unrar.dll")
If FileExists($Path & "\Update.dll") Then FileDelete($Path & "\Update.dll")
If FileExists($Path & "\urlsender.dll") Then FileDelete($Path & "\urlsender.dll")
If FileExists($Path & "\va_internet.dll") Then FileDelete($Path & "\va_internet.dll")
If FileExists($Path & "\Welcome.exe") Then FileDelete($Path & "\Welcome.exe")
;去暴风影视库
RegDelete("HKCR\CLSID\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKLM\SOFTWARE\Classes\CLSID\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
RegDelete("HKU\" & $SID & "\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{36AAB89D-9FF5-4128-9BAE-B9867A245192}")
;刷新
DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0)
1、可能粗略修改没测试，有个别修改出错的地方；
2、注意暴风影音的版本号；
脚本一般能通用最新版，但略要修改。 这脚本我只能保证此版本运行正常；因为这东西更新频繁，有时没理会它，一直用旧版。
暴风影音
名称：Baofeng5-5.52.0831.exe （注意版本号）
大小：44.9 MB (47,091,616 字节) 本帖最后由 zhaoyun 于 2016-5-16 06:35 编辑
回复 5# chishingchan
楼主请给个您使用的软件安装器和暴风Baofeng5-5.52.0831.exe的百度云或360云的下载地址好吗
这两个软件都找不到最好一起打包 谢谢 回复 6# zhaoyun
经测试! 适用最新暴风版本! 可惜去广告功能没有作用了!
页:
[1]