'===============================================================.
'函数名 ： PosthTTPPAGE
'作用 ： 登录
'===============================================================.
Functionposthttppage (référentiel, posturl, postdata)
Dimxmlhttp
Dimretstr
Setxmlhttp = createObject ("msxml2.xmlhttp")
xmlhttp.open "Post", posturl, faux
Xmlhttp.setRequestHeader "Content-Length", Len (postdata)
xmlhttp.setRequestHeader "Content-Type", "Application / X-Www-Form-Urlencoded"
xmlhttp.setRequestHeader "référer", référentiel
xmlhttp.sendPostData
IFerr.Number <> 0THEN
Setxmlhttp = rien
Posthttppage = "$ false $"
Sortie
Endire
PosthTTPPAGE = byTestObstr (xmlhttp.Responsebody, "gb2312")
Setxmlhttp = rien
Finition de fin