منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] التحقق من توصيل الجهاز بالانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التحقق من توصيل الجهاز بالانترنت (/showthread.php?tid=431)

الصفحات: 1 2

التحقق من توصيل الجهاز بالانترنت - ali.alfoly - 07-10-13

السلام عليكم ورحمة الله
اريد دالة للتحقق من توصيل الجهاز بالانترنت
والتاكد من انه يعمل
لان فى دالة
My.Computer.Network.IsAvailable
لاكن للاسف انا مركب الروتر لاكن النت فاصل فتعطى True
هى تعتبر مجرد وجود كبل النت ان النت واصل
اريد التحقق مثلا من موقع مثل جوجول انه يعمل
اريد دالة اكتب رابط الموقع وهى تعود True او False وهذا اسلم حل فى نظرى
او اى فكرة اخرى

RE: التحقق من توصيل الجهاز بالانترنت - سعود - 07-10-13

تحتاج تحققين:
1- الذي لديك ثم بعد التحقق منه تتحق من:
...2- صفحة انترنت مثلا قوقل .

RE: التحقق من توصيل الجهاز بالانترنت - ali.alfoly - 07-10-13

طيب هل تعرف الدالة الثانية لانى لا اعرفها
وجزاك الله خيرا اخى سعود

RE: التحقق من توصيل الجهاز بالانترنت - سعود - 07-10-13

لحظة اتذكرها لاني نسيتها Smile
كود :
If My.Computer.Network.IsAvailable Then
            Label1.BackColor = Color.Green
            Label1.Text = "الايثرنت موصول والراوتر او المودم يعمل"


            If My.Computer.Network.Ping("google.com") = True Then
                Label2.BackColor = Color.Green
                Label2.Text = "الانترنت موصول"
            Else
                Label2.BackColor = Color.Red
                Label2.Text = "الانترنت ليس موصول"
            End If



        Else
            Label1.BackColor = Color.Red
            Label1.Text = "الايثرنت ليس موصول او المودم ليس قيد التشغيل"
        End If

طبعا اللي عاجبني بالمثال المحاذاة بمربع الرسالة انها يمين توي عرفتها Smile

RE: التحقق من توصيل الجهاز بالانترنت - ali.alfoly - 07-10-13

الدالة
My.Computer.Network.Ping
تعود ب False دائما لا ادرى لماذا

RE: التحقق من توصيل الجهاز بالانترنت - سعود - 07-10-13

(07-10-13, 02:58 PM)ali.alfoly كتب : الدالة
My.Computer.Network.Ping
تعود ب False دائما لا ادرى لماذا

شلون؟؟
لازم يكون الموقع اللي تستفسر عنه شغال!
اكتب مثال وارفعه حتى نشوفه.

RE: التحقق من توصيل الجهاز بالانترنت - ali.alfoly - 08-10-13

PHP كود :
If My.Computer.Network.Ping("google.com") Then
                MsgBox("موصول")
            Else
                MsgBox("غير موصول")
            End If 

حاولت اكثر من مرة
لا ادرى لماذا تعود ب ( غير موصول )
مع ان النت شغال تمام

RE: التحقق من توصيل الجهاز بالانترنت - مالكـ - 08-10-13

اتمنى ان يناسبك

التحقق من الاتصال بالانترنت

RE: التحقق من توصيل الجهاز بالانترنت - ali.alfoly - 08-10-13

جزاك الله خير اخى مالك
بس للاسف هى دى الدالة الى بنحكى عليها
ال Network يحتوى على 4 دوال تحميل ملف و رفع ملف و تحقق من الاتصال و تحقق من عمل موقع
شوف احنا استخدمنا التحقق منفعتش عارف ليه
لانى مشترك فى شبكة وهذه الشبكة عليها ميكرو تك لازم اسجل دخول
لو انا واضع الكبل فى الكمبيوتر ومش مسجل دخول المفروض انه مفيش نت
الدالة تقول انه فى نت وده خطاء
الدالة الثانية وهى دالة التحقق من عمل موقع الى استخدمها الاخ سعود
تعود بفولس لا ادرى لماذا لعل ذلك من الشبكة خاصتنا
طيب ايه الحل
فينك يا شاكى لله يا عفريت التعامل مع الانترنت

RE: التحقق من توصيل الجهاز بالانترنت - سعود - 08-10-13

كود :
لعل ذلك من الشبكة خاصتنا
الموقع لو محجوب ايضا بيعطي False