تشخیص وجود اینترنت [بایگانی]

akbar_2020

یک شنبه 09 شهریور 1393, 09:29 صبح

سلام دوستان
در فاکس پرو چطوری میتونیم تشخیص بدیم که سیستم به اینترنت وصل هست یا نه؟
با تشکر .

binyaz2003

یک شنبه 09 شهریور 1393, 10:45 صبح

declare integer InternetCheckConnection in wininet string lpszUrl, integer dwFlags, integer dwReserved
#define FLAG_ICC_FORCE_CONNECTION 1

if InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0)=1
messagebox("connected")
end if

akbar_2020

یک شنبه 09 شهریور 1393, 11:20 صبح

البته این روش هم هست:

DECLARE SHORT InternetGetConnectedState IN wininet ;
INTEGER @lpdwFlags, INTEGER dwReserved
IF InternetGetConnectedState(0,0) = 1
WAIT WINDOW "Connected"
ELSE
WAIT WINDOW "Not connected"
ENDIF