| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 返回文本 | 文本型 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 获取随机地址 | 文本型 | 本命令由【精易网页调试助手】生成，请配合精易模块使用。 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_网址 | 文本型 | |||||
| 局_方式 | 整数型 | |||||
| ADD_数据包 | 类_POST数据类 | |||||
| 局_提交数据 | 文本型 | |||||
| ADD_协议头 | 类_POST数据类 | |||||
| 局_提交协议头 | 文本型 | |||||
| 局_结果 | 字节集 | |||||
| 局_返回 | 文本型 | |||||
| 省代号数组 | 文本型 | 0 | ||||
| 省名字数组 | 文本型 | 0 | ||||
| 随机省 | 整数型 | |||||
| 省代号 | 文本型 | |||||
| 省名字 | 文本型 | |||||
| 市名字数组 | 文本型 | 0 | ||||
| 市代号数组 | 文本型 | 0 | ||||
| 随机市 | 整数型 | |||||
| 市代号 | 文本型 | |||||
| 市名字 | 文本型 | |||||
| 县代号数组 | 文本型 | 0 | ||||
| 县名字数组 | 文本型 | 0 | ||||
| 县代号 | 文本型 | |||||
| 区名字 | 文本型 | |||||
| 区名字数组 | 文本型 | 0 | ||||
| 区代号数组 | 文本型 | 0 | ||||
| 随机县 | 整数型 | |||||
| 区代号 | 文本型 | |||||
| 县名字 | 文本型 | |||||
| 随机区 | 整数型 | |||||
| 表项 | 整数型 | |||||
' 获取省级地址名字和代号
局_网址 ＝ “https://thor.weidian.com/address/baseGetSortedSubAddress/1.0”
局_方式 ＝ 1
ADD_数据包.添加 (“param”, “%7B%22parent_id%22%3A1%7D”)
ADD_数据包.添加 (“wdtoken”, “bc9c6be9”)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 省代号数组)
文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 省名字数组)
随机省 ＝ 取随机数 (1, 取数组成员数 (省名字数组) － 5)
省代号 ＝ 省代号数组 [随机省]
省名字 ＝ 省名字数组 [随机省]
' 获取省级地址名字和代号完成
' 获取市级地址名字和代号开始
局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 省代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 市代号数组)
文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 市名字数组)
随机市 ＝ 取随机数 (1, 取数组成员数 (市名字数组))
市代号 ＝ 市代号数组 [随机市]
市名字 ＝ 市名字数组 [随机市]
' 获取市级地址名字和代号结束
' 获取县级地址名字和代号开始
局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 市代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 县代号数组)
文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 县名字数组)
如果 (取数组成员数 (县名字数组) ≠ 0)
随机县 ＝ 取随机数 (1, 取数组成员数 (县名字数组))县代号 ＝ 县代号数组 [随机县]县名字 ＝ 县名字数组 [随机县]如果真 (县名字 ＝ “暂不选择”)随机县 ＝ 随机县 － 1
' 获取县级地址名字和代号结束
' 获取区货镇级地址名字和代号开始
局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 县代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 区代号数组)
文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 区名字数组)
如果 (取数组成员数 (区名字数组) ≠ 0)随机区 ＝ 取随机数 (1, 取数组成员数 (区名字数组) － 1)区代号 ＝ 区代号数组 [随机区]区名字 ＝ 区名字数组 [随机区]区代号 ＝ “999999”区名字 ＝ “”' 获取区货镇级地址名字和代号结束
调试输出 (省名字 ＋ 市名字 ＋ 县名字 ＋ 区名字)
表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (表项 ＋ 1))
超级列表框1.置标题 (表项, 1, 省名字 ＋ 市名字 ＋ 县名字 ＋ 区名字)
返回 (“”)
| i支持库列表 | 支持库注释 |
| Krnlnex | (未知支持库) |
| iext | 扩展界面支持库一 |
