.版本 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)
|