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

  1.   if InternetConnection then
  2.      msgbox "Sie sind mit dem Internet verbunden!,vbInformation,"Hinweis"
  3.   end if
  4.  
  5.   ------------------------------------------------------------------------------
  6.   Function InternetConnection
  7.  
  8.   Dim obj
  9.   Set obj = GetObject("winmgmts:Win32_PingStatus.address='" & "google.de" & "'")
  10.  
  11.   if IsNull(obj.StatusCode) or obj.StatusCode <> 0 Then
  12.      msgbox "Keine Internetverbindung!",vbInformation,"Hinweis"
  13.      InternetConnection = false
  14.   else
  15.      InternetConnection = true
  16.   end if
  17.  
  18.   End Function
  19.   ------------------------------------------------------------------------------

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