Internetverbindung

Wenn eine Internetverbindung benötigt wird wie z.B. bei Nutzung der FTP-Funktionen oder Updatefunktion, ist es sinnvoll vorher zu testen, ob überhaupt eine Internetverbindung besteht. Das ist mit der Funktion InternetConnection auf einfache Weise möglich

  if InternetConnection then
     msgbox "Sie sind mit dem Internet verbunden!,vbInformation,"Hinweis"
  end if
 
  ------------------------------------------------------------------------------
  Function InternetConnection
 
  Dim obj
  Set obj = GetObject("winmgmts:Win32_PingStatus.address='" & "google.de" & "'")
 
  if IsNull(obj.StatusCode) or obj.StatusCode <> 0 Then
     msgbox "Keine Internetverbindung!",vbInformation,"Hinweis"
     InternetConnection = false
  else
     InternetConnection = true
  end if
 
  End Function
  ------------------------------------------------------------------------------

Als Testadresse wird "google.de" benutzt. Sie kann durch eine beliebige andere Adresse ersetzt werden.