.版本 2 .支持库 iext .支持库 spec .子程序 查询 .局部变量 i, 整数型 .局部变量 dingdan, 文本型 .局部变量 z, 文本型 .局部变量 data, 文本型 .局部变量 email, 文本型 .局部变量 i1, 整数型 .局部变量 gs, 文本型 .局部变量 c, 整数型 按钮2.标题 ＝ “查询中....” .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.获取焦点 () dingdan ＝ 超级列表框1.取标题 (i － 1, 4) dingdan ＝ 删首尾空 (dingdan) gs ＝ 查询快递公司 (dingdan) z ＝ 查快递 (dingdan, gs, 2) 调试输出 (z) c ＝ 到整数 (超级列表框1.取标题 (i － 1, 6)) ＋ 1 超级列表框1.置标题 (i － 1, 5, z) 超级列表框1.置标题 (i － 1, 6, 到文本 (c)) ' 程序_延时 (到整数 (编辑框1.内容), 2) .计次循环尾 () .计次循环首 (超级列表框1.取表项数 (), ) .计次循环首 (超级列表框1.取表项数 (), i1) z ＝ 超级列表框1.取标题 (i1 － 1, 5) .如果真 (寻找文本 (z, “签收”, , 假) ＞ 0) data ＝ “名字：” ＋ 超级列表框1.取标题 (i1 － 1, 1) ＋ “----” ＋ “地址：” ＋ 超级列表框1.取标题 (i1 － 1, 2) ＋ “----” ＋ “电话：” ＋ 超级列表框1.取标题 (i1 － 1, 3) ＋ “----” ＋ “单号：” ＋ 超级列表框1.取标题 (i1 － 1, 4) 保存文本 (data, “已签收”) 超级列表框1.删除表项 (i1 － 1) .如果真结束 .计次循环尾 () .计次循环尾 () 处理数据 () 按钮2.标题 ＝ “查询完成”