在已经可以正常使用暴风影音的机子上copy "C:\Program Files\Common Files\real"目录和“c:\windows\system32\pncrt.dll文件到你的机器"C:\Program Files\Common Files\real"位置上,real目录里应该包含:Codecs,Common,Plugins三个子目录,将codecs目录里的全部文件(隐含文件)copy到real目录里,在百度搜索RealMediaSplitter.ax文件到real目录里,在real目录里新建一记事本文件:(粘贴下面命令)
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:\WINNT\system32\"
Set WshShell = Wscript.CreateObject("Wscript.Shell")
value = WshShell.RegRead (key) <> 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 & "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:\WINNT\system32\"
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:\WINNT\system32\pncrt.dll")
End If
If fso.FileExists(InstallPath & "RealMediaSplitter.ax") Then
fso.DeleteFile("C:\WINNT\system32\RealMediaSplitter.ax")
End If
保存为unstall.vbs
新建realinstall.vbs
Dim fso,value
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
key = "HKEY_CLASSES_ROOT\SOFTWARE\RealNetworks\Preferences\"
InstallPath = "C:\WINNT\system32\"
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("您的系统可能已安装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" ,InstallPath
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.CreateObject("Wscript.Shell")
key = "HKEY_CLASSES_ROOT\SOFTWARE\RealNetworks\Preferences\"
InstallPath = "C:\WINNT\system32\"
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
WshShell.run("regsvr32.exe RealMediaSplitter.ax /u")
If fso.FileExists(InstallPath & "pncrt.dll") Then
fso.DeleteFile("C:\WINNT\system32\pncrt.dll")
End If
If fso.FileExists(InstallPath & "RealMediaSplitter.ax") Then
fso.DeleteFile("C:\WINNT\system32\RealMediaSplitter.ax")
End If
运行install.vbs和realinstall.vbs,(unstall和realunstall是卸载real解码器用的),然后你就可以安装暴风影音了。