(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 


(09-02-16, 02:24 AM)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 


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

(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 


(28-04-16, 10:43 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 


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

(28-04-16, 10:47 PM)سعود كتب :

(28-04-16, 10:43 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 


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

امرك غريب 
يعني ايش الفرق بين الكود اللي اعطيتك والكود هذا؟؟
اتمنى تكون صريح ولو مرة