任何检测网址是否有效？

Question

各位高手：
    请教如何检测一个网址链接是否是有效的呢？
    比如http://www.sohu.com或http://news.sohu.com/20050728/n226474406.shtml这样的url ？
 先谢过各位了！

Answer 1

hInet = InternetOpenA("Test", IOTPreconfig, vbNullString, vbNullString, 0)hURL = InternetOpenUrlA(hInet, "http://news.sohu.com/20050728/n226474406.shtml", vbNullString, 0, INET_RELOAD, 0)
if hurl>0  then 有效
Public Declare Sub InternetCloseHandle Lib "wininet.dll" ( _
    ByVal hInet As Long)
Public Declare Function InternetOpenA Lib "wininet.dll" ( _
    ByVal sAgent As String, ByVal lAccessType As Long, _
    ByVal sProxyName As String, ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrlA Lib "wininet.dll" ( _
    ByVal hOpen As Long, ByVal sUrl As String, _
    ByVal sHeaders As String, ByVal lLength As Long, _
    ByVal lFlags As Long, ByVal lContext As Long) As Long