Check DialUp connection & connection mode

by Manish Kataria (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 13^th September 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Private Declare Function InternetDial Lib "wininet.dll" (ByVal hWnd As Long, ByVal sConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Rate Check DialUp connection & connection mode



Private Sub cmdDisconnect_Click()
lngresult = InternetHangUp(ConnectionNumber, 0)
End Sub

Private Sub Command1_Click()
lngresult = InternetDial(0, "test", 0, ConnectionNumber, 0&)
End Sub

Private Sub Command2_Click()
Dim sConnType As String * 255
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
        MsgBox "You are connected to Internet via a " & sConnType, vbInformation
    Else
        MsgBox "You are not connected to internet", vbInformation
        'Command1_Click
    End If
End Sub

Download this snippet Add to My Saved Code

Check DialUp connection & connection mode Comments

No comments have been posted about Check DialUp connection & connection mode. Why not be the first to post a comment about Check DialUp connection & connection mode.

Check DialUp connection & connection mode

Check DialUp connection & connection mode Comments

Post your comment

Difficulty