Internetverbindung starten Starten einer Internet-Verbindung über den Windows "Verbinden mit"-Dialog.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  18.808
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Soll eine Verbindung zum Internet aufgebaut werden, erscheint automatisch der DFÜ-Verbindungs-Dialog von Windows. Je nach Einstellung wird hierbei die Verbindung autom. gestratet oder muss zunächst manuell bestätitigt werden. Dieser Dialog lässt sich auch programmgesteuert aktivieren. Zusätzlich kann man dann auch festlegen, ob eine Verbindung ohne Nachfrage erfolgen soll, wobei jedoch der DFÜ-Verbindungsname bekannt sein muss.

' zunächst die benötigten API-Deklarationen
Private Declare Function InternetDial Lib "wininet.dll" ( _
  ByVal hwndParent As Long, _
  ByVal lpszConiID As String, _
  ByVal dwFlags As Long, _
  ByRef hCon As Long, _
  ByVal dwReserved As Long) As Long
 
Private Const DIAL_FORCE_ONLINE = 1
Private Const DIAL_FORCE_UNATTENDED = 2

' Online-Verbindung starten
Public Function RASConnect(ByVal hWnd As Long, _
  Optional ByVal sDFÜName As String = "", _
  Optional ByVal bAutoStart As Boolean = False) As Boolean
 
  Dim conID As Long
  Dim nFlags As Long
 
  nFlags = IIf(bAutoStart, DIAL_FORCE_UNATTENDED, DIAL_FORCE_ONLINE)
  InternetDial hWnd, sDFÜName, nFlags, conID, 0
 
  RASConnect = (conID <> 0)
End Function

Kurze Erläuterung:
Die Funktion RASConnect-Funktion aktiviert den Standard Verbindungs-Dialog von Windows. Der erste Parameter hWnd erwartet das Fensterhandle der aufrufenden Anwendung. Die beiden nachfolgenden Parameter sind optional. Über sDFÜName lässt sich festlegen, welche DFÜ-Verbindung voreingestellt werden soll. Hierbei muss der Name exakt so angegeben werden, wie in der Systemsteuerung (DFÜ-Verbindungen) festgelegt. Soll die DFÜ-Verbindung ohne Nachfrage aufgebaut werden, muss bAutoStart auf True gesetzt werden. Andernfalls muss zum endgültigen "online-gehen" der Verbinden-Dialog noch manuell vom Anwender bestätigt werden.

Die Funktion gibt True zurück, wenn die Verbindung erfolgreich aufgebaut wurde. Ist ein Fehler aufgetreten oder wurde auf Abbrechen geklickt, liefert die Funktion als Rückgabewert False.

Beispiele für den Aufruf:

' Verbinden-Dialog mit Standard-Verbindung aufrufen
bResult = RASConnect(Me.hWnd)

' Bestimmte Internet-Verbindung autom. starten
bResult = RASConnect(Me.hWnd, "T-Online", True)