Necesitas:1 Boton (Name = cmdConectar)
1 Winsock (Name = Sock)
3 Huevos (es broma xD)Private Sub cmdConectar()
Sock.Close
Sock.Connect "www.google.com.ar", 80
While Not Sock.State = 7
DoEvents
Wend
Sock.SendData "GET / HTTP/1.0" & vbCrLf & "Host: www.google.com.ar" & vbCrLf & vbCrLf
End Sub
Despues el
DataArrival es normal, pero si es mucho codigo, el servidor envia por partes!
Yo estoy haciendo un programa para obtener datos de web, y hacer verificaciones, tambien tiene autentificacion Base64