Author Topic: Check Connection  (Read 2909 times)

0 Members and 1 Guest are viewing this topic.

Aurel

  • Guest
Check Connection
« on: April 20, 2013, 10:00:13 AM »
Here is small routine who check internet connection...
Code: [Select]
! InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
'Const FLAG_ICC_FORCE_CONNECTION = &H1
% FIFC = &H1
sys checkC
checkC = InternetCheckConnection("http://www.google.com",FIFC,0)

IF checkC <> 0
Print "You are connected to internet!"
ELSE
print "NOT CONNECTED...?"
END IF

Not bad ..it work  ;)

By the way i will see how we can build simple web browser ...
anyone know for some simple api example ?