CODE: [Copy to clipboard]
'By est, electronicstar@126.com
'Copyright CN-DOS
set oSh=CreateObject("WScript.Shell")
If lcase(right(WScript.FullName,11))="wscript.exe" Then
oSh.Run "cmd /ccscript //NoLogo //e:vbscript " & WScript.ScriptFullName
WScript.Quit
End If
Set objDOM = CreateObject("htmlfile")
objDOM.write "<html><body><div id='targetDiv'></div></body></html>"
Set targetDiv=objDOM.getElementById("targetDiv")
targetDiv.innerText=WScript.StdIn.ReadAll
WScript.Echo objDOM.documentElement.outerHTML
用法