.版本 2 .子程序 _按钮_测试_被单击 .局部变量 局_返回信息, 文本型 .局部变量 http, WinHttpW .局部变量 timestamp, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 planText, 文本型 .局部变量 MD5_planText, 文本型 .局部变量 协议头, 文本型 timestamp ＝ 时间_取现行时间戳 (真) planText ＝ “orderno=” ＋ 编辑框_订单号.内容 ＋ “,secret=” ＋ 编辑框_secret.内容 ＋ “,timestamp=” ＋ timestamp MD5_planText ＝ 校验_取md5 (到字节集 (planText), 真, ) 协议头 ＝ “Proxy-Authorization:sign=” ＋ MD5_planText ＋ “&orderno=” ＋ 编辑框_订单号.内容 ＋ “&timestamp=” ＋ timestamp .判断开始 (选择框_鱼刺.选中 ＝ 真) http.Open (, “http://2018.ip138.com/ic.asp”) http.SetProxy (“forward.xdaili.cn:80”) http.SetRequestHeaders (协议头) http.Send () 局_返回信息 ＝ http.GetResponseText () 局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “center>”, “</cent”) 编辑框_显示.加入文本 (局_返回信息 ＋ #换行符) .默认 局_返回信息 ＝ 到文本 (网页_访问_对象 (“http://2018.ip138.com/ic.asp”, 0, , , , 协议头, , , , , “forward.xdaili.cn:80”)) 局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “center>”, “</cent”) 编辑框_显示.加入文本 (局_返回信息 ＋ #换行符)