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

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

共有5341人关注过本帖树形打印复制链接主题：[求助]关于操作网页，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编辑过]