Dial Up NetWorking (DUN) in VB.Net

[Hardik Shah]

Hi,

Sorry, I have to put same message more than three to four times , as I can't
receive a responce.

I want to connect my internet connection through my VB.Net Code.
Is there any sample code, or hints.

Thanks in advance.

Hardik Shah.

[Herfried K. Wagner [MVP]]

"Hardik Shah" <ha********@hot mail.com> schrieb:

I want to connect my internet connection through my VB.Net Code.
Is there any sample code, or hints.

\\\

' Written by Herfried K. Wagner.
Public Class InternetDialer
Public Declare Function InternetAutodia l Lib "wininet.dl l" ( _
ByVal dwFlags As Int32, _
ByVal hwndParent As IntPtr _
) As Boolean

Private Const INTERNET_AUTODI AL_FORCE_ONLINE As Int32 = &H1
Private Const INTERNET_AUTODI AL_FORCE_UNATTE NDED As Int32 = &H2
Private Const INTERNET_AUTODI AL_FAILIFSECURI TYCHECK As Int32 = &H4
Private Const INTERNET_AUTODI AL_OVERRIDE_NET _PRESENT As Int32 = &H8

Private Declare Function InternetAutodia lHangup Lib "wininet.dl l" ( _
ByVal dwReserved As Int32 _
) As Boolean

Public Enum AutoDialOptions
ForceOnline = INTERNET_AUTODI AL_FORCE_ONLINE
ForceUnattended = INTERNET_AUTODI AL_FORCE_UNATTE NDED
FailIfSecurityC heck = INTERNET_AUTODI AL_FAILIFSECURI TYCHECK
OverrideNetPres ent = INTERNET_AUTODI AL_OVERRIDE_NET _PRESENT
End Enum

Public Shared Sub Dialup(ByVal Options As AutoDialOptions )
Dialup(Options, IntPtr.Zero)
End Sub

Public Shared Sub Dialup(ByVal Options As AutoDialOptions , ByVal Parent
As Control)
Dialup(Options, Parent.Handle)
End Sub

Public Shared Sub Dialup( _
ByVal Options As AutoDialOptions , _
ByVal hwndParent As IntPtr _
)
If Not InternetAutodia l(Options, hwndParent) Then
Throw _
New ApplicationExce ption( _
"Error dialling the default internet connection." _
)
End If
End Sub

Public Shared Sub Hangup()
If Not InternetAutodia lHangup(0) Then
Throw _
New ApplicationExce ption( _
"Error disconnecting internet connection." _
)
End If
End Sub
End Class
///

Usage:

\\\
InternetDialer. Dialup(Internet Dialer.AutoDial Options.ForceOn line)
..
..
..
InternetDialer. Hangup()
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Amjad]

Herfried,

Regarding the code you posted, I have two questions:

1. This code seems to open/close an existing Dial-up connection that is
already set up on the computer. Do you know of a sample code where you can
supply the Dialup Function with the DialUp parameters (such as phone number,
user name, password, etc.)?

2. In the Sub Dialup, I received this error "Type 'Control' is not defined.
Do I need to import something in this class?

"Herfried K. Wagner [MVP]" wrote:

"Hardik Shah" <ha********@hot mail.com> schrieb:

I want to connect my internet connection through my VB.Net Code.
Is there any sample code, or hints.

\\\

' Written by Herfried K. Wagner.
Public Class InternetDialer
Public Declare Function InternetAutodia l Lib "wininet.dl l" ( _
ByVal dwFlags As Int32, _
ByVal hwndParent As IntPtr _
) As Boolean

Private Const INTERNET_AUTODI AL_FORCE_ONLINE As Int32 = &H1
Private Const INTERNET_AUTODI AL_FORCE_UNATTE NDED As Int32 = &H2
Private Const INTERNET_AUTODI AL_FAILIFSECURI TYCHECK As Int32 = &H4
Private Const INTERNET_AUTODI AL_OVERRIDE_NET _PRESENT As Int32 = &H8

Private Declare Function InternetAutodia lHangup Lib "wininet.dl l" ( _
ByVal dwReserved As Int32 _
) As Boolean

Public Enum AutoDialOptions
ForceOnline = INTERNET_AUTODI AL_FORCE_ONLINE
ForceUnattended = INTERNET_AUTODI AL_FORCE_UNATTE NDED
FailIfSecurityC heck = INTERNET_AUTODI AL_FAILIFSECURI TYCHECK
OverrideNetPres ent = INTERNET_AUTODI AL_OVERRIDE_NET _PRESENT
End Enum

Public Shared Sub Dialup(ByVal Options As AutoDialOptions )
Dialup(Options, IntPtr.Zero)
End Sub

Public Shared Sub Dialup(ByVal Options As AutoDialOptions , ByVal Parent
As Control)
Dialup(Options, Parent.Handle)
End Sub

Public Shared Sub Dialup( _
ByVal Options As AutoDialOptions , _
ByVal hwndParent As IntPtr _
)
If Not InternetAutodia l(Options, hwndParent) Then
Throw _
New ApplicationExce ption( _
"Error dialling the default internet connection." _
)
End If
End Sub

Public Shared Sub Hangup()
If Not InternetAutodia lHangup(0) Then
Throw _
New ApplicationExce ption( _
"Error disconnecting internet connection." _
)
End If
End Sub
End Class
///

Usage:

\\\
InternetDialer. Dialup(Internet Dialer.AutoDial Options.ForceOn line)
..
..
..
InternetDialer. Hangup()
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>