Connect to your ISP using WinInet API

If you want to allow your users to have an option to connect to their ISP before continuing then insert the code into a module and use the Connect() function. If it is already connected it will not prompt a retry but return TRUE and if it fails it will return FALSE.

Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Const scUserAgent = "ISP_Dialup"
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Function ConnectToISP() As Boolean
    Dim hInternet As Long
    If InternetAttemptConnect(0) <> 0 Then Exit Function
    hInternet = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    ConnectToISP = (hInternet <> 0) 'return False if hInternet=0
End Function

You might also like...

Comments

Thushan Fernando Senior Developer working at Readify on cool new technology and platforms.

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“The greatest performance improvement of all is when a system goes from not-working to working.” - John Ousterhout