PureBasic Forums - English

Code: Select all

C:\Windows\system32>ping www.nxsoftware.com

Pinging server40.ukservers.net [217.10.138.240] with 32 bytes of data:
Reply from 217.10.138.240: bytes=32 time=125ms TTL=49
Reply from 217.10.138.240: bytes=32 time=125ms TTL=49
Reply from 217.10.138.240: bytes=32 time=124ms TTL=49
Reply from 217.10.138.240: bytes=32 time=124ms TTL=49

Ping statistics for 217.10.138.240:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 124ms, Maximum = 125ms, Average = 124ms

Code: Select all

Debug InternetCheckConnection_("http://www.google.com", 1, 0 )

Code: Select all

Procedure Online()
  d$="test" : b$=Space(SizeOf(ICMP_ECHO_REPLY)+Len(d$)+SizeOf(character)) : hIcmpFile=IcmpCreateFile_()
  ProcedureReturn IcmpSendEcho_(hIcmpFile,1776375249,@d$,Len(d$),0,@b$,Len(b$)+SizeOf(ICMP_ECHO_REPLY),1000)
EndProcedure

Procedure TestInternetConnection()
  connection=OpenNetworkConnection("www.google.com", 80)
  If connection
    CloseNetworkConnection(connection)
    ProcedureReturn 1
  Else
    ProcedureReturn 0
  EndIf
EndProcedure

InitNetwork()

connectionName$=Space(256)
tf=InternetGetConnectedStateEx_(@lpdwFlags.l,@connectionName$,256,0)
If tf
  conn$=connectionName$
  If lpdwFlags & #INTERNET_CONNECTION_CONFIGURED : conn$+", valid connection but might/might not be currently connected" : EndIf
  If lpdwFlags & #INTERNET_CONNECTION_OFFLINE : conn$+", is in offline mode" : EndIf
  If lpdwFlags & #INTERNET_RAS_INSTALLED : conn$+", RAS installed" : EndIf
  If lpdwFlags & #INTERNET_CONNECTION_PROXY : conn$+", uses a proxy server" : EndIf
  If lpdwFlags & #INTERNET_CONNECTION_LAN : conn$+", uses a local area network" : EndIf
  If lpdwFlags & #INTERNET_CONNECTION_MODEM : conn$+", uses a modem" : EndIf
Else
  conn$="No internet connection detected"
EndIf

Debug conn$ ; Returns "LAN Connection, RAS installed, uses a local area network".

Debug InternetGetConnectedState_(0,0) ; Returns 1 (wrong!).

Debug Online() ; Returns 1 (wrong!).

Debug TestInternetConnection() ; Returns 0 after 20 seconds.

Debug InternetCheckConnection_("http://www.google.com",1,0) ; Returns 0 after 15 seconds -- THE WINNER! :)

Code: Select all

Procedure Online(url$="www.google.com")

  If InternetGetConnectedState_(0,0)=1 ; Only check further if modem is switched on.
    p=RunProgram("ping.exe",url$,"",#PB_Program_Hide|#PB_Program_Open|#PB_Program_Read)
    If p : While ProgramRunning(p) : o$+ReadProgramString(p) : Wend : CloseProgram(p) : EndIf
    If o$<>"" And FindString(o$,"unreachable",1)=0 And FindString(o$,"could not find host",1)=0 : status=1 : EndIf
  EndIf

  ProcedureReturn status

EndProcedure

Debug Online()