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

Posted 2023-05-06

文件 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窗体中写的，我不知道如何写，求助。

参考技术A

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

1.htm有几个？


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

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

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

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

参考技术B Public Sub test2(str)
msgbox str

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

请给一个实例，谢谢

追答

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

追问

试了，不好使啊

追答

还是没有效果？

追问

真的不好使呀

追答

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

追问

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

追答

私信发给我

vb Webbrowser中发生脚本运行错误，但是用WebBrowser1.Silent=true后相当网页还是运行不正常，该怎么解决

WebBrowser1.Silent=true的作用是在网页发生脚本错误时不弹出警告窗口，但是网页中的脚本错误仍然没有得到改正啊！这就好像一个人吃坏了肚子，胃胀不舒服，老放屁，好，你把他的屁眼堵上了，这下放不了屁了，耳根清净了，但他肚子涨的问题并没有得到解决啊！甚至还可能更糟！
所以，当务之急是改正网页上的脚本错误。如果网页是别人的，那就没办法了，WebBrowser不可能自动改正别人的网页的，否则的话，我把百度的首页改成自己的个人主页那不是易如反掌？追问

我在模拟点击一个网站的“创建”按钮，模拟点击时出现脚本运行错误，但是手动就没事，应该是网站动手脚了，网站也是别人的网站，真没办法了吗？万望赐教.

参考技术A 按照你说的手动点击不会报错，模拟点击就会，你看看它的代码是否还有其他的触发动作；尝试指定位置发送消息点击试试！追问

你好，能不能留个联系号码，万望赐教，谢谢。

追答

q4486 44099

本回答被提问者采纳