×Ô¶¯µãÍøÒ³ÖеÄJavaScriptÁ´½Ó

‘µãÕý³£Á´½Ó·½·¨ºÜ¶à£¬ÕâÀï½éÉܵÄÊÇ×Ô¶¯µãJavaScriptÁ´½Ó
Function RunJS(scripts)
‘VB ×Ô¶¯µãÍøÒ³ÖеÄJavascriptÁ´½Ó
Dim Document
                On Error GoTo ErrHandle
                If scripts = "" Then Exit Function
Set Document = WebBrowser1.Document
                Document.ParentWindow.execScript scripts, "javascript"
                Exit Function
ErrHandle:
    MsgBox "Err"
End Function
‘——————
µ÷ÓãºCall RunJS(Javascript:jsfunci())