讯代理做动态转发例程源码

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

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

XP风格 (2)

.子程序 _按钮1_被单击
.局部变量 planText, 文本型
.局部变量 sign, 文本型
.局部变量 文本协议, 文本型

planText ＝ “orderno=” ＋ 编辑框_orderno.内容 ＋ “,secret=” ＋ 编辑框_secret.内容 ＋ “,timestamp=” ＋ 时间_到时间戳 (, 真)
sign ＝ 到大写 (取数据摘要 (到字节集 (planText)))  ' 这里进行MD5 加密后返回
sign ＝ “Proxy-Authorization:sign=” ＋ sign ＋ “&” ＋ “orderno=ZF20199305858S73hva” ＋ “&timestamp=” ＋ 时间_到时间戳 (, 真)  ' 拼接好 添加Proxy-Authorization将认证信息传递给讯代理服务端
文本协议 ＝ 文本_插入新一行 (#协议头, 2, sign)  ' 插入到请求目标网站的 协议头中
调试输出 (文本协议)
编码_Utf8到Ansi (网页_访问_对象 (“http://www.juxiangyou.com”, , , “”, mCookies, 文本协议, , , 真, , “forward.xdaili.cn”, ))  ' 这里以精易论坛做个演示 其他网站同理
调试输出 (mCookies)
myLog (mCookies)

.子程序 myLog
.参数 str, 文本型

编辑框_myLog.加入文本 (补零 (取小时 (取现行时间 ())) ＋ “:” ＋ 补零 (取分钟 (取现行时间 ())) ＋ “:” ＋ 补零 (取秒 (取现行时间 ())) ＋ “  ” ＋ str ＋ #换行符)

.子程序 补零, 文本型
.参数 num, 整数型

.如果 (num ≤ 9)
    返回 (“0” ＋ 到文本 (num))
.否则
    返回 (到文本 (num))
.如果结束

@xcxds12