Testing if there is an Internet Connection

[Eric Chatonet]

Hi Dave,

This has been discussed many times on this list: check the archives  
and you'll find many posts with many solutions depending on possible  
firewalls and many other things.
As for me I use the following script that feeds a Boolean global var  
allowing to know if the connection is running or not.
Sorry but I don't remember who wrote the basis ;-)

Le 30 nov. 07 à 17:25, Dave a écrit :

> Is there a way to test if the machine you are running on currently  
> connected to the Internet?
>
> Thanks a lot
> All the Best
> Dave

constant kNotifyDelay = 10
constant kCheckDelay = 10
local lTestMessage
local lTestServer
--------------------------------------
on CheckForInternet
   NetConnectionTest --
   if "CheckForInternet" is not in the pendingMessages then
     send "CheckForInternet" to me in kCheckDelay seconds
   end if
end CheckForInternet
--------------------------------------
on NetConnectionTest
   if the DNSServers is empty then
     NetConnectionNotify false --
   else
     put 1 into lTestServer
     open socket to line 1 of the DNSServers with message  
"NetConnectionSocketOpen" --
   end if
end NetConnectionTest
--------------------------------------
on NetConnectionSocketOpen pSocket
   send "NetConnectionNotify true" to me in kNotifyDelay milliseconds --
end NetConnectionSocketOpen
--------------------------------------
on socketError pSocket, pErrorString
   if pSocket is line lTestServer of the DNSServers then  
NetConnectionNotify false --
end socketError
--------------------------------------
on socketTimeout pSocket
   if pSocket is line lTestServer of the DNSServers then
     NetConnectionNotify false --
     close socket pSocket
   else
     ##############
    -- for other possible connections
   end if
end socketTimeout
--------------------------------------
on NetConnectionNotify pStatus
   global gInternetConnected
   local tResult,tCommand
   -----
   if lTestMessage <> empty then
     if line lTestServer of the DNSServers is among the lines of the  
openSockets then
       close socket line lTestServer of the DNSServers
     end if
     put pStatus into gInternetConnected
     -- check this boolean global to know internet status
     put empty into lTestMessage
     put empty into lTestServer
   end if
end NetConnectionNotify

Best regards from Paris,
Eric Chatonet.
----------------------------------------------------------------
Plugins and tutorials for Revolution: http://www.sosmartsoftware.com/
Email: eric.chatonet at sosmartsoftware.com/
----------------------------------------------------------------