IP yerine istediğiniz web site ve ya ıp yi yazın.
Ms(MiliSaniye) yerine 10000 yazabilirsiniz.
Başlata tıklayın program ping göndermeye başlasın.
GEREKENLER
2 TEXT BOX
2 LABEL
2 BUTTON
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Timer1.Interval = TextBox2.Text Timer1.Start() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Shell("Ping (TextBox1.Text") MsgBox("Gönderiliyor") End Sub End Class