Eksistere URL?

Jeg ved ikke om det er den smarteste måde, men den er hurtig:

Læg en "Microsoft Internet Transfer Control" på en form og læg følgende kode i en knaps "klik"-event.

    Dim blnFoundLink As Boolean
    Dim strLink As String
   
    strLink = "www.experten.dk" 'Eller referer til en textbox

    blnFoundLink = (Len(Inet1.OpenURL(strLink)) > 0)
   
    If blnFoundLink Then
        MsgBox "Exists"
    Else
        MsgBox "Does not exist"
    End If

Option Explicit

Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Public Function ChkUrl(ByVal urlPath As String) As Boolean
Dim hOpen As Long
Dim hFile As Long
  hOpen = InternetOpen("CHK URL", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, urlPath, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
      ChkUrl = CBool(hFile)
    InternetCloseHandle hFile
  InternetCloseHandle hOpen
End Function

Private Sub Form_Load()
  If ChkUrl("http://www.experten.dk/") Then
    MsgBox "Url er Ok"
      Else
    MsgBox "Kan ikke open url"
  End If
End Sub

I virkeligheden er det vel smartest at ping'e adressen, men det er en temmelig omstændig sag fra VB.

gode koder til at ping:

http://www.mvps.org/vbnet/index.html?code/internet/ping.htm
http://www.mvps.org/vbnet/index.html?code/internet/pingbyhostname.htm

ocp>> Jeg ønskede et API-kald, er sjh's svar det jeg ville have. Men du får 10 points, for svaret og sjh får så de sidste 60 point.

Tak for svaret sjh!!

selv tak :-)