Custom Dialer for ISP

  • Thread starter Thread starter Tibby
  • Start date Start date
T

Tibby

Okay, I've been searching, and asking and hoping for a bone, and
thinking I may be on the wrong path. Everyone has seen either AOL's
or NetZero's dialer, I need to make one of those. I'm planning to
make it fairley generic, but make it customizable. Basically, I don't
want to have to have my users go through the DUN setup for windows, I
would like them to just click and go.
I think the track I need to go on is the RAS API, but not sure at this
point. I hope I'm making sense on this, it's 2:30 am and I'm going
nutz trying to find a solution.

Thanks...
 
Hi Tibby,

I`ve been looking for something similar, althought not at any great depth,
and i carn`t seem to find anything either:(

If you find out, could you let me know?

simonDOTgreenATrixDOTcoDOTuk (Replace the Captials with the appropriate
symbol)

Many Thanks
MCN(Si)
 
Well, I've found the appropriate RAS API's, so I've got someone to
start, but it looks like I will have to do it in either C# or C++, I'm
not seeing a good way of doing it in VB.NET, unless I can figure out
how to pass an address of a delegate and provide an event interface
for the delegate.....
I'm willing to collaborate if that's what your looking for.....

tibbyATtiberiansunDOTus (Following your logic :) )
Tibby
 
I cant take credit for this. I found it on the internet ages ago:

use it like:
rasResult = ras.Connect("VadalsVPN")

______________________________________________________________
Imports System

Imports System.Runtime.InteropServices





Public Class RASDialup

Private Declare Auto Function InternetDial Lib "wininet" _

(ByVal hwndParent As IntPtr, _

ByVal lpszConnection As String, _

ByVal dwFlags As Integer, _

ByRef lpdwConnection As Integer, _

ByVal dwReserved As Integer) As Integer

'Public Declare Auto Function InternetDial Lib "wininet.dll" (ByVal hwnd As
IntPtr, <[In]()> ByVal lpszConnectoid As String, ByVal dwFlags As Long,
ByRef lpdwConnection As Integer, ByVal dwReserved As Long) As Integer

'Public Declare Auto Function InternetDial Lib "wininet.dll" (ByVal hwnd As
IntPtr, <[In]()> ByVal lpszConnectoid As String, ByVal dwFlags As
System.UInt32, ByRef lpdwConnection As Integer, ByVal dwReserved As
System.UInt32) As Integer

'ToDo: Unsigned Integers not supported

'ToDo: Unsigned Integers not supported

Public Declare Auto Function InternetHangUp Lib "wininet.dll" (ByVal
lpdwConnection As Integer, ByVal dwReserved As Long) As Integer 'ToDo:
Unsigned Integers not supported

'Public Declare Auto Function InternetHangUp Lib "wininet.dll" (ByVal
lpdwConnection As Integer, ByVal dwReserved As System.UInt32) As Integer
'ToDo: Unsigned Integers not supported



Public Enum DialUpOptions

INTERNET_AUTODIAL_FORCE_ONLINE = &H1

INTERNET_AUTODIAL_FORCE_UNATTENDED = &H2

INTERNET_DIAL_FORCE_PROMPT = &H2000

INTERNET_DIAL_SHOW_OFFLINE = &H4000

INTERNET_DIAL_UNATTENDED = &H8000

End Enum 'DialUpOptions

'

'

'INTERNET_AUTODIAL_FORCE_ONLINE Forces an online connection.

'

'INTERNET_AUTODIAL_FORCE_UNATTENDED Forces an unattended Internet dial-up.
If

'user intervention is required, the function will fail.

'

'INTERNET_DIAL_FORCE_PROMPT Ignores the "dial automatically" setting and

'forces the dialing user interface to be displayed.

'

'INTERNET_DIAL_UNATTENDED Connects to the Internet through a modem, without

'displaying a user interface, if possible. Otherwise, the function will wait

'for user input.

'

'INTERNET_DIAL_SHOW_OFFLINE

'

Private m_connectionnumber As Integer



Public ReadOnly Property ConnectionNumber() As Integer

Get

Return m_connectionnumber

End Get

End Property



Public Function Connect(ByVal m_ConnectionName As String) As Integer

Dim retVal As Integer

retVal = InternetDial(IntPtr.Zero, m_ConnectionName, &H8000,
m_connectionnumber, 0)

Return retVal

End Function 'Connect



Public Sub Disconnect()



InternetHangUp(m_connectionnumber, 0)

End Sub 'Disconnect

End Class 'RASDialup
 
Back
Top