Internet connected?

[kill_bill_gates]

How can I detect if the computer is connected to internet (also please mention if I need any components)?

[westconn1]

you could just send a ping to your dns server

rgds pete

[kill_bill_gates]

how??? Using "shell"?

[thegreatone]

Yep...

wouldn't something along the lines of

Shell "ping www.google.com"

work ?

[kill_bill_gates]

k but how can i check the results of ping?

[thegreatone]

To tell you the truth i diodn't think of that... damnit, no point if you can't check it... lol

Erm, wait til the other guy gets back in here, he should know

[kill_bill_gates]

yep.. nice sig by the way

[thegreatone]

yep.. nice sig by the way

lol, ty

I wonder if this has been asked B4 u kno, i'm, sure it has, do a search there should be a few examples...

[VIP3R]

There's massive threads about this. Many ways to do it. The problem is, some of the methods initiate a connection attempt, which maybe unwanted. On the other hand, if you don't want to initiate a connection attempt, then you must use tons of code (that have already been composed by other people) that will check to see if there is an internet connection Cable/DSL/Dial up.

[Misspell]

Ping, write the results to text file, then phase through flie for results.

Shell "cmd /k ping google.com >c:\ping_test.txt ", vbHide

Its in the forum somwhere, thats where i got the code above form.


_

[kill_bill_gates]

Thanks dude

[Misspell]

Wellcome

[RhinoBull]

How can I detect if the computer is connected to internet (also please mention if I need any components)?

You need to use some api to get the state of your current connection. There are few different approches that could be used so here is the simplest one:

Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email]KPDTeam@Allapi.net[/email]
    Dim Ret As Long
    Me.AutoRedraw = True
    'retrieve the connection status
    InternetGetConnectedState Ret, 0&
    'show the result
    If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
    If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
    If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
    If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
    If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
End Sub

[kill_bill_gates]

wow, thanks rhino

[RhinoBull]

No problem.