wanghao85227 wanghao85227
关注数: 27 粉丝数: 76 发帖数: 872 关注贴吧数: 82
POST提交数据后如何获得跳转的含参数网址? 本人写一段POST代码,目的是登录网站后进行一系列操作。但这个网站登录后跳转的网址带有参数,也就是说这个网址并不固定。我该如何获得这个新网址以便下一步操作呢? 登录地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.xxxxxxxx.com%2Flogin.htm&urlrefer=3e4c67335d0b1955b3f19f8a5828f16c post提交数据:userName=账号&pwd=密码 (用账号、密码进行登录) 登录后跳转地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fxxxxxxxxxxxxx%2Fcapt%2Fregister.html%3Fun%3Dwanglu1982&urlrefer=ded2fbef94c832e1ed22cc5c49d809bf(账号)&cno=XXXXXXXXX(身份证号)&logtype=2&code=D054DD35A5984567E9BB55768CB......(很长一串) 以下是代码: Set http = CreateObject("winHttp.winhttpRequest.5.1") Data = "userName=" & 用户名 & "&pwd =" & 密码 http.open "POST", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.xxxxxxxx.com%2Flogin.htm&urlrefer=3e4c67335d0b1955b3f19f8a5828f16c", False http.setRequestHeader "Accept","application/json, text/javascript, */*; q=0.01" http.setRequestHeader "Accept-Language", "zh-cn" http.setRequestHeader "Accept-Encoding", "gzip, deflate" http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8" http.setRequestHeader "X-Requested-With", "XMLHttpRequest" http.setRequestHeader "Referer", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.xxxxxxxxx....&urlrefer=6984a7e403e805a19a452f71004b211e" http.setRequestHeader "Host", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.xxxxxxxx.com&urlrefer=c45b71e933b7d9f60d6ce313c7fbe315" http.setRequestHeader "Cache-Control", "no-cache" http.setRequestHeader "Connection", "Keep-Alive" http.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; InfoPath.3)" Http.Send Data //URL=?????跳转地址该如何获取? http.open "GET", URL, False Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\登录后的网页.txt",网页源码) Function 网页源码() 网页源码="" xmlBody = http.ResponseBody Set ObjStream = CreateObject("Adodb.Stream") With ObjStream .Type = 1 .Mode = 3 .Open .Write xmlBody .Position = 0 .Type = 2 .Charset = "UTF-8" BytesToBstr = .ReadText .Close End With Set ObjStream = nothing 网页源码 = BytesToBstr End Function
1 下一页