VisualBasic Snippets  

Eine Verbindung zum Interet herstellen:
 

Mit der folgenden Routine kann eine DFÜ-Verbindung ohne Interaktion des Benutzer hergestellt werden.

Dieser Code wird auf einen Modul plaziert:

Private Const tsForceUnAttended = 2

Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Public Function tsConnect() As Boolean
Dim intMsgBoxResult As Integer

  If InternetAutodial(tsForceUnAttended, 0) Then
    tsConnect = True
  Else
    tsConnect = False
  End If

End Function

Der Aufruf der Funktion gestaltet sich dann wie folgt:


If tsConnect = True Then MsgBox "Internetverbindung steht !"

Viel Spass !!

© '2000 by T. Schindzielorz