-
'函数名： postthttppage
'作用： 登录
-
FunctionPOSTHTTPPAGE (RefererUrl, posturl, postdata)
dimxmlhttp
dimretstr
setxmlhttp = createObject ("msxml2.xmlhttp"))
xmlhttp.open "post", posturl, false
xmlhttp.setrequestheader "ความยาวเนื้อหา", len (postdata)
xmlhttp.setrequestheader "content-type", "แอปพลิเคชัน/x-www-form-urlencoded"
xmlhttp.setrequestheader "referer", refererurl
xmlhttp.sendpostdata
iferr.number <> 0 แล้ว
setxmlhttp = ไม่มีอะไร
POSTHTTPPAGE = "$ FALSE $"
exitfunction
endif
POSTHTTPPAGE = BYTESTOBSTR (XMLHTTP.ResponseBody, "GB2312")
setxmlhttp = ไม่มีอะไร
endfunction