Connect to the net...

[rockies1]

How can I connect to the net using an existing Dial Up Networking connection in VB6?

Basically, I want to click a button, and it connects me to that DUN.

Thanks,

[dj4]

You can use this way:

Public Sub ModemCallWin95_98()

Dim WIN
WIN = Shell("rundll32.exe rnaui.dll,RnaDial " & "Connect Name", 1)

End Sub

AND:

Public Sub ModemCallWinNT()

Dim NT
NT = Shell("rasphone.exe [-d Connect Name]", 1)

End Sub

OR:
Goto www.catalyst.com and download here free Socket French -package.

- Dj4

[rockies1]

The problem with

Public Sub ModemCallWin95_98() 
     Dim WIN 
     WIN = Shell("rundll32.exe rnaui.dll,RnaDial " & "Connect Name", 1) 

End Sub

is that it only opens the Dial-Up box, it doesn't actually connect.

I'm looking for an actual connect.

[rockies1]

The problem with

Public Sub ModemCallWin95_98() 
     Dim WIN 
     WIN = Shell("rundll32.exe rnaui.dll,RnaDial " & "Connect Name", 1) 

End Sub

is that it only opens the Dial-Up box, it doesn't actually connect.

I'm looking for an actual connect.

[dj4]

Goto www.catalyst.com and download here free Socket French -package.

That package include Ras ocx-component. Using that component you can connect actually.

- Dj4