- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]我想监测主页不被串改，想提醒 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82100)
-- 发布时间：2016/3/11 14:07:00
-- [求助]我想监测主页不被串改，想提醒
Dim web As New
System.Windows.Forms.WebBrowser()
web.Navigate("http://eso.deqsafety.gov.cn/dqaj/")
Do Until
web.ReadyState = 4
Application.DoEvents
Loop
\'取数据网页标题
Dim data As String
= web.Document.title
msgbox(data)
\'取数据网页内容
data =
web.Document.Body.InnerText
msgbox(data)
但是网页兼容性问题，弹出提示框，应该怎么去屏蔽，不影响下面代码的执行？
此主题相关图片如下：qq截图20160311140415.png
[此贴子已经被作者于2016/3/11 14:07:24编辑过]
-- 发布时间：2016/3/11 14:57:00
--
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://eso.deqsafety.gov.cn/dqaj/", True)
XMLH.send(Nothing)
Do While XMLH.readyState <> 4
Application.DoEvents
Loop
Dim json As String = XMLH.responseText
msgbox(json)
用这个方式就不会有提示框了
-- 发布时间：2016/3/11 15:10:00
--
如果2楼的方法可以，那就那样做。
如果过你要webbrowser显示内容，同时也不希望有提示，就要把窗口去掉。
| 下载信息 [文件大小：300.0 KB 下载次数：18] | |
 点击浏览该文件:关闭任意对话框.table |