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


  共有4887人关注过本帖树形打印复制链接

主题：[求助]关于操作网页，JS弹出框
帅哥哟，离线，有人找我吗？
kllm868
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		[求助]关于操作网页，JS弹出框  发帖心情 Post By：2014/1/19 20:13:00 [只看该作者]

我在操作网页的时候，会出现 js弹出的询问框，我不想手动点击，

用FOX 改怎么办

Dim web As Windows.Forms.WebBrowser

web = e.Form.Controls("weburl").baseControl
web.Document.GetElementById("tb_logout").InvokeMember("click")

点击这里后 会出现是否确认退出

用FOX 怎么做才能自动点击 或者隐藏操作

 

这里是编辑的

Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("weburl").baseControl
'------'退出程序'--------------'
web.Document.InvokeScript("eval", new String() { "window.alert = null;" })
If web.Document.Body.OuterHtml.Contains("退出") Then
web.Document.GetElementById("tb_logout").InvokeMember("click")
End If

帮看看为什么不好用 还是有提示 是否确定退出

[此贴子已经被作者于2014-1-19 20:39:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kllm868
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		  发帖心情 Post By：2014/1/19 20:14:00 [只看该作者]

web.Document.InvokeScript("function confirm(){return true;}")
加上这句 也没反应

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
kllm868
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		我运行出错  发帖心情 Post By：2014/1/19 20:32:00 [只看该作者]

我运行出错

 回到顶部
帅哥哟，离线，有人找我吗？
kllm868
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		  发帖心情 Post By：2014/1/19 20:36:00 [只看该作者]

我看你修改过 不出错了 但是不好用

 回到顶部
帅哥哟，离线，有人找我吗？
kllm868
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		  发帖心情 Post By：2014/1/19 20:37:00 [只看该作者]

Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("weburl").baseControl
'------'退出程序'--------------'
web.Document.InvokeScript("eval", new String() { "window.alert = null;" })
If web.Document.Body.OuterHtml.Contains("退出") Then
web.Document.GetElementById("tb_logout").InvokeMember("click")
End If

 

我贴代码帮我看一下
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/1/19 21:07:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
kllm868
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：32 积分：316 威望：0 精华：0 注册：2013/9/14 8:50:00 		  发帖心情 Post By：2014/1/19 21:28:00 [只看该作者]

confirm

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询