Winsock1.Connect Host, 80
 
Private Sub Winsock1_Connect()
Winsock1.SendData "GET " & URL & " HTTP/1.1" & vbCrLf & _
"Host: " & b & "" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"Accept-Language: en" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim d As String
Winsock1.GetData d
HTML = HTML & d
End Sub