- 注册时间
- 2011-8-8
- 最后登录
- 1970-1-1
该用户从未签到
|
验证代理IP原理
我来提供一个思路,不一定好用..
你好像用http来代表一个IP去访问百度或一个网站...如果能返回正确的内容就是能代理.反之就是不能代理.
=======================
你可以用http来代理IP访问一个IP去访问百度或一个网站...如果能返回正确的内容就是能代理.反之就是不能代理.
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
调试输出 (到文本 (访问网页_XmlHttp (“http://www.baidu.com”, “122.224.249.204:8080”)))
.如果 (寻找文本 (到文本 (访问网页_XmlHttp (“http://www.baidu.com”, “122.224.249.204:8080”)), “<!DOCTYPE html><!--STATUS OK--><html>”, , 假) ≠ -1)
调试输出 (“代理可用”)
.否则
调试输出 (“代理不可用”)
.如果结束
.子程序 访问网页_XmlHttp, 字节集, 公开, get一个网站
.参数 完整网址, 文本型, , 完整网址
.参数 代理地址, 文本型, 可空, 代理地址
.局部变量 XMLHTTP, 对象
.局部变量 局部_返回数据, 字节集
CoInitialize (0) ' 初始化对象开始
.如果真 (XMLHTTP.创建 (“WinHttp.WinHttpRequest.5.1”, ))
XMLHTTP.方法 (“setProxy”, 2, 代理地址)
XMLHTTP.方法 (“open”, “GET”, 完整网址, 假, )
XMLHTTP.方法 (“setRequestHeader”, “Referrer”, 完整网址) ' 仅服务器可知 来路
XMLHTTP.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*”)
XMLHTTP.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)
XMLHTTP.方法 (“setRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
XMLHTTP.方法 (“setTimeouts”, 15000, 15000, 15000, 15000) ' 超时
XMLHTTP.方法 (“send”, )
局部_返回数据 = XMLHTTP.读属性 (“responseBody”, ).取字节集 ()
.如果真结束
CoUninitialize () ' 初始化对象结束
返回 (局部_返回数据) |
|