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********@hotmail.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 InternetAutodial Lib "wininet.dll" ( _
ByVal dwFlags As Int32, _
ByVal hwndParent As IntPtr _
) As Boolean

Private Const INTERNET_AUTODIAL_FORCE_ONLINE As Int32 = &H1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED As Int32 = &H2
Private Const INTERNET_AUTODIAL_FAILIFSECURITYCHECK As Int32 = &H4
Private Const INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT As Int32 = &H8

Private Declare Function InternetAutodialHangup Lib "wininet.dll" ( _
ByVal dwReserved As Int32 _
) As Boolean

Public Enum AutoDialOptions
ForceOnline = INTERNET_AUTODIAL_FORCE_ONLINE
ForceUnattended = INTERNET_AUTODIAL_FORCE_UNATTENDED
FailIfSecurityCheck = INTERNET_AUTODIAL_FAILIFSECURITYCHECK
OverrideNetPresent = INTERNET_AUTODIAL_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 InternetAutodial(Options, hwndParent) Then
Throw _
New ApplicationException( _
"Error dialling the default internet connection." _
)
End If
End Sub

Public Shared Sub Hangup()
If Not InternetAutodialHangup(0) Then
Throw _
New ApplicationException( _
"Error disconnecting internet connection." _
)
End If
End Sub
End Class
///

Usage:

\\\
InternetDialer.Dialup(InternetDialer.AutoDialOptio ns.ForceOnline)
..
..
..
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********@hotmail.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 InternetAutodial Lib "wininet.dll" ( _
ByVal dwFlags As Int32, _
ByVal hwndParent As IntPtr _
) As Boolean

Private Const INTERNET_AUTODIAL_FORCE_ONLINE As Int32 = &H1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED As Int32 = &H2
Private Const INTERNET_AUTODIAL_FAILIFSECURITYCHECK As Int32 = &H4
Private Const INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT As Int32 = &H8

Private Declare Function InternetAutodialHangup Lib "wininet.dll" ( _
ByVal dwReserved As Int32 _
) As Boolean

Public Enum AutoDialOptions
ForceOnline = INTERNET_AUTODIAL_FORCE_ONLINE
ForceUnattended = INTERNET_AUTODIAL_FORCE_UNATTENDED
FailIfSecurityCheck = INTERNET_AUTODIAL_FAILIFSECURITYCHECK
OverrideNetPresent = INTERNET_AUTODIAL_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 InternetAutodial(Options, hwndParent) Then
Throw _
New ApplicationException( _
"Error dialling the default internet connection." _
)
End If
End Sub

Public Shared Sub Hangup()
If Not InternetAutodialHangup(0) Then
Throw _
New ApplicationException( _
"Error disconnecting internet connection." _
)
End If
End Sub
End Class
///

Usage:

\\\
InternetDialer.Dialup(InternetDialer.AutoDialOptio ns.ForceOnline)
..
..
..
InternetDialer.Hangup()
///

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