怎么判断一个url链接是否有效(帮顶有分)

如何判断一个url链接是否有效(帮顶有分)
如题，如何判断一个url是否有效。
找到的资料都是说.net的，那位能告诉我vb6该怎么做。


------解决方案--------------------
if IfConnected( "www.sina.com.cn ")=false then
msgbox "不通 "
endif

Function IfConnected(www$) As Boolean
Dim d As Date, k&, b%

On Error Resume Next
bLoop = False
Winsock1.Close
d = Now
Winsock1.RemoteHost = www ' "www.sina.com.cn "
Winsock1.RemotePort = 80
Winsock1.Connect: b = 0
Do
DoEvents
k = DateDiff( "s ", d, Now)
If k < 0 Or k > 7 Then b = 1: Exit Do
Loop While bLoop = False
If b = 0 Then IfConnected = bConnected
Winsock1.Close
End Function
------解决方案--------------------
用WINSOCK控件发送HTTP请求头，如果一个页面存在，则返回200消息，否则页面不存在。
具体实现：
1、发送HTTP头：
首先构建最简请求字符串：
dim HTTPHeader as string
HTTPHeader= " "
HTTPHeader=HTTPHeader & "GET YourUrl " & vbCrLf
HTTPHeader=HTTPHeader & "Host: YourHost " & vbCrLf & vbCrLf
这样的头就可以了。

然后发送请求：
socks.Connect "YourHost ", "80 "

然后在connet事件时：
socks.SendData HTTPHeader


2、接收数据
Dim DataStr As String
socks.GetData DataStr
If InStr(1, DataStr, "HTTP/1.1 200 OK ") Or InStr(1, DataStr, "HTTP/1.0 200 OK ")Then '检查http响应状态
'页面存在
else
'页面不存在
end if