这里通过VBScript修改浏览器标题，触发VB内部的TitleChange而实现交互
网页代码：
<a onclick=VBScript:document.title="VB:test('X','Y','Z')">文字</a>
窗体代码：
Option Compare Text
Private Function Test(S1, S2, S3)
MsgBox S1 &S2 &S3
End Function
Private Sub Form_Load()
WebBrowser1.Navigate "e:\1.htm"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If Left(Text, 3) = "VB:" Then
Dim s As String, fncName As String, l As Long, args
s = Mid(Text, 4)
s = Replace(s, "(", " ")
s = Replace(s, ")", " ")
l = InStr(s, " ")
fncName = Trim(Left(s, l - 1))
args = Split(Mid(s, l), ",")
For i = 0 To UBound(args)
args(i) = Trim(args(i))
Next
Select Case fncName
Case "test"
Test args(0), args(1), args(2)
End Select
Else
Caption = Text
End If
End Sub
在JavaScript中，使用window.alert()函数可以模拟VB中的MsgBox()方法。window.alert()函数可以弹出一个对话框，显示一段文本，并等待用户点击“确定”按钮。该函数返回一个布尔值，表示用户是否点击了“确定”按钮。使用window.alert()函数的语法如下：
window.alert(message)
其中，message是要显示的文本，可以是字符串、数字或其他类型的值。
例如，要弹出一个对话框，显示“Hello World”，可以使用如下代码：
window.alert("Hello World")
当用户点击“确定”按钮后，window.alert()函数会返回true，否则返回false。
因此，要模拟VB中的MsgBox()方法，可以使用window.alert()函数，它可以弹出一个对话框，显示一段文本，并等待用户点击“确定”按钮。
