找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 软件安装 』 › 暴风影音 自动安装并去广告脚本
返回列表 发新帖
查看: 6091|回复: 6

[原创] 暴风影音 自动安装并去广告脚本

[复制链接]
chishingchan
发表于 2016-5-13 22:34:41 | 显示全部楼层 |阅读模式 
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("[REGEXPTITLE:" & $Title2 & "|" & $Title1 & "]")
Sleep(500)
If StringInStr(WinGetTitle($Title),$Title2) Then
        ControlClick($Title2,"","Button1")
        Exit
EndIf
WinActivate($Title)
Do
        Sleep(500)
Until ControlCommand($Title,"","[CLASS:SkinWindow; INSTANCE:1]","IsVisible")
ControlClick($Title,"","[CLASS:SkinWindow; INSTANCE:1]","left",1,469,368);点击开始安装
Do
        Sleep(500)
Until ControlCommand($Title,"","SkinWindow2","IsVisible");等待自定义安装设置
Sleep(200)
If ControlGetHandle($Title,"","[CLASS:" & StringSplit(WinGetClassList($Title),@LF)[3] & ";INSTANCE:1]") <> $Path Then ControlSetText($Title,"","[CLASS:" & StringSplit(WinGetClassList($Title),@LF)[3] & ";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)
;高级选项
;[v]退出时清空播放列表记录
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)
;[v]取消播放时赞助商推荐内容
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)
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
zhaoyun
发表于 2016-5-14 07:02:00 | 显示全部楼层
本帖最后由 zhaoyun 于 2016-5-14 07:15 编辑



楼主出现了两次错误不能进行下去 请修改下

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

chishingchan
 楼主| 发表于 2016-5-15 11:04:28 | 显示全部楼层
回复 2# zhaoyun

贴出原版，经测试没问题的！

1、登记注册表路径，因为我使用安装器安装的。
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\ChiShingComputer]
"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("[REGEXPTITLE:" & $Title2 & "|" & $Title1 & "]")
Sleep(500)
If StringInStr(WinGetTitle($Title),$Title2) Then
        ControlClick($Title2,"","Button1")
        Exit
EndIf
WinActivate($Title)
Do
        Sleep(500)
Until ControlCommand($Title,"","[CLASS:SkinWindow; INSTANCE:1]","IsVisible")
ControlClick($Title,"","[CLASS:SkinWindow; INSTANCE:1]","left",1,469,368);点击开始安装
Do
        Sleep(500)
Until ControlCommand($Title,"","SkinWindow2","IsVisible");等待自定义安装设置
Sleep(200)
If ControlGetHandle($Title,"","[CLASS:" & StringSplit(WinGetClassList($Title),@LF)[3] & ";INSTANCE:1]") <> $Path Then ControlSetText($Title,"","[CLASS:" & StringSplit(WinGetClassList($Title),@LF)[3] & ";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)
;高级选项
;[v]退出时清空播放列表记录
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)
;[v]取消播放时赞助商推荐内容
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)
回复

举报

chishingchan
 楼主| 发表于 2016-5-15 11:06:46 | 显示全部楼层
1、可能粗略修改没测试，有个别修改出错的地方；
2、注意暴风影音的版本号；

脚本一般能通用最新版，但略要修改。
回复

举报

chishingchan
 楼主| 发表于 2016-5-15 11:12:42 | 显示全部楼层
这脚本我只能保证此版本运行正常；因为这东西更新频繁，有时没理会它，一直用旧版。
暴风影音
名称：Baofeng5-5.52.0831.exe （注意版本号）
大小：44.9 MB (47,091,616 字节)
回复

举报

zhaoyun
发表于 2016-5-16 06:32:06 | 显示全部楼层
本帖最后由 zhaoyun 于 2016-5-16 06:35 编辑

回复 5# chishingchan

楼主请给个您使用的软件安装器和暴风Baofeng5-5.52.0831.exe的百度云或360云的下载地址好吗
这两个软件都找不到最好一起打包 谢谢
回复

举报

chishingchan
 楼主| 发表于 2016-5-16 08:13:46 | 显示全部楼层
回复 6# zhaoyun


    经测试! 适用最新暴风版本! 可惜去广告功能没有作用了!
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-21 19:27 , Processed in 0.072414 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表