一个很简单的post发广告,如今卡主了..求高手帮帮忙
我要写一个自动发广告的软件。目标网站是：www.0453.com
核对密码的网址是：http://www.0453.com/usercheck.asp
提交广告的网址是：http://www.0453.com/user/dbsave.asp
这个网址我也研究过了,是明文传送方式.
模仿论坛已有的代码,前几天测试成功了.很是兴奋.但是转过头来再一测试就不好使了！
另附上账号一枚以便高手测试： USER：635773624 PASS：qwe123654
若是有高手能指点一二小弟不胜感激,传个资料啥的也行啊.
以下是我修改的代码：$oHTTP = ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("post","http://www.0453.com/usercheck.asp",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Accept-Language", "zh-cn")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://www.0453.com/userlogin.asp")
$oHTTP.Send("name=635773624&pass=qwe123654&enter=+%C8%B7%B6%A8+");post关键数据
;登陆代码
$oHTTP.Open("post","http://www.0453.com/user/dbsave.asp",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Accept-Language", "zh-cn")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://www.0453.com/user/tijiao.asp")
$oHTTP.Send("dtitle=%BD%F0%D3%FE%B5%E7%C4%D4&dlei=%B3%F6%CA%DB&dtext=%B2%E2%CA%D41&remlen=77&dstop=7&darea=%C4%B5%B5%A4%BD%AD&dmima=sdfsdf&demail=635773624@qq.com&ipadress=218.10.40.227&submit=%CC%E1+%BD%BB");post关键数据
憋屈死我了....研究了好几天没一点进展... 没人吗 快来人呀 前面加个退出 实测可以发送了
$oHTTP = ObjCreate("MSXML2.XMLHTTP")
$oHTTP.Open("get","http://www.0453.com/user/quit.asp",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Accept-Language", "zh-cn")
$oHTTP.Send();post关键数据
$oHTTP = ObjCreate("MSXML2.XMLHTTP")
$oHTTP.Open("post","http://www.0453.com/usercheck.asp",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Accept-Language", "zh-cn")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)")
$oHTTP.Send("name=635773624&pass=qwe123654&enter=+%C8%B7%B6%A8+");post关键数据
;登陆代码
$a2 = BinaryToString($oHTTP.responsebody)
MsgBox(0,"",$a2)
$oHTTP = ObjCreate("MSXML2.XMLHTTP")
$oHTTP.Open("post","http://www.0453.com/user/dbsave.asp",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Accept-Language", "zh-cn")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://www.0453.com/user/tijiao.asp")
$oHTTP.Send("dtitle=%BD%F0%D3%FE%B5%E7%C4%D4&dlei=%B3%F6%CA%DB&dtext=%B2%E2%CA%D41&remlen=77&dstop=7&darea=%C4%B5%B5%A4%BD%AD&dmima=sdfsdf&demail=635773624@qq.com&ipadress=218.10.40.227&submit=%CC%E1+%BD%BB");post关键数据
$a2 = BinaryToString($oHTTP.responsebody)
MsgBox(0,"",$a2)
页:
[1]