Necesitas formar manualmente la solicitud HTTP.
Tenés que reemplazar "Pepito", "MyPass" y "MyHostName" con tus credenciales y nombre de host adecuados. Además, esta solicitud está configurada para cerrar la conexión después de recibir la respuesta del servidor. Si necesitas manejar la respuesta del servidor, deberás configurar eventos en el control Winsock para recibir los datos de respuesta y procesarlos adecuadamente.
Código:
Dim Peticion As String
' Construir la solicitud HTTP
Peticion = "GET /dns?username=Pepito&password=MyPass&hostname=MyHostName HTTP/1.1" & vbCrLf
Peticion = Peticion & "Host: dynupdate.no-ip.com" & vbCrLf
Peticion = Peticion & "Connection: close" & vbCrLf
Peticion = Peticion & vbCrLf ' Fin de los encabezados
' Conectar y enviar la solicitud
Winsock.Close
Winsock.RemoteHost = "dynupdate.no-ip.com"
Winsock.RemotePort = 80
Winsock.Connect
Winsock.SendData Peticion
Tenés que reemplazar "Pepito", "MyPass" y "MyHostName" con tus credenciales y nombre de host adecuados. Además, esta solicitud está configurada para cerrar la conexión después de recibir la respuesta del servidor. Si necesitas manejar la respuesta del servidor, deberás configurar eventos en el control Winsock para recibir los datos de respuesta y procesarlos adecuadamente.
Mil gracias. Funiona!!