Membuat Ping Reply dengan visual basic 2008/vb.net

Biasanya seseorang Membuat Ping Reply dengan visual basic 2008/vb.net digunakan untuk memulai pembuatan program DDOS Attacker atau UDP flooder, namun kali ini saya tidak akan mengajarkan bagaimana cara membuat DDOS Attacker atau UDP Flooder karena biasanya kalau sudah diajarkan maka akan digunakan untuk hal yang melanggar aturan, jadi kali ini saya hanya akan menerangkan dengan singkat bagaimana Membuat Ping Reply dengan visual basic 2008.

Untuk Membuat Ping Reply dengan visual basic 2008 anda cukup membuat 1 form dengan komponen 1 textboxt, 2 button, 1 listbox dan 1 timer, lihat gambar dibawah:

Lalu klik 2 kali form yang sudah dibuat, hapus semua kode dan masukkan kode ini:

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
        Timer1.Enabled = True
    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
        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

Lihat hasil dari kode dan form yang sudah dibuat pada gambar dibawah: