VB运行JS脚本？

试试这个 Private Function Unescape(ByVal pstrInput As String) As String Dim objScrCtl As Object Set objScrCtl = CreateObject("MSScriptControl.ScriptControl") objScrCtl.Language = "JavaScript" Unescape = objScrCtl.Eval("unescape('" & pstrInput & "')") Set objScrCtl = NothingEnd Function

顶一下

(0)

0%

踩一下

(0)

0%