

CODE: [Copy to clipboard]最后用 xmlHttp.ResponseBody 进行解码,做成 textstream 分析就可以了LoginString= "" '这里省略了,就是抓包的结果,另外要分析那个 FormHashCode
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
xmlHttp.open "POST","http://www.cn-dos.net/forum/logging.php?action=login",False '使用同步方式发包
xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded" '登陆就得写这个
xmlHttp.setRequestHeader "Content-Length",len(LoginString) ' 改长度
xmlHttp.send (loginString)

| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |