• Home
 · 
• Internet/HTML
 · 
• Automatic Internet Dialup

Automatic Internet Dialup

Most code snippets simply show you how to display
a connect dialog. The problem with this is that
it doesn't force a dial-up and won't alert you
when a connection is established.

This code solves those problems by using Internet
Explorer's own 'automatic dial-up' settings
(Control Panel >> Internet options >> Connections).

It utilises two little-known API calls that can
automatically connect / disconnect from the
default connection.
Note: If the 'Never Dial a Connection' option is
selected, this code will not be able to connect.

I came across this API awhile ago when my friend
suggested a forced dialup and gave me this tip.
It's actually pretty helpful.

API Declarations
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long


Rate Automatic Internet Dialup

• 1
• 2
• 3
• 4
• 5

(17(17 Vote))

' !! Dial the Net Automatically !!
' This waits until the connection is made and THEN
' proceeds. --Bradley Liang
Private Sub Command1_Click()
'To prompt the user to connect to the Net
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
	MsgBox "You're Connected!", vbInformation
End If
'To automatically start dialling
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
	MsgBox "You're Connected!", vbInformation
End If
'To disconnect an automatically dialled connection
If InternetAutodialHangup(0) Then
 MsgBox "You're Disconnected!", vbInformation
End If
End Sub