FindTheInternet

Public Class InternetFinder

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Application.Exit()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        'Find internet
        Dim cm As OpenNETCF.Net.ConnectionManager = New OpenNETCF.Net.ConnectionManager
        Dim dic As OpenNETCF.Net.DestinationInfoCollection = cm.EnumDestinations
        Dim di As OpenNETCF.Net.DestinationInfo
        Dim x As Integer = 0

        For Each di In dic
            Try
                cm.Connect(di.guid, False, OpenNETCF.Net.ConnectionMode.Asynchronous)
            Catch cex As Exception
                'nothing
            End Try

            Dim z As Integer
            For z = 0 To 2
                Try

                    Dim ping As OpenNETCF.Net.NetworkInformation.Ping = New OpenNETCF.Net.NetworkInformation.Ping()
                    Dim pingReply As OpenNETCF.Net.NetworkInformation.PingReply = Nothing
                    pingReply = ping.Send("www.google.com")
                    If pingReply.Status = OpenNETCF.Net.NetworkInformation.IPStatus.Success Then
                        OnlineStatus.Text = "Found: " + di.description.ToString
                        guidlabel.Text = di.guid.ToString
                    Else
                        OnlineStatus.Text = "FAILED!!"
                    End If

                    If x = 0 Then
                        ni1.Text = di.description.ToString() + " " + pingReply.Status.ToString() + " (" + pingReply.RoundTripTime.ToString + "ms)"
                    End If
                    If x = 1 Then
                        ni2.Text = di.description.ToString() + " " + pingReply.Status.ToString() + " (" + pingReply.RoundTripTime.ToString + "ms)"
                    End If
                    If x = 2 Then
                        ni3.Text = di.description.ToString() + " " + pingReply.Status.ToString() + " (" + pingReply.RoundTripTime.ToString + "ms)"
                    End If
                    If x = 3 Then
                        ni4.Text = di.description.ToString() + " " + pingReply.Status.ToString() + " (" + pingReply.RoundTripTime.ToString + "ms)"
                    End If

                    mslabel.Text = "google.com ping: " + pingReply.RoundTripTime.ToString + " ms"

                Catch ex As OpenNETCF.Net.NetworkInformation.PingException
                End Try
            Next z
            
            x += 1
        Next
    End Sub
End Class