Komponen soket ini dibuat oleh perusahaan yang mengembangkan jmail.
Versi yang sangat lama. Tapi itu cukup bagus. Saya menggunakannya sepanjang waktu.
Relatif stabil. Saya sebelumnya menemukan bahwa xmlhttp tidak berfungsi dengan baik di server win2003. Jika trafiknya besar, IIS akan mudah crash. Komponen ini cukup stabil.
paraHost =" www.downcodes.com " ' tuan rumah
paraPort = 80'pelabuhan
paraFileUrl="/test/test.htm"
Setel Socket = CreateObject("Socket.TCP")
Socket.Host = paraHost & ":" & paraPort
Socket.Waktu habis = paraTimeout
Jika Err.Number <> 0 Maka Err.Clear
Soket terbuka
'kesalahan batas waktu = 8000ffff
Socket.SendLine "DAPATKAN" & paraFileUrl & "HTTP/1.0"
Socket.SendLine "HOST: " & paraHost
Socket.SendLine ""
Socket.SendLine ""
'Tidur 200
Socket.WaitForDisconnect
Jika Err.Number <> 0 Lalu
respon.tulis Err.Nomor & " -- " & Err.Deskripsi
Err.Clear
Kalau tidak
respon.tulis HTTPResponse(Socket.Buffer, 1) ' teks keluaran dari soket
Akhiri Jika
Soket. Tutup
Setel Soket = Tidak Ada
Fungsi Pribadi HTTPResponse(ByVal toHTTPResponse, ByVal yangHTTPResponse)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Pembatas HTTPResponse
HTTPResponseDelimiter = Chr(13) & Chr(10) & Chr(13) & Chr(10)
Jika (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) <> 0) Lalu
Pilih Kasus yangRespon HTTP
Kasus 0 'Tajuk
HTTPResponse = Pertengahan(toHTTPResponse, 1, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1))
Kasus 1 'Tubuh
HTTPResponse = Tengah(toHTTPResponse, (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) + Len(HTTPResponseDelimiter)), (Len(toHTTPResponse) - (InStr(1, toHTTPResponse, HTTPResponseDelimiter, vbBinaryCompare) - 1)))
Pilihan Akhir
Fungsi
Akhir Jika
Akhir