?? install.vbs
字號(hào):
Dim fso,value
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
key = "HKEY_CLASSES_ROOT\SOFTWARE\RealNetworks\Preferences\"
InstallPath = "C:\WINDOWS\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?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -