How to check whether you are connected with internet
Posted on September 2, 2009
On your projects, you might require to know whether you are connected with Internet. So that you can decide to connect the internet or not. There are few ways to check whether you are connected to internet or now. Here is one of the way.
This piece of VB 6 code will help you to accomplish that.
Instructions:
- Create a new Project
- Add a new Module to it
Now, add the following code to that module:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Option Explicit Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 Public Const INTERNET_RAS_INSTALLED As Long = &H10 Sub Main() If AmIOnline Then Call MsgBox("You are connected with internet.", vbInformation, App.Title) Else Call MsgBox("You are not connected with internet.", vbInformation, App.Title) End If End Sub Private Function AmIOnline() As Boolean AmIOnline = InternetGetConnectedState(0&, 0&) End Function |
Related posts:
- How to check whether the system is connected with internet (in two ways)
- How to Check whether Mouse exist or not
- How to Cascade Internet Explorer windows on the desktop
- How to Change Internet Explorer Start Page and Main Window Title
- How to Download file from Internet
- How to get the NumLock state whether it is on or off
- How to Monitor the connection to the internet
- How to Download a file from the Internet — without getting a dialog box (in two ways)
- How to display what URL Internet Explorer/Netscape is displaying
- How to call IE’s Internet Options from VB
Enjoy this article?
Sponsors
Sponsors
Link Back to us
Donations
If you are benefited from this site, please donate a small contribution to us. It will help to maintain this site better.
October 31st, 2009 - 10:52
how can i call it
but thank u 4 all