Option Explicit
 
' ===================================================================
' DFÜ-Verbindung aufbauen und trennen
' mit Hilfe der Shell-Anweisung "rasdial"
'
' Autor:
' Gudio Eisenbeis Software (GES), guidoeisenbeis@web.de, 2003-10-21
' ===================================================================
 
 
' Verbindung aufbauen
Private Sub Command1_Click()
    Dim Verbindungsname As String
    Dim Benutzername As String
    Dim Kennwort As String
 
    Verbindungsname = "Arcor  by call easy -1"
    Benutzername = "Hier den Benutzernamen eingeben"
    Kennwort = "Hier das Kennwort eingeben"
 
    Shell "rasdial " & Chr(34) & Verbindungsname & Chr(34) _
            & " " & Benutzername & " " & Kennwort, _
            vbHide '<-- Falls das DOS-Fenster versteckt werden soll
End Sub
 
' Verbindung trennen
Private Sub Command2_Click()
    Dim Verbindungsname As String
 
    Verbindungsname = "Arcor  by call easy -1"
    Shell "rasdial " & Chr(34) & Verbindungsname & Chr(34) & " /disconnect"
End Sub