Question

vb6使用Webbrowser1，点击网页里面的按钮，触发网页的js时，触发vb中定义的事件

文件 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内输入？
我已经把所有的分数都悬赏了，真不好意思，分数太低。
文件 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窗体中写的，我不知道如何写，求助。

Answer 1

看了你的提问我也有了疑问：

1. 1.htm有几个？
   

2. Set mICustomDoc = Me.WebBrowser1.Document
       mICustomDoc.SetUIHandler Me

      这个代码里面，SetUIHandler方法来自何方？可能是你自己写了个加强型类模块？

看到“（这个页面结构我是无权限改动的，我只有权限改动vb中的代码）”这句我就望而却步了，我的办法是废弃掉HTM文件里的所有执行代码，HTM文件只负责布局，执行代码都集中到VB程序里。

还有个办法是找到mICustomDoc.SetUIHandler Me的逆操作，文本框（如果能）取得焦点，就采取该逆操作，使得文本框能够输入。文本框取得焦点的时候最好添加个遮布来屏蔽页面其他元素，如果这样，文本框也就不如没有好。

Answer 2

Public Sub test2(str)
msgbox str

改成一个空函数试试，说不定与msgbox 有关系

追问

请给一个实例，谢谢

追答

改成赋值试试
Public Sub test2(str)
str="abc"

追问

试了，不好使啊

追答

还是没有效果？

追问

真的不好使呀

追答

发你网页地址出来，我试试 你想要输入哪个input也贴出来

追问

文件 1.htm （这个页面结构我是无权限改动的，我只有权限改动vb中的代码，这个页面现在也不存在网上，只能本地模拟一下，问题中有源码，追问有长度限制写不出）

追答

私信发给我