VB運行JS腳本

嘗試將這個私有函數escape (byval pstrinput as string)作為string。

Dim objScrCtl作為對象

set objScrCtl = CreateObject(" msscript control。ScriptControl”)

objScrCtl。Language = "JavaScript "

Unescape = objScrCtl。eval(" unescape(" & amp；輸出& amp')")

Set objScrCtl = Nothing

結束功能