精易论坛

标题: 代理测试类 [打印本页]

作者: justinzhai 时间: 2019-9-26 20:52
标题: 代理测试类
.版本 2

.程序集程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 uid, 整数型
.局部变量 orderId, 文本型
.局部变量 secret, 文本型
.局部变量 pid, 整数型
.局部变量 url, 文本型

' 依赖库精易模块v7.2
' 依赖库鱼刺类_http
' test ()
' 返回 (0)
置随机数种子 ()
orderId ＝ “O190320145301xxxxxxx”
secret ＝ “afd9a087xxxxxxxxxxxxxxxxxxxx”
pid ＝ 0 ' pid表示省份id，0表示北京
输出调试文本 (“=======================”, “流冠http代理测试”)
输出调试文本 (“=======================”, “海量IP,全国覆盖”, “=======================”, “http://www.hailiangip.com”, “=======================”)
url ＝ “http://pv.sohu.com/cityjson”
' http代理测试 (orderId, secret, url)
' http代理测试 (orderId, secret, url)
' http代理测试 (orderId, secret, url, 到文本 (pid))
' http代理测试 (orderId, secret, url, 到文本 (pid))
.计次循环首 (10, uid)
http代理测试 (orderId, secret, url, 到文本 (pid))
.计次循环尾 ()
返回 (0)

.版本 2

.子程序 http代理测试, 整数型
.参数 orderId, 文本型
.参数 secret, 文本型
.参数 url, 文本型
.参数 pid, 文本型, 可空
.参数 uid, 文本型, 可空
.局部变量 http, WinHttpW

http.Open (“GET”, url)
http.SetProxy (“9705-test.ipproxy.info:14223”, “User”, getProxyPassword (orderId, secret, pid, uid))
http.Send ()
输出调试文本 (http.GetResponseText ())
http.Rest ()
返回 (0)

.子程序 getProxyPassword, 文本型
.参数 orderId, 文本型
.参数 secret, 文本型
.参数 pid, 文本型, 可空
.参数 uid, 文本型, 可空
.局部变量 Sign, 文本型
.局部变量 time, 文本型
.局部变量 password, 文本型

time ＝时间_取现行时间戳 (真)
Sign ＝校验_取md5_文本 (“orderId=” ＋ orderId ＋ “&secret=” ＋ secret ＋ “&time=” ＋ time)
password ＝ “orderId=” ＋ orderId ＋ “&time=” ＋ time ＋选择 (pid ＝ “”, “”, “&pid=” ＋ pid) ＋选择 (uid ＝ “”, “”, “&uid=” ＋ uid) ＋ “&sign=” ＋ Sign
' 输出调试文本 (password)
返回 (password)

VX截图_20190926204909.png (12.65 KB, 下载次数: 0)

作者: wangguan 时间: 2019-9-28 08:19
感谢分享！是验证代理有效吗？看看

作者: 来此一游 时间: 2019-12-23 19:25
英文看不懂

作者: sun376366866 时间: 2021-6-12 19:48
感谢分享

欢迎光临精易论坛 (https://125.confly.eu.org/)