网页脚本(javascript)调用VB函数的另类方法

本文来源于 http://support.microsoft.com/kb/182033/en-us

不用通过IDocHostUIHandler接口，让网页调用VB程序中的函数的方法。
该方法原理是：在网页中通过导航到一个特定的自定义网址，这个网址
就表示我们要调用的VB中的函数，然后在WebBrowser控件的BeforeNavigate2 
事件处理函数中检测是否是我们自定义的网址，如果是，则根据不同的约定
调用不同的函数，从而间接实现从网页调用VB函数的目的
具体方法如下：
1、在VB中创建一个EXE工程，增加对Webbrowser控件的引用
2、在Form1中放上Webbrowser控件
3、在Webbrowser中导航到我们的网页，在这个网页中有调用VB函数的代码
      Private Sub Form_Load()
          WebBrowser1.Navigate "c:\mytest.htm"
      End Sub
4.增加我们的函数
Private Sub MyHello()
   MsgBox "Hello from VB APP"
   '在这里我们可以写入一些有用的信息当作函数的返回值供网页使用
   WebBrowser1.Document.All("field1").Value ="Hello from VB"
End Sub

private sub MyClose()
    If MsgBox("是否真的要退出?", vbYesNo) = vbYes Then
       unload me
    End If
end sub

4、增加Webbrowser的事件处理函数
      Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
           URL As Variant, Flags As Variant, _