'================================================== '函数名：PostHttpPage '作  用：登录 '================================================== Function PostHttpPage(RefererUrl,PostUrl,PostData)      Dim xmlHttp      Dim RetStr           Set xmlHttp = CreateObject("Msxml2.XMLHTTP")       xmlHttp.Open "POST", PostUrl, False     XmlHTTP.setRequestHeader "Content-Length",Len(PostData)      xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"     xmlHttp.setRequestHeader "Referer", RefererUrl     xmlHttp.Send PostData      If Err.Number <> 0 Then          Set xmlHttp=Nothing         PostHttpPage = "$False$"         Exit Function     End If     PostHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312")     Set xmlHttp = nothing End Function