Html文件:
<script language="VBScript">
function test()
window.status="OKTEST"
window.status=""
End function
</script>
<input type="button" value="TEST" onclick="test()">
VB代码:
Private Sub Form_Load()
Me.WebBrowser1.Navigate "C:\xx\hhh.html"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If Text = "OKTEST" Then Form2.Show
End Sub
建立一个EXE再窗体上放置一个WebBrowser控件,改名为web
Private Sub Form_Load()
web.Navigate "c:\a.htm"
DoEvents
Do While web.Busy
DoEvents
Loop
Set web.Document.ParentWindow.obj = Me
End Sub