教你如何去除暴风影音广告
暴风影音全球领先的万能播放软件,支持格式最多，有精简的界面，功能完善，操作简单等特点。不过有点美中不足的是暴风影音播放器上嵌套了广告，这点令笔者非常惋惜，如此好的播放器竟然被这污点糟蹋了。
让广告去无踪，一直是笔者对暴风影音的期待。不过，暴风那边一直对这问题没什么改善。求人不如求己，于是笔者不断在找寻暴风影音去广告的方法，终于让笔者在茫茫网海里找到了暴风去广告的方法，下面给大家分享一下，还暴风影音一个干爽的界面，莫再受广告的侵扰。
去除暴风影音的广告的方法如下：
找到影音的安装位置，然后在StormII目录的media文件夹下面找到video_style_list.xml 文件和stcon.ini文件这两个文件，用记事本方式打开他们，操作方法，找到文件——右键——打开方式——记事本，然后清空里面的内容，再设置它们的属性为只读，最后保存文件退出就大功告成了。原因很简单，因为播放器就是从stcon.ini文件里来读取广告信息的。再打开暴风影音看看，讨厌的广告是不是消失得无影无踪。 你直接到暴风影音安装目录里面！找到Media2.dll 去掉消息栏图标：C:\\Program Files\\StormII中找到stMgr.exe，XP或VISTA下（NTFS格式）删除其所有权限，FAT32可能要删除（未测试），如不想自动更新的还可以把...
还有一个很简单的方法:只要运行一个vbs脚本就可以搞定了..
脚本程序:
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
strComputer = \".\"
Set objWMIService = GetObject(\"winmgmts:\" _
& \"{impersonationLevel=impersonate}!\\\\\" & strComputer & \"\\root\\cimv2\") Set colServiceList = objWMIService.ExecQuery(\"Associators of \" _ & \"{Win32_Service.Name=’NetDDE’} Where \" _
& \"AssocClass=Win32_DependentService \" & \"Role=Antecedent\" ) For each objService in colServiceList objService.StopService() Next
Set colServiceList = objWMIService.ExecQuery _
(\"Select * from Win32_Service where Name=’ccosm’\") For each objService in colServiceList errReturn = objService.StopService() Next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’Storm.exe’\") for each i in x
i.terminate() next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’Stline.exe’\") for each i in x i.terminate() next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’stormliv.exe’\") for each i in x i.terminate() next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’stMgr.exe’\") for each i in x i.terminate() next
on error resume next Wscript.Sleep 20000
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\Media2.dll\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stormply.exe\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stormliv.exe\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stMgr.exe\")
set objfso=createobject(\"scripting.filesystemobject\") objfso.deletefolder\".\\media\
set objfso=createobject(\"scripting.filesystemobject\") objfso.deletefolder\".\\swf\
set objfso=createobject(\"scripting.filesystemobject\")
objfso.Createfolder\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\"
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
Set objFile = objFSO.CreateTextFile(\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\e.exe\") Set objFSO = CreateObject(\"Scripting.FileSystemObject\") Set objFile = objFSO.CreateTextFile(\".\\stormliv.exe\") On Error Resume Next
Set a = CreateObject(\"Scripting.FileSystemObject\") a.GetFile(\".\\stormliv.exe\").Attributes = 1 On Error Resume Next
Set a = CreateObject(\"Scripting.FileSystemObject\")
a.GetFile(\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\e.exe\").Attributes = 1 Dim objws
Set objws=WScript.CreateObject(\"wscript.shell\") objws.Run \".\\Storm.exe\"
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
只有把以上代码保存为vbs文件（如：破解.vbs)。放在暴风安装的文件夹里运行就行了..
解释一下代码，不然你可能不敢运行，呵呵 strComputer = \".\"
Set objWMIService = GetObject(\"winmgmts:\" _
& \"{impersonationLevel=impersonate}!\\\\\" & strComputer & \"\\root\\cimv2\") Set colServiceList = objWMIService.ExecQuery(\"Associators of \" _ & \"{Win32_Service.Name=’NetDDE’} Where \" _
& \"AssocClass=Win32_DependentService \" & \"Role=Antecedent\" ) For each objService in colServiceList objService.StopService() Next
Set colServiceList = objWMIService.ExecQuery _
(\"Select * from Win32_Service where Name=’ccosm’\") For each objService in colServiceList errReturn = objService.StopService() Next
........................................
结束ccosm 服务项，暴风的更新服务 也保护 stMgr.exe 这个文件
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’Storm.exe’\") for each i in x i.terminate() next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’Stline.exe’\") for each i in x i.terminate() next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’stormliv.exe’\") for each i in x i.terminate()
next
set y=getobject(\"winmgmts:\\\\.\\root\\cimv2\")
set x=y.execquery(\"select * from win32_process where name=’stMgr.exe’\") for each i in x i.terminate() next
.........................................
结束以上进程 ’Storm.exe’ ’Stline.exe’ ’stormliv.exe’ ’stMgr.exe’
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\Media2.dll\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stormply.exe\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stormliv.exe\")
Set objFSO = CreateObject(\"Scripting.FileSystemObject\") objFSO.DeleteFile(\".\\stMgr.exe\")
set objfso=createobject(\"scripting.filesystemobject\") objfso.deletefolder\".\\media\
set objfso=createobject(\"scripting.filesystemobject\") objfso.deletefolder\".\\swf\
.............................................
删除 Media2.dll 去滚动广告 stormply.exe 没用的程序 stormliv.exe 广告来源，也是升级程序
stMgr.exe 开机启动，系统托盘那个
media swf 没用的文件夹
objfso.Createfolder\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\"
Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
Set objFile = objFSO.CreateTextFile(\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\e.exe\") Set objFSO = CreateObject(\"Scripting.FileSystemObject\") Set objFile = objFSO.CreateTextFile(\".\\stormliv.exe\") On Error Resume Next
Set a = CreateObject(\"Scripting.FileSystemObject\") a.GetFile(\".\\stormliv.exe\").Attributes = 1 On Error Resume Next
Set a = CreateObject(\"Scripting.FileSystemObject\") a.GetFile(\"C:\\Documents and Settings\\All Users.WINDOWS\\Application Data\\Storm\\Temp\e.exe\").Attributes = 1 Dim objws
