自动生成收货地址

1191798444

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮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	扩展界面支持库一

.版本 2<br /> .支持库 Krnlnex<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回文本, 文本型<br /> <br /> 获取随机地址 ()<br /> <br /> <br /> .子程序 获取随机地址, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_数据包, 类_POST数据类<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 ADD_协议头, 类_POST数据类<br /> .局部变量 局_提交协议头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 省代号数组, 文本型, , "0"<br /> .局部变量 省名字数组, 文本型, , "0"<br /> .局部变量 随机省, 整数型<br /> .局部变量 省代号, 文本型<br /> .局部变量 省名字, 文本型<br /> .局部变量 市名字数组, 文本型, , "0"<br /> .局部变量 市代号数组, 文本型, , "0"<br /> .局部变量 随机市, 整数型<br /> .局部变量 市代号, 文本型<br /> .局部变量 市名字, 文本型<br /> .局部变量 县代号数组, 文本型, , "0"<br /> .局部变量 县名字数组, 文本型, , "0"<br /> .局部变量 县代号, 文本型<br /> .局部变量 区名字, 文本型<br /> .局部变量 区名字数组, 文本型, , "0"<br /> .局部变量 区代号数组, 文本型, , "0"<br /> .局部变量 随机县, 整数型<br /> .局部变量 区代号, 文本型<br /> .局部变量 县名字, 文本型<br /> .局部变量 随机区, 整数型<br /> .局部变量 表项, 整数型<br /> <br /> 置随机数种子 ()<br /> ' 获取省级地址名字和代号<br /> 局_网址 ＝ “https://thor.weidian.com/address/baseGetSortedSubAddress/1.0”<br /> 局_方式 ＝ 1<br /> ADD_数据包.添加 (“param”, “%7B%22parent_id%22%3A1%7D”)<br /> ADD_数据包.添加 (“wdtoken”, “bc9c6be9”)<br /> 局_提交数据 ＝ ADD_数据包.获取Post数据 ()<br /> 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”)<br /> 局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 省代号数组)<br /> 文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 省名字数组)<br /> 随机省 ＝ 取随机数 (1, 取数组成员数 (省名字数组) － 5)<br /> 省代号 ＝ 省代号数组 [随机省]<br /> 省名字 ＝ 省名字数组 [随机省]<br /> ' 获取省级地址名字和代号完成<br /> <br /> <br /> ' 获取市级地址名字和代号开始<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 省代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 市代号数组)<br /> 文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 市名字数组)<br /> 随机市 ＝ 取随机数 (1, 取数组成员数 (市名字数组))<br /> 市代号 ＝ 市代号数组 [随机市]<br /> 市名字 ＝ 市名字数组 [随机市]<br /> ' 获取市级地址名字和代号结束<br /> <br /> ' 获取县级地址名字和代号开始<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 市代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 县代号数组)<br /> 文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 县名字数组)<br /> .如果 (取数组成员数 (县名字数组) ≠ 0)<br />     随机县 ＝ 取随机数 (1, 取数组成员数 (县名字数组))<br />     县代号 ＝ 县代号数组 [随机县]<br />     县名字 ＝ 县名字数组 [随机县]<br />     .如果真 (县名字 ＝ “暂不选择”)<br />         随机县 ＝ 随机县 － 1<br />     .如果真结束<br /> <br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 获取县级地址名字和代号结束<br /> <br /> ' 获取区货镇级地址名字和代号开始<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式, “param=%7B%22parent_id%22%3A” ＋ 县代号 ＋ “%7D&wdtoken=bc9c6be9”, , , 局_提交协议头, , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 文本_取中间_批量 (局_返回, #省代号前面, #省代号后面, 区代号数组)<br /> 文本_取中间_批量 (局_返回, #省名字前面, #省名字后面, 区名字数组)<br /> .如果 (取数组成员数 (区名字数组) ≠ 0)<br />     随机区 ＝ 取随机数 (1, 取数组成员数 (区名字数组) － 1)<br />     区代号 ＝ 区代号数组 [随机区]<br />     区名字 ＝ 区名字数组 [随机区]<br /> <br /> .否则<br />     区代号 ＝ “999999”<br />     区名字 ＝ “”<br /> <br /> .如果结束<br /> ' 获取区货镇级地址名字和代号结束<br /> 调试输出 (省名字 ＋ 市名字 ＋ 县名字 ＋ 区名字)<br /> 表项 ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (表项, 0, 到文本 (表项 ＋ 1))<br /> 超级列表框1.置标题 (表项, 1, 省名字 ＋ 市名字 ＋ 县名字 ＋ 区名字)<br /> 返回 (“”)

lcl1998

下载学习学习

sna520

++++++++++++++++++++

angod

下载学习学习

易上手

感谢分享

ax5038

感谢分享

清流啊

321111111111111111111111111111

jnjcsh

感谢分享

pojin

谢谢分享，楼主是好人

junhai

谢谢！！！！！！！