Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
DoEvents
Me.Text3.Text = Me.Text3.Text & strData
End Sub

Private Sub Command1_Click()
Winsock1.Connect Text1.Text, 80
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Form_Load()

End Sub

Private Sub Winsock1_Connect()
For i = 1 To Text3.Text
Winsock1.SendData ("GET /" & Text2.Text & " HTTP/1.1" & vbCrLf & "Host:" & Text1.Text & vbCrLf & vbCrLf)
Label4.Caption = Label4.Caption + 1
Next
End Sub


Private Sub Winsock1_SendComplete()
Label4.Caption = Label4.Caption + 1
Winsock1.Close
Winsock1.Connect Text1.Text, 80
End Sub