动态代理转发例子源码

.版本 2
.支持库 dp1
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

动态转发代理 (“个人密钥”, “订单号”)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 动态转发代理
.参数 orderno, 文本型, , 个人密钥
.参数 secret, 文本型, , 订单号
.局部变量 timestamp, 文本型, , , 十位时间戳
.局部变量 sign, 文本型
.局部变量 xy, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 ste, 文本型
.局部变量 局_提交协议头, 文本型

timestamp ＝ 时间_取现行时间戳 (真)
sign ＝ “orderno=” ＋ orderno ＋ “,secret=” ＋ secret ＋ “,timestamp=” ＋ timestamp
sign ＝ 到大写 (取数据摘要 (到字节集 (sign)))
xy ＝ “sign=” ＋ sign ＋ “&orderno=” ＋ orderno ＋ “&timestamp=” ＋ timestamp ＋ #换行符
ADD_协议头.添加 (“Proxy-Authorization”, xy)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
ste ＝ 到文本 (网页_访问_对象 (“https://www.baidu.com/”, 0, , , , 局_提交协议头, , , , , “forward.xdaili.cn:80”))
调试输出 (xy, ste)

@15972935620