• Home
 · 
• Internet/HTML
 · 
• : Disconnect from a dial-up networking connection without any API call.

: Disconnect from a dial-up networking connection without any API call.

: Disconnect from a dial-up networking connection without any API call.

Rate : Disconnect from a dial-up networking connection without any API call.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'e-mail: [email protected]
'webpage: www.homestead.com/freeprogtutorials

Private Sub Form_Load()
    Dim strDUNName As String
    strDUNName = InputBox("Enter the dial-up network name.")
    If DisconnectDUN(strDUNName) = True Then
        MsgBox "Disconnected properly"
    Else
        MsgBox "Can't Disconnect"
    End If
    End
End Sub

Function DisconnectDUN(DUNName As String) As Boolean
    On Error GoTo errhandler
    AppActivate "Connected to " & DUNName 'Set the focus to dial-up connection window
    SendKeys "c" 'Click disconnect button
    DisconnectDUN = True 'Function done successfully
errhandler:
End Function