好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 qiuweihg 于 2011-1-6 17:12 编辑
第一次发帖。。。有啥问题还请各位海涵。。包内附源码
圆通快递查询工具.rar
(908.46 KB, 下载次数: 88)
那一大串代码缩减了一下。。。.版本 2
.支持库 internet
.支持库 iconv
.子程序 线程查询
.参数 订单号, 文本型
.局部变量 网页文本, 文本型, , "999"
.局部变量 i, 整数型
.局部变量 文本, 文本型
.局部变量 Key, 文本型
.局部变量 y, 整数型
.局部变量 web, 文本型
url = “http://wap.yto56.cn/Code.aspx?keyword=”
Url = Url + 订单号
web = 到文本 (HTTP读文件 (url))
web = 到文本 (编码转换 (到字节集 (web), #编码_UTF_8, #编码_GB18030, ))
.计次循环首 (20, i) '20代表循环20次,快递的签收情况.
网页文本 = 取网页文本 (web, #前面1 + 到文本 (i - 1) + #前面2, #后面, )
.如果 (取文本长度 (网页文本 ) ≤ 100)
文本 = 网页文本
编辑框2.加入文本( 文本 + #换行符)
.否则
返回 (文本)
.如果结束
.计次循环尾 () ========================我是分割线========================
这个包含了MDI的,刚入门的可以看看,学习一下,老鸟飞过。。
附源码,没有版权,任意下载,随意传播。
圆通快递查询工具 v2.rar
(1.95 MB, 下载次数: 142)
|
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|