Simple Question

Looking for the code for a click event that does the disconnect and closesd out the dialup networking.

What I want is to click the command button and have the click event disconnect and close out the dialup network.

Thanks
mrobersonAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

tirupur_selvaCommented:
This function will do it.

Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long

If you want the full coding, put your mail address here, I'll definitely help you, coz its quite big and difficult to understand if pasted here.
Regs
Selva

0
mrobersonAuthor Commented:
Here's my email I'd like to see the full code


Thanks
0
mrobersonAuthor Commented:
The function looks like an API function should go in the mod file or where?
0
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

mrobersonAuthor Commented:
I would like the full code here's my email

mroberso@concentric.net
0
mrobersonAuthor Commented:
I am looking for the click event code
0
mcriderCommented:
If this works for you, please reject the current answer and select this comment as the answer...

See this page:

How can I disconnect from the internet using VB?
http://www.vb-world.net/tips/tip21.html 
 

Cheers!
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mrobersonAuthor Commented:
Not what I am after getting the code some where else.
0
mrobersonAuthor Commented:
Heelp !
I hope you can help me. I think I am over my head here.
I am getting a compiler Error in between the '**'
What I am getting is    

Only comments may appear after End Sub, End Function, or End Property


Public Const RAS_MAXENTRYNAME As Integer = 256
            Public Const RAS_MAXDEVICETYPE As Integer = 16
            Public Const RAS_MAXDEVICENAME As Integer = 128
            Public Const RAS_RASCONNSIZE As Integer = 412
            Public Const ERROR_SUCCESS = 0&

            Public Type RasEntryName
                dwSize As Long
                szEntryName(RAS_MAXENTRYNAME) As Byte
            End Type

            Public Type RasConn
                dwSize As Long
                hRasConn As Long
                szEntryName(RAS_MAXENTRYNAME) As Byte
                szDeviceType(RAS_MAXDEVICETYPE) As Byte
                szDeviceName(RAS_MAXDEVICENAME) As Byte
            End Type

  LOOK HERE        
** Public Declare Function RasEnumConnections Lib _
            "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _
            Any, lpcb As Long, lpcConnections As Long) As Long **
0
tirupur_selvaCommented:
Hi,
The complete code is on its way to you. Hope you find it useful.
Regs
Selva
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.