کد چک کردن کانکت بودن یا نبودن به اینترنت

[__siavash__]

با این کد میتونید چک کنید به اینترنت وصل هستید یا نه ! که میتونید اونو توی یه تایمر قرار بدید و هر لحظه وضعیت را چک کنید !

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags 

As Long, ByVal dwReserved As Long) As Long
 

dim A As long

dim B as long

if InternetGetConnectedState(A, B) = 1 then

"msgbox "shoma be internet vasl hastd

Else

"msgbox "shoma be intenet vasl nistid



End IF