VB 如何判断一个网页或网站 能否打开? 150
我想知道,怎么用VB来判断打开一个网页或者网站,在一定时间内能否打开?请高手详细说明步骤,谢谢~...
我想知道,怎么用VB来判断打开一个网页或者网站,在一定时间内能否打开?
请高手详细说明步骤,谢谢~ 展开
请高手详细说明步骤,谢谢~ 展开
4个回答
展开全部
在部件里选择Microsoft Internet Transfer Control 6.0添加Inet控件
Private Sub Command1_Click()
Inet1.OpenURL "" '用inet连接网页
aa = InStr(Inet1.GetHeader, "404") '判断页头是否包含字符“404”,返回0则不包含,否则返回其位置
If aa <> 0 Then '页头中包含404
MsgBox "网页不存在!" '则说明该网页不存在
Else '如果页头中不包含“404”
MsgBox "网页存在!" '说明网页存在
End If
End Sub
请参考
Private Sub Command1_Click()
Inet1.OpenURL "" '用inet连接网页
aa = InStr(Inet1.GetHeader, "404") '判断页头是否包含字符“404”,返回0则不包含,否则返回其位置
If aa <> 0 Then '页头中包含404
MsgBox "网页不存在!" '则说明该网页不存在
Else '如果页头中不包含“404”
MsgBox "网页存在!" '说明网页存在
End If
End Sub
请参考
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用VB访问网站的首页,成功发现某字符串则OK,反之则验证失败。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ping 他的服务器
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询