网页同功能版快递100查询单号例程

这里控制变量就是判断编辑框1秒内再无输入就执行以下代码
控制 ＝ 控制 ＋ 1
程序_延时 (1, 1)
控制 ＝ 控制 － 1
' 调试输出 (控制)
.如果真 (控制 ＝ 0)
.如果真 (取文本长度 (编辑框_快递单号.内容) ＞ 4)
超级列表框_公司.全部删除 ()
启动线程 (&取本单公司, , )

局部_访问结果 ＝ 到文本 (编码转换 (网页_访问 (局部_Url, , , , , , , , , , , , ), #编码_UTF_8, #编码_GB18030, ))
' 调试输出 (局部_访问结果)
.如果真 (局_json.解析 (局部_访问结果, ))
局_json1.解析 (json文本, )
.计次循环首 (局_json.成员数 (“auto”), i)
临时公司 ＝ 局_json.取通用属性 (“auto[” ＋ 到文本 (i － 1) ＋ “].comCode”, )
索引 ＝ 超级列表框_公司.插入表项 (-1, , , , , )
' 调试输出 (局_json1.取通用属性 (临时公司, ))
超级列表框_公司.置标题 (索引, 0, 局_json1.取通用属性 (临时公司, ))
超级列表框_公司.置标题 (索引, 1, 临时公司)
处理事件 ()
.计次循环尾 ()
超级列表框_公司.现行选中项 ＝ 0