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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=14676)

طلب كود التحقق من وجود الاتصال بالانترنت - bidaya - 09-02-16

Confusedاخواني السلام عليكم
اريد كود للفيجوال بيزك 10 او 12 يجعل البرنامج لا يشتغل الا بوجود الانترنت
اي عندما لا تكن الانترنت موجودة لا يشتغل ويطلع رسالة خطأ
وشكرا


RE: طلب كود - boudyonline - 09-02-16

اخي الفاضل :

يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :

كود :
Public Function HaveInternetConnection() As Boolean

   Try
       Return My.Computer.Network.Ping("www.google.com")
   Catch
       Return False
   End Try

End Function


RE: طلب كود - Adrees - 09-02-16

السلام عليكم

اولا اكتب هذه الدالة 

PHP كود :
   Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My.Computer.Network.Ping("www.google.com")
            Return True
        Catch
            Return False
        End Try
    End Function 

ثانيا في الحدث Form Load  ضع الكود التالي

PHP كود :
       If CheckInternetConnection() = True Then
            MessageBox.Show("Your Computer is  Connected to internet", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("Your Computer is not Connected to internet", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End If 
ان شاء الله يفيدك هذا الكود.


RE: طلب كود - bidaya - 09-02-16

الله يفتح عليك اخي الكريم نجح تمام تمام

RE: طلب كود التحقق من وجود الاتصال بالانترنت - amgad525 - 28-04-16

(28-04-16, 10:10 PM)mostfa1995 كتب :
(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-70192.html#pid70192

PHP كود :
      If CheckInternetConnection() = True Then
            MessageBox.Show("Your Computer is  Connected to internet", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("Your Computer is not Connected to internet", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End If 

PHP كود :
Public Shared Function CheckInternetConnection() As Boolean
        Try
            Return My.Computer.Network.Ping("www.google.com")
            Return True
        Catch
            Return False
        End Try
    End Function 

شغال تمام اشكرك على المجهود الرائع


RE: طلب كود التحقق من وجود الاتصال بالانترنت - honest - 29-04-16

اليكم هذا الكود البسيط واكيد حينفعكم اكثر لانه مختصر وسهل 
وينكنك من اضافة ماسج بوكس له او التعديل عليه كما تريد
كود :
       If My.Computer.Network.IsAvailable Then
           Label1.ForeColor = Color.Green
           Label1.Text = "حالة الإتصال : متصل"
       Else
           Label1.ForeColor = Color.Red
         Label1.Text = "حالة الإتصال : غير متصل"
       End If
وبإمكانك اضافة فورم صغير فيه هذا اليبل وإذا كان هناك اتصال ينقلك الى الفورم 2 وهو الفورم الرئيسي للبرنامج

RE: طلب كود - aliahmed-85 - 16-06-21

(09-02-16, 02:23 AM)boudyonline كتب : اخي الفاضل :

يمكنك التحقق من وجود الاتصال بالانترنت من خلال تجربة الاتصال على موقع ما وليكن جوجل
ويمكنك استخدام الكود التالي :

كود :
Public Function HaveInternetConnection() As Boolean

   Try
       Return My.Computer.Network.Ping("www.google.com")
   Catch
       Return False
   End Try

End Function
السلام عليكم اخواني الكرام محتاج كود :  التحقق من اتصال بالإنترنت يكون من خلال ليبل