咖啡渣怎样用去甲醛:用VB如何判断一个网页是否存在呢?

来源:百度文库 编辑:高考问答 时间:2024/04/29 09:07:28
比如
www.cctv.com/index.htm如何用vb程序来判断是否存在?
怎么能分析返回的页面代码是正常页还是404?

在部件里选择Microsoft Internet Transfer Control 6.0添加Inet控件

Private Sub Command1_Click()
Inet1.OpenURL "www.cctv.com/index.htm" '用inet连接网页
aa = InStr(Inet1.GetHeader, "404") '判断页头是否包含字符“404”,返回0则不包含,否则返回其位置
If aa <> 0 Then '页头中包含404
MsgBox "网页不存在!" '则说明该网页不存在
Else '如果页头中不包含“404”
MsgBox "网页存在!" '说明网页存在
End If
End Sub

和一楼一样呀我学过