Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB4, VB5, VB6 | 16.06.04 |
Internetverbindung starten Starten einer Internet-Verbindung über den Windows "Verbinden mit"-Dialog. | ||
Autor: Dieter Otter | Bewertung: | Views: 18.827 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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)