aymanemara1

كود اكسيس يعرض حالة الاتصال بالانترنت ٦٤ Bit و 32

1 مشاركة في هذا الموضوع

استاذتى الأفاضل 

لا اعلم ان كان تم الكود هذا من قبل ام لا ولكنى انشرة للأستفاده منه

وهوه كود يعمل تحت اكسيس 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

iNTERNET.mdb

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .