在已经可以正常使用暴风影音的机子上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解码器用的），然后你就可以安装暴风影音了。