webbrowser里激活脚本？

已知一个脚本的函数名，我怎么样激活这个函数让它运行？

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim pSayHello As Object
    Dim doc As IHTMLDocument
    Set doc = WebBrowser1.Document
    Set pSayHello = doc.ScriptpSayHello.SayHello
    pSayHello.SayHelloWithStr "hello from vb"
    End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate "C:\Documents and Settings\Administrator\桌面\aa.htm"
    End Sub'aa.htm内容如下
    <script language="JavaScript">
    function SayHelloWithStr(str)
    {
    alert(str);
    }
    function SayHello()
    {
    alert("Hello from javascript");
    }
    </script><body><p>演示页面</p></body>
      

  2.   

    Private Sub Command1_Click()
    Dim pSayHello As Object
    Dim doc
    Set doc = WebBrowser1.Document
    Set pSayHello = doc.ScriptpSayHello.SayHello
    pSayHello.SayHelloWithStr "hello from vb"
    End SubPrivate Sub Form_Load()
    WebBrowser1.Navigate "aa.htm"
    End Sub