Check Connection

[Aurel]

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 ?