.版本 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 (网页_访问_对象 (“//www.juxiangyou.com”, , , “”, mCookies, 文本协议, , , 真, , “forward.xdaili.cn”, )) ' 这里以精易论坛做个演示 其他网站同理 调试输出 (mCookies) myLog (mCookies) .子程序 myLog .参数 str, 文本型 编辑框_myLog.加入文本 (补零 (取小时 (取现行时间 ())) ＋ “:” ＋ 补零 (取分钟 (取现行时间 ())) ＋ “:” ＋ 补零 (取秒 (取现行时间 ())) ＋ “ ” ＋ str ＋ #换行符) .子程序 补零, 文本型 .参数 num, 整数型 .如果 (num ≤ 9) 返回 (“0” ＋ 到文本 (num)) .否则 返回 (到文本 (num)) .如果结束