Este componente de socket está fabricado por la empresa que desarrolló jmail.
Una versión muy antigua. Pero es bastante bueno. Lo uso todo el tiempo.
Relativamente estable. Anteriormente descubrí que xmlhttp no funcionaba bien en el servidor win2003. Si el tráfico es grande, IIS colapsará fácilmente. Este componente es bastante estable.
paraHost=" www.downcodes.com " 'host
paraPort = puerto de 80'
paraFileUrl="/prueba/prueba.htm"
Establecer socket = CreateObject ("Socket.TCP")
Socket.Host = paraHost & ":" & paraPort
Socket.Timeout = paraTimeout
Si Err.Number <> 0 entonces Err.Clear
Enchufe.abierto
'error de tiempo de espera = 8000ffff
Socket.SendLine "GET" & paraFileUrl & "HTTP/1.0"
Socket.SendLine "HOST:" y paraHost
Socket.SendLine ""
Socket.SendLine ""
'Duerme 200
Socket.WaitForDisconnect
Si Número de error <> 0 Entonces
respuesta.escribir Número de error & " -- " & Descripción de error
Err.Borrar
Demás
respuesta.escribir HTTPResponse(Socket.Buffer, 1) ' texto de salida del socket
Terminar si
Zócalo.Cerrar
Establecer zócalo = Nada
Función privada HTTPResponse (ByVal toHTTPResponse, ByVal cualHTTPResponse)
En caso de error Continuar siguiente
Dim HTTPResponseDelimiter
HTTPResponseDelimiter = Chr(13) y Chr(10) y Chr(13) y Chr(10)
Si (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) Entonces
Seleccione el caso queHTTPResponse
Caso 0' Encabezado
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
Caso 1 'Cuerpo
HTTPResponse = Mid(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter)), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1)))
Finalizar selección
Finalizar si
finaliza la función