[求助]关于操作网页，JS弹出框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于操作网页，JS弹出框

共有4889人关注过本帖树形打印复制链接主题：[求助]关于操作网页，JS弹出框

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/19 20:25:00 [显示全部帖子]

加载完毕以后，把alert，confirm等都清空，参考来修改。

IHTMLWindow2 win = (IHTMLWindow2)webBrowser1.Document.Window.DomWindow;

String s = "window.alert = null;rnwindow.confirm = null;rnwindow.open = null;rnwindow.showModalDialog = null";

win.execScript(s, javascript);

[此贴子已经被作者于2014-1-19 20:25:28编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/19 20:26:00 [显示全部帖子]

或者这样

webBrowser1.Document.InvokeScript("eval", new string() { "window.alert = null;" });

[此贴子已经被作者于2014-1-19 20:28:02编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/19 21:05:00 [显示全部帖子]

你用3楼或者 4楼的代码，自己修改一下。

实在做不好，请上传一个例子，具体问题要具体分析

[此贴子已经被作者于2014-1-19 21:05:19编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/19 21:07:00 [显示全部帖子]

你的是confirm，还是alert？如果是confirm，请对应的改一下。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/1/19 21:49:00 [显示全部帖子]

我测试了一下，用下面的代码可以自动退出

Dim web As Windows.Forms.WebBrowser

web = e.Form.Controls("Webbrowser1").baseControl

'------'退出程序'--------------'

Dim win As object = web.Document.Window.DomWindow

Dim s As String= "window.alert = null; window.confirm = function() {return true}; window.open = null; window.showModalDialog = null"

win.execScript(s, "javascript")

If web.Document.Body.OuterHtml.Contains("退出") Then

web.Document.GetElementById("tb_logout").InvokeMember("click")

End If

下一主题 >> << 上一主题

主题：[求助]关于操作网页，JS弹出框