السلام عليكم :
اذا اردت ان تعرف حالة الاتصال بالانترنت برمجياً وعن طريق لغة الدوت نت , اولاً يجب عليك
1 - ان تدرج مؤقت يعمل كل ثانية وتحول الخاصية enabled الى True
والخاصية interval الى 100 او 1000
2- وان تـــدرج Label واحد ( اذا اردت ان تظهر لك الحالة في الـ Label )
3- ادرج صندوق صور واحد ( للتنسيق لا اكثر ولا يؤثر على حالة الاتصال )
4- ادرج الكود التالي في المؤقت :
الكود واضح جداً .. ومعناه هو :كود:If IsWebConnected() Then PictureBox1.BackgroundImage = My.Resources.Ok PictureBox1.BackgroundImageLayout = ImageLayout.Center Label1.Text = "انت الان متصل بالانترنت " Else PictureBox1.BackgroundImage = My.Resources.Delete PictureBox1.BackgroundImageLayout = ImageLayout.Center Label1.Text = "انت الان غير متصل بالانترنت , يرجى التاكد واعادة المحاولة" End If
اذا كان الاتصال بالانترنت متاح .. اذن .. استدعي ايقونة ( ok ) من الريسوريوس وغير
اسم الليبل الى " انت الان متصل بالانترنت "
اما اذا كان الاتصال غير متاح .. اذن استدعي ايقونة ( X ) من الريسوريوس وغير اسم
الليبل الى "انت الان غير متصل بالانترنت , يرجى التاكد واعادة المحاولة"
بعد ذلك انهاء جملة if
اتصور الكود اصبح الان واضح وسهل ..
طبعاً هذا بصورة مختصرة جداً جداً وبدون الحاجة الى socket
------ استخدمنا التايمر حتى يسوي يفحص الحالة كل ثانية بدون ما نطلب منه هذا الشيء ----
اتمنى لكم التوفيق
رد مع اقتباس
تقييم مستحق
