|
#2
djvv2012-03-15 23:04
 上传不了图片 |
如图上，我有一套程序，设置了HTTP要用户和密码才可以访问的。
我现在想用小偷程序登陆，不知道ASP 能不能实现。当然用户密码我有。
如果不设置这个验证页，用下面的小偷函数是没有问题的。
程序代码：Function getHTTPPage_dl(url)
Dim http, q_post,getHTTPPage
Set http = CreateObject("Microsoft.XMLHTTP")
http.open "POST",url,False
http.setRequestHeader "Accept", "*/*" '表示我们所用的浏览器能接受的Content-type
http.setRequestHeader "Accept-Language", "zh-cn" '语言
http.setRequestHeader "Referer", "http://" '当前页面是从那个页面链接来的
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '表示客户端提交给服务器文本内容的编码方式是URL编码，即除了标准字符外，每字节以双字节16进制前加个“%”表示
http.setRequestHeader "Host", "http"//" '所请求的主机
http.setRequestHeader "Content-Length", "55" '表示提交的数据字节大小
http.setRequestHeader "Connection", "Keep-Alive" '数据传递完并不立即关闭连接
http.setRequestHeader "Cache-Control", "no-cache" '返回消息中的Cache用于指定网页缓存
Http.send ("txtyhm="&Request.Form("txtyhm")&"&employId="&Request.Form("employId")&"&txtkl="&Request.Form("txtkl")&"")
getHTTPPage = RemoveHTML(ReplaceTrim(bytesToBSTR(Http.responseBody,"GB2312")))
Set http = Nothing
getHTTPPage_dl = getHTTPPage
End Function
Dim http, q_post,getHTTPPage
Set http = CreateObject("Microsoft.XMLHTTP")
http.open "POST",url,False
http.setRequestHeader "Accept", "*/*" '表示我们所用的浏览器能接受的Content-type
http.setRequestHeader "Accept-Language", "zh-cn" '语言
http.setRequestHeader "Referer", "http://" '当前页面是从那个页面链接来的
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '表示客户端提交给服务器文本内容的编码方式是URL编码，即除了标准字符外，每字节以双字节16进制前加个“%”表示
http.setRequestHeader "Host", "http"//" '所请求的主机
http.setRequestHeader "Content-Length", "55" '表示提交的数据字节大小
http.setRequestHeader "Connection", "Keep-Alive" '数据传递完并不立即关闭连接
http.setRequestHeader "Cache-Control", "no-cache" '返回消息中的Cache用于指定网页缓存
Http.send ("txtyhm="&Request.Form("txtyhm")&"&employId="&Request.Form("employId")&"&txtkl="&Request.Form("txtkl")&"")
getHTTPPage = RemoveHTML(ReplaceTrim(bytesToBSTR(Http.responseBody,"GB2312")))
Set http = Nothing
getHTTPPage_dl = getHTTPPage
End Function