Diese Socket-Komponente wird von der Firma hergestellt, die jmail entwickelt hat.
Eine sehr alte Version. Aber es ist ziemlich gut. Ich benutze es die ganze Zeit.
Relativ stabil. Ich habe zuvor festgestellt, dass xmlhttp auf dem Win2003-Server nicht gut funktioniert. Wenn der Datenverkehr groß ist, stürzt IIS leicht ab. Diese Komponente ist recht stabil.
paraHost = „ www.downcodes.com “ ' host
paraPort = 80' Port
paraFileUrl="/test/test.htm"
Setze Socket = CreateObject("Socket.TCP")
Socket.Host = paraHost & ":" & paraPort
Socket.Timeout = paraTimeout
Wenn Err.Number <> 0, dann Err.Clear
Socket.offen
' Timeout-Fehler = 8000ffff
Socket.SendLine „GET“ & paraFileUrl & „HTTP/1.0“
Socket.SendLine „HOST:“ & paraHost
Socket.SendLine ""
Socket.SendLine ""
„Schlaf 200.“
Socket.WaitForDisconnect
Wenn Err.Number <> 0, dann
Response.write Err.Number & " -- " & Err.Description
Err.Clear
Anders
Response.write HTTPResponse(Socket.Buffer, 1) ' Text vom Socket ausgeben
Ende wenn
Socket.Close
Setze Socket = Nichts
Private Funktion HTTPResponse(ByVal toHTTPResponse, ByVal whichHTTPResponse)
Bei Fehler Weiter fortsetzen
Dimmen Sie HTTPResponseDelimiter
HTTPResponseDelimiter = Chr(13) & Chr(10) & Chr(13) & Chr(10)
If (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) Dann
Wählen Sie Case whichHTTPResponse aus
Fall 0 'Kopfzeile
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
Fall 1 „Körper
HTTPResponse = Mid(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter)), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1)))
Endauswahl
End-If-
End-Funktion