Question

用VB如何判断一个网页是否存在呢?

比如
www.cctv.com/index.htm如何用vb程序来判断是否存在?
怎么能分析返回的页面代码是正常页还是404?

Answer 1

在部件里选择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

Answer 2

和一楼一样呀我学过