WebBrowser弹出窗口问题

完整解决代码给不了，可以给出方向
IDocHostShowUI接口的ShowMessage方法如果是alert函数的话那么可以直接屏蔽，或者用sendmessage关闭它。
在webbrowser中屏蔽的办法是：

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

    WebBrowser1.Document.parentWindow.execScript "window.alert=null;"

End Sub

如果是div绘制的“窗口”，那么就只能去操作网页了，执行某个input元素的点击事件等等。 Findwindow +SendMessage 各位，这个是个消息框

引用 4 楼 hpygzhx520 的回复:

各位，这个是个消息框

是的，通过js代码alert或者confirm函数弹出的对话框都可以的。

Dim window As New clsWindow

If window.getWindowHwndByTitle("来自网页的消息") > 0 Then

    If window.ClickElementByText("确定") > 0 Then MsgBox "点击成功！"

End If

clsWindow是个由各种api封装的windows窗口操作的类，需要的话发给你

引用 5 楼 sysdzw 的回复:

引用 4 楼 hpygzhx520 的回复:

各位，这个是个消息框
是的，通过js代码alert或者confirm函数弹出的对话框都可以的。

VB code
Dim window As New clsWindow
If window.getWindowHwndByTitle("来自网页的消息") > 0 Then
If window.ClickElementByText(……

您好~这是我的邮箱：maiguangyang@163.com，麻烦发一份给我，谢谢了

引用 5 楼 sysdzw 的回复:

引用 4 楼 hpygzhx520 的回复:

各位，这个是个消息框
是的，通过js代码alert或者confirm函数弹出的对话框都可以的。

VB code
Dim window As New clsWindow
If window.getWindowHwndByTitle("来自网页的消息") > 0 Then
If window.ClickElementByText(……

你好，monkey125@gmail.com，麻烦也发一份给我吧，谢谢

引用 6 楼 qq342977151 的回复:

引用 5 楼 sysdzw 的回复:

引用 4 楼 hpygzhx520 的回复:

各位，这个是个消息框
是的，通过js代码alert或者confirm函数弹出的对话框都可以的。

VB code
Dim window As New clsWindow
If window.getWindowHwndByTitle("来自网页的消息") > 0 Then
If window……

已经上传到csdn了，自己下载吧。
http://download.csdn.net/detail/sysdzw/3862568

一楼的图片之前没看到，本机被屏蔽了外网。刚刚才看到，你把"来自网页的消息"换成你那个里面的窗口标题即可。我是新手，请问一下是不是所有浏览器上都实用！

引用 9 楼 mingying57 的回复:

我是新手，请问一下是不是所有浏览器上都实用！

跟浏览器没关系，是处理windows桌面程序相关，只要有句柄，有类名，有文本内容都好办
就想网页里的document对象可以访问所有按钮输入框什么的，用getElementByxxxx之类的或者得到一个集合然后根据索引。 ·····路过看看

补充：VB ,  非技术类