'====================================================
'函数名 ： Posthttppage
'作用 ： 登录
'====================================================
FunctionPoStHtPpage (RefererUrl, posturl, postdata)
Dimxmlhttp
DIMRETSTR
Setxmlhttp = createObject ("msxml2.xmlhttp")
xmlhttp.open "post", posturl, false
Xmlhttp.setRequestheader "panjang konten", len (postdata)
xmlhttp.setRequestHeader "tipe konten", "Aplikasi/X-WWW-Form-Urlencoded"
xmlhttp.setRequestheader "Referer", RefererUrl
xmlhttp.sendpostdata
Iferr.number <> 0then
Setxmlhttp = tidak ada
Postttppage = "$ false $"
Fungsi keluar
Endif
Postttppage = bytestoBstr (xmlhttp.responseBody, "GB2312")
Setxmlhttp = tidak ada
Fungsi endfungsi