Este componente de soquete é fabricado pela empresa que desenvolveu o jmail.
Uma versão muito antiga. Mas é muito bom. Eu uso isso o tempo todo.
Relativamente estável. Eu descobri anteriormente que o xmlhttp não funcionava bem no servidor win2003. Se o tráfego for grande, o IIS travará facilmente. Este componente é bastante estável.
paraHost=" www.downcodes.com " 'host
paraPort = 80 'porta
paraFileUrl="/test/test.htm"
Definir Socket = CreateObject("Socket.TCP")
Socket.Host = paraHost & ":" & paraPort
Socket.Timeout = paraTimeout
Se Err.Number <> 0 Então Err.Clear
Soquete.aberto
'erro de tempo limite = 8000ffff
Socket.SendLine "GET" & paraFileUrl & "HTTP/1.0"
Socket.SendLine "HOST:" & paraHost
Soquete.SendLine ""
Soquete.SendLine ""
'Durma 200
Soquete.WaitForDisconnect
Se Err.Number <> 0 Então
resposta.write Err.Number & "-" & Err.Description
Err.Clear
Outro
response.write HTTPResponse(Socket.Buffer, 1) 'exibe o texto do soquete
Terminar se
Soquete.Fechar
Definir soquete = nada
Função privada HTTPResponse (ByVal toHTTPResponse, ByVal whichHTTPResponse)
Em caso de erro, retomar o próximo
Dim HTTPResponseDelimiter
HTTPResponseDelimiter = Chr(13) & Chr(10) & Chr(13) & Chr(10)
Se (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) Então
Selecione o caso whichHTTPResponse
Caso 0 'Cabeçalho
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
Caso 1 'Corpo
HTTPResponse = Mid(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter)), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1)))
Finalizar seleção
Função
End If
End