《暴风影音不能播放rmvb的和无法安装real解码器的解决方法.doc》由会员分享，可在线阅读，更多相关《暴风影音不能播放rmvb的和无法安装real解码器的解决方法.doc（3页珍藏版）》请在金锄头文库上搜索。
1、暴风影音不能播放rmvb的和无法安装real解码器的解决方法 暴风影音不能播放rmvb的和无法安装real解码器的解决方法 在已经可以正常使用暴风影音的机子上copy C:Program FilesCommon Filesreal目录和“c:windowssystem32pncrt.dll文件到你的机器C:Program FilesCommon Filesreal位置上，real目录里应该包含:Codecs,Common,Plugins三个子目录，将codecs目录里的全部文件（隐含文件）copy到real目录里，在百度搜索RealMediaSplitter.ax文件到real目录里，在rea
2、l目录里新建一记事本文件：（粘贴下面命令） On Error Resume Next Dim fso,key,InstallPath,value Set fso = CreateObject(Scripting.FileSystemObject) key = HKEY_CLASSES_ROOTSOFTWARERealNetworksPreferencesDT_Codecs InstallPath = C:WINNTsystem32 Set WshShell = Wscript.CreateObject(Wscript.Shell) value = WshShell.RegRead (key)
3、vbNullString If (value) Then MsgBox(您的系统可能已安装Real解码器了) Else FullName = WScript.ScriptFullName ScriptName = WScript.ScriptName RealcodePath = Left(FullName,Len(FullName)-Len(ScriptName) wshshell.RegWrite key ,RealcodePath fso.CopyFile pncrt.dll ,InstallPath If fso.FileExists(InstallPath & RealMed
4、iaSplitter.ax)=false Then fso.CopyFile RealMediaSplitter.ax ,InstallPath End If WshShell.run (regsvr32.exe RealMediaSplitter.ax) End If 保存为install.vbs 再建立一记事本文件 On Error Resume Next Dim fso,key,InstallPath key = HKEY_CLASSES_ROOTSOFTWARERealNetworksPreferencesDT_Codecs InstallPath = C:WINNTsystem32
5、Set fso = CreateObject(Scripting.FileSystemObject) Set WshShell = Wscript.CreateObject(Wscript.Shell) IF (WshShell.RegRead (key) vbNullString) Then WshShell.RegDelete key End If WshShell.run(regsvr32.exe RealMediaSplitter.ax /u) If fso.FileExists(InstallPath & pncrt.dll) Then fso.DeleteFile(C:WI
6、NNTsystem32pncrt.dll) End If If fso.FileExists(InstallPath & RealMediaSplitter.ax) Then fso.DeleteFile(C:WINNTsystem32RealMediaSplitter.ax) End If 保存为unstall.vbs 新建realinstall.vbs Dim fso,value Set fso = CreateObject(Scripting.FileSystemObject) Set WshShell = Wscript.CreateObject(Wscript.Shell)
7、key = HKEY_CLASSES_ROOTSOFTWARERealNetworksPreferences InstallPath = C:WINNTsystem32 FullName = WScript.ScriptFullName ScriptName = WScript.ScriptName RealcodePath = Left(FullName,Len(FullName)-Len(ScriptName) On Error Resume Next value = WshShell.RegRead (key) vbNullString If (value) Then MsgBox(您的
8、系统可能已安装Real解码器了) Else wshshell.RegWrite key & DT_Codecs,RealcodePath & Codecs wshshell.RegWrite key & DT_Common,RealcodePath & Common wshshell.RegWrite key & DT_Plugins,RealcodePath & Plugins If fso.FileExists(InstallPath & pncrt.dll)=false Then fso.CopyFile pncrt.dll ,In
9、stallPath End If If fso.FileExists(InstallPath & RealMediaSplitter.ax)=false Then fso.CopyFile RealMediaSplitter.ax ,InstallPath End If WshShell.run (regsvr32.exe RealMediaSplitter.ax) End If 新建realunstall.vbs Dim fso Set fso = CreateObject(Scripting.FileSystemObject) Set WshShell = Wscript.Crea
10、teObject(Wscript.Shell) key = HKEY_CLASSES_ROOTSOFTWARERealNetworksPreferences InstallPath = C:WINNTsystem32 On Error Resume Next IF (WshShell.RegRead (key & DT_Codecs) vbNullString) Then WshShell.RegDelete key & DT_Codecs WshShell.RegDelete key & DT_Common WshShell.RegDelete key & D
11、T_Plugins End If WshShell.run(regsvr32.exe RealMediaSplitter.ax /u) If fso.FileExists(InstallPath & pncrt.dll) Then fso.DeleteFile(C:WINNTsystem32pncrt.dll) End If If fso.FileExists(InstallPath & RealMediaSplitter.ax) Then fso.DeleteFile(C:WINNTsystem32RealMediaSplitter.ax) End If 运行install.vbs和realinstall.vbs,（unstall和realunstall是卸载real解码器用的），然后你就可以安装暴风影音了。 Powered by 无名小鬼
