Membuat program cek koneksi menggunakan visual basic 2008/ vb.net

Awalnya difacebook ada seseorang yang bertanya bagaimana membuat Membuat program cek koneksi menggunakan visual basic dan saya menjadi tertarik untuk membuat artikel bagaimana membuat cek koneksi menggunakan visual basic 2008/ vb.net sebenarnya caranya sangat mudah sekali dan tidak perlu terlalu rumit.

Untuk langkah awal dalam Membuat program cek koneksi menggunakan visual basic 2008/ vb.net  buatlah satu form dengan komponen 2 label, label pertama ganti isi text menjadi Status dan label ke 2 menjadi ... seperti gambar dibawah:

 

Selanjutnya klik 2 kali form yang sudah di buat, hapus semua kode dan masukkan kode dibawah:

Public Class Form1
    Dim WithEvents web As New WebBrowser
    Dim stri As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable Then
            web.Navigate("http://shareany.net/ip.html")

        Else
            Label2.Text = "Tidak Konak dari: " & My.Computer.Name
        End If
    End Sub

    Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted
        stri = web.Document.All("ip").InnerHtml
        Label2.Text = "Konak" & vbNewLine & "IP: " & stri.Replace("<BR>", vbNewLine)

    End Sub
End Class

Maka ketika di jalankan programnya akan menghasilkan seperti gambar dibawah: