在已經(jīng)可以正常使用暴風(fēng)影音的機(jī)子上copy "C:\Program Files\Common Files\real"目錄和“c:\windows\system32\pncrt.dll文件到你的機(jī)器"C:\Program Files\Common Files\real"位置上,real目錄里應(yīng)該包含: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("您的系統(tǒng)可能已安裝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("您的系統(tǒng)可能已安裝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
運(yùn)行install.vbs和realinstall.vbs,(unstall和realunstall是卸載real解碼器用的),然后你就可以安裝暴風(fēng)影音了。