HP_Socket服务器自动打码交互

易语言 2020-01-14 23:27:14

HP_Socket服务器自动打码交互

这个准确的大概是在百分之九十左右。

.如果真 (m_Server.IsUpgrade (task.pSender, task.dwConnID))
返回 ()
.如果真结束
bSkipBody = 0
Method = m_Server.GetMethod (task.pSender, task.dwConnID)
dwSeq = 1
urlPath = m_Server.GetUrlField (task.pSender, task.dwConnID, #HUF_PATH)
lpszReqSequence = m_Server.GetCookie (task.pSender, task.dwConnID, “__reqSequence”)
.如果真 (lpszReqSequence ≠ “”)
dwSeq = dwSeq + 到整数 (lpszReqSequence)
.如果真结束

header [1].name = “Accept”
header [1].value = “text/plain, text/html”
.判断开始 (Method = “HEAD”)
bSkipBody = 1
.判断 (Method = “GET”)
bSkipBody = 0
Body = GET (urlPath)
.判断 (Method = “POST”)
m_Server.SendResponse (task.pSender, task.dwConnID, #HSC_OK, , header, 到字节集
.默认

.判断结束

.判断开始 (bSkipBody = 0)
m_Server.SendResponse (task.pSender, task.dwConnID, #HSC_OK, , header, 到字节集 (Body))
.判断 (bSkipBody = 1)
m_Server.SendResponse (task.pSender, task.dwConnID, #HSC_OK, , header, )