28,391
社区成员
发帖
与我相关
我的任务
分享怎么模拟登录asp.net的网站？
用
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
这样的好像登录不了。
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
这样的好像登录不了。
...全文
请发表友善的回复…
发表回复
xuying_849244860 2011-10-31
- 打赏
- 举报
帮你顶
KK3K2005 2010-09-26
- 打赏
- 举报
[Quote=引用楼主 zhuangjunx 的回复:]
这样的好像登录不了。
[/Quote]
能 还是 不能？
这样的好像登录不了。
[/Quote]
能 还是 不能？
zhuangjunx 2010-09-26
- 打赏
- 举报
自己顶。。。
zhuangjunx 2010-09-22
- 打赏
- 举报
自己顶。。。
