去除暴风影音2009广告的方法！

暴风影音挺好用，但是它程序带广告，实在太烦人！在网上浏览了一下，发现很多去广告的办法，试了一下，还可以（图片是播放暂停的时候哦），没有广告以后，啊，舒服！这个世界清静了！转载大伙去广告的方法，以供参考:

 

安装了暴风影音2009以后，这个stormliv.exe后台运行程序是带广告的根源！

1、首先是stormliv.exe的后台进程
开始→运行 →msconfig
先打开“服务”，找到Contrl center of Strom Media，并禁用。
不会操作可以使用优化大师或者安全360之类的软件关闭这个进程。

2、找到暴风影音MEDIA文件夹
找到video_style_list.xml，右键编辑，删除里面所有的http网址。保存后，属性修改为只读（要去除存档）。

3、另外打开同文件夹下的stcon.ini删除内容，编辑其属性为只读（要去除存档）。

4、把media文件夹下的三歌后缀名为swf的文件删掉（这是删除顶部的按钮）。

video_style_list.xml和stcon.ini这两个文件，播放器是从stcon.ini文件里来读取广告信息的。

现在的暴风影音很好看，OK了

教你如何去除暴风影音广告
    暴风影音全球领先的万能播放软件,支持格式最多，有精简的界面，功能完善，操作简单等特点。不过有点美中不足的是暴风影音播放器上嵌套了广告，这点令笔者非常惋惜，如此好的播放器竟然被这污点糟蹋了。

　　 让广告去无踪，一直是笔者对暴风影音的期待。不过，暴风那边一直对这问题没什么改善。求人不如求己，于是笔者不断在找寻暴风影音去广告的方法，终于让笔者在茫茫网海里找到了暴风去广告的方法，下面给大家分享一下，还暴风影音一个干爽的界面，莫再受广告的侵扰。

去除暴风影音的广告的方法如下：
　　找到影音的安装位置，然后在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",true
set objfso=createobject("scripting.filesystemobject")   
objfso.deletefolder".\swf",true
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\update.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\update.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",true
set objfso=createobject("scripting.filesystemobject")   
objfso.deletefolder".\swf",true
.............................................
删除 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\update.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\update.exe").Attributes = 1
Dim objws  
Set objws=WScript.CreateObject("wscript.shell")  
objws.Run ".\Storm.exe"
.................................................
创建C:\Documents and Settings\All Users.WINDOWS\Application Data\Storm\Temp
temp文件夹

Temp\update.exe
创建update.exe文件
修补程序   会恢复stormliv.exe 等被删除的程序

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(".\stormliv.exe")
在你运行的文件夹下创建stormliv.exe文件
On Error Resume Next
Set a = CreateObject("Scripting.FileSystemObject")
a.GetFile(".\stormliv.exe").Attributes = 1
修改文件属性为只读。

Dim objws  
Set objws=WScript.CreateObject("wscript.shell")  
objws.Run ".\Storm.exe"
运行暴风影音
这时广告以去除

来源：http://hi.baidu.com/heishu2008/blog/item/2428b64629efe6016a63e5b9.html

http://blog.csdn.net/donitz126/archive/2009/03/16/3994743.aspx