Membuat Ping Reply dengan visual basic 2012/vb.net

  Hallo selamat pagi!!D:

ingin membuat aplikasi sendiri untuk enstabilkan koneksi ini dia,,buat saja aplikasi ping menggunakan vb.net

     Untuk Membuat Ping Reply dengan visual basic .net 2012 buat sebuah form dengan properties sebagai berikt:

Object	Properties	Value
Form1
Button1	Text	Mulai
Button2	Text	Ganti
Text1	Text	Google.comi
Text2	Text	1
ListBoxt1

Copy kode di bawah ini selanjuatnya klik 2X pada form kemudian hapus block semua kode yang ada dan replace

Imports System.Net

Public Class Form1

    Dim pi As New Net.NetworkInformation.Ping

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (Button1.Text = "Mulai") Then

            Timer1.Enabled = True

            Timer1.Interval = TextBox2.Text * 1000

            Button1.Text = "Berhenti"

        Else

            Button1.Text = "Mulai"

            Timer1.Enabled = False

            ListBox1.Items.Clear()

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim host As IPHostEntry = Dns.GetHostByName(TextBox1.Text)

        Dim ip As IPAddress() = host.AddressList

        pi.Send(TextBox1.Text)

        Try

            ListBox1.Items.Add("Reply Dari " & ip(0).ToString & " waktu=" & pi.Send(TextBox1.Text).RoundtripTime & " TTL=" & pi.Send(TextBox1.Text).Options.Ttl)

            ListBox1.SelectedIndex += 1

            ListBox1.ClearSelected()

        Catch

            ListBox1.Items.Add("Hubungan Terputus")

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim ganti As String = InputBox("Silahkan masukkan alamat url tanpa menggunakan http://", "Form ganti alamat url ping")

        If ganti = "" Then

            TextBox1.Text = "www.google.com"

        Else

            TextBox1.Text = ganti

        End If

    End Sub

End Class

seperti ini :

selesai deh..!!!sekarang coba dengan di run