[bidaya]

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

---

---

[boudyonline]

اخي الفاضل :

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

كود :

Public Function HaveInternetConnection() As Boolean

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

End Function

[Adrees]

السلام عليكم

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

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 


ان شاء الله يفيدك هذا الكود.

[bidaya]

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

[amgad525]

(28-04-16, 10:10 PM)mostfa1995 كتب :

(28-04-16, 10:03 PM)amgad525 كتب : http://vb4arb.com/vb/thread-14676-post-7...l#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 


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

[honest]

اليكم هذا الكود البسيط واكيد حينفعكم اكثر لانه مختصر وسهل 
وينكنك من اضافة ماسج بوكس له او التعديل عليه كما تريد

كود :

       If My.Computer.Network.IsAvailable Then
           Label1.ForeColor = Color.Green
           Label1.Text = "حالة الإتصال : متصل"
       Else
           Label1.ForeColor = Color.Red
         Label1.Text = "حالة الإتصال : غير متصل"
       End If

وبإمكانك اضافة فورم صغير فيه هذا اليبل وإذا كان هناك اتصال ينقلك الى الفورم 2 وهو الفورم الرئيسي للبرنامج

[aliahmed-85]

(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

---

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