استاذتى الأفاضل
لا اعلم ان كان تم الكود هذا من قبل ام لا ولكنى انشرة للأستفاده منه
وهوه كود يعمل تحت اكسيس 64 بت و يقوم بعمل اختبار هل الجهاز متصل بالأنترنت أم لا
المثال المرفق لقاعدة بيانات 32 بت و الفرق فى الكود هوه اضافة كلمة Ptrsafe بعد كلمة Private Declare ليعمل على 64 بت
Private Declare Ptrsafe Function InternetGetConnectedState Lib "wininet.dll" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Function Is_Connected() As Boolean
Dim IEStat As Long
Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function
Private Sub Command0_Click()
If Is_Connected() = True Then
MsgBox " 1"
Else
MsgBox " 0"
End If
End Sub