vb6中含webbrowser，点击网页里面的事件触发vb6事件

文件 1.htm
<input type='text' />
<a href="javascript:test('abc');">执行</a>
<script>
function test(str){
    window.external.test2(str);
}
</script>
 
文件 1.exe
Private Sub Form_Load()
WebBrowser1.Navigate2("1.htm")
End Sub
Public Sub test2(str)    
msgbox str
End Sub

只贴了核心代码，意思是vb6做的一个窗体中含有WebBrowser控件，点击控件里的网页，触发了vb中的事件，该部分代码已经完成，但是出现一个问题，就是网页中的input竟然无法输入，请问如何解决此问题？
Private Sub Webbrowser1_DownloadComplete()
    Set mICustomDoc = Me.WebBrowser1.Document
    mICustomDoc.SetUIHandler Me
End Sub
'保留该代码时点击网页可以触发vb事件，但是不能在网页中input内输入
‘删除此代码后点击网页无法触发vb事件，但是可以在网页中input内输入
请问我如何做到既能点击网页执行vb事件，又能在网页中input内输入？
我已经把所有的分数都悬赏了，真不好意思，分数太低。

8 个解决方案

#1

你把那代码中注释掉的恢复后就可以了

#2

不过，用得着那么费事吗?
直接拦截beforenavigate2不是更简单直接吗？

#3

还有document的onclick也可以做文章的.....

#4

无法在网页中input内输入是因为test2 中msgbox str 的原因,把这句去掉就可以了,不能有阻塞线程的语句.

#5

引用 2 楼 Topc008 的回复:

不过，用得着那么费事吗?
直接拦截beforenavigate2不是更简单直接吗？

文件 1.htm （这个页面结构我是无权限改动的，我只有权限改动vb中的代码）
 <input type='text' />（这个文本域是要运行输入的）
 <a  href="javascript:void(0);" onclick="test('abc')“>执行</a>
 <script>
 function test(str){
    if (window.external.IsGo1) {
        window.external.test2(str);
    }
 }
 </script>
vb窗体中WebBrowser1.Navigate2("1.htm")后，点击1.htm中的“执行”后，要检查IsGo1，为真时执行test2
IsGo1 和 test2 都是要在vb窗体中写的，我不知道如何写，求助。

#6

引用 1 楼 Topc008 的回复:

你把那代码中注释掉的恢复后就可以了

要不就贴出能调试的代码，残缺不全的代码咋调试........

#7

引用 6 楼 Topc008 的回复:

Quote: 引用 1 楼 Topc008 的回复:

你把那代码中注释掉的恢复后就可以了

要不就贴出能调试的代码，残缺不全的代码咋调试........

文件 1.htm （这个页面结构我是无权限改动的，我只有权限改动vb中的代码）
 <input type='text' />（这个文本域是要运行输入的）
 <a  href="javascript:void(0);" onclick="test('abc')“>执行</a>
 <script>
 function test(str){
    if (window.external.IsGo1) {
        window.external.test2(str);
    }
 }
 </script>
vb窗体中WebBrowser1.Navigate2("1.htm")后，点击1.htm中的“执行”后，要检查IsGo1，为真时执行test2
IsGo1 和 test2 都是要在vb窗体中写的，我不知道如何写，求助。 

#8

引用 6 楼 Topc008 的回复:

Quote: 引用 1 楼 Topc008 的回复:

你把那代码中注释掉的恢复后就可以了

要不就贴出能调试的代码，残缺不全的代码咋调试........

详细代码已经贴在 http://bbs.csdn.net/topics/390771380