On Error Resume Next
Dim fso,key,InstallPath,value
Set fso = CreateObject("Scripting.FileSystemObject")
key = "HKEY_CLASSES_ROOT\SOFTWARE\RealNetworks\Preferences\DT_Codecs\"
InstallPath = "C:\WINDOWS\system32\"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
If fso.FileExists(InstallPath & "RealMediaSplitter.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_ROOT\SOFTWARE\RealNetworks\Preferences\DT_Codecs\"
InstallPath = "C:\WINDOWS\system32\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
IF (WshShell.RegRead (key) <> vbNullString) Then
WshShell.RegDelete key
End If
If fso.FileExists(InstallPath & "pncrt.dll") Then
fso.DeleteFile("C:\WINDOWS\system32\pncrt.dll")
End If
If fso.FileExists(InstallPath & "RealMediaSplitter.ax") Then
fso.DeleteFile("C:\WINDOWS\system32\RealMediaSplitter.ax")
End If
保存为unstall.vbs
把这二个vbs脚本放到你建立的提取文件的目录下,绿色版本就OK了~用Windows Media Player 6.4可以解码90%的rm,rmvb文件了,而且吃资源很小。不过,这种方式不能播放一些极少数的rm文件。原因在于Real 媒体的 DirectShow 模式不支持流媒体的回放~官方的播放器解码这类rm文件时,通过pnen3260.dll调用了一些相应的插件。不过也是可以做成绿色版的,这次要把C:\Program Files\Common Files\Real\下的三个目录:Codecs,Common,Plugins提取出来放到你随意新建的一目录,RealMediaSplitter.ax和pncrt.dll放到你新建目录下的根目录~
我(原作者)给出我写的脚本,
安装的脚本:
install.vbs
Dim fso,value
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
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 & "DT_Plugins\"
End If