وين المشكلة في هذا الكود
بدي افحص الاتصال بالانترنت
Private Function chLongWeb() As Boolean
Dim blnIntStat As Boolean
If Not blnIntStat = InternetGetConnectedState(0&, 0&) Then
chLongWeb = True
Else
chLongWeb = False
MessageBox.Show("حالة الإتصال بالإنترنت هي = " & blnIntStat.ToString() & Chr(13) & "فضلاً قم بوصل الإنترنت")
End If
End Functionتم تعديل هذه المشاركة بواسطة adtd في 17 أبريل 2007 في 12:14
انظر الموضوع إحدى الطرق لمعرفة هل يوجد اتصال بالإنترنت برمجيا و الموضوع كيف تقوم بطلب الاتصال الافتراضي بالانترنت برمجيا فستجد فيهما ما يساعدك
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
جاري التجربة
أشكرك
هذا الموضوع مغلق.