玩物得志易语言源码

源码调用了鱼刺和精易模块。

.版本 2
.支持库 spec
.支持库 iext

.程序集 玩物得志
.程序集变量 Http, WinHttpR
.程序集变量 Json, zyJsonValue
.程序集变量 ErrorMsg, 文本型
.程序集变量 Body, 文本型
.程序集变量 Header, 文本型
.程序集变量 token, 文本型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

Http.Auto (真)
Http.AutoCookies (真)
Header ＝ “Content-Type: application/json;charset=utf-8” ＋ #换行符 ＋ “deviceinfo: Android” ＋ #换行符 ＋ “appversion: 2.8.2”

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 发送验证码, 逻辑型, 公开
.参数 Mobile, 文本型

Http.GET (“https://api.wanwudezhi.com/module-user/api/v1/user/sendSmsAuthCode?phone=” ＋ Mobile)
Json.创建 (Http.GetResponseTextU2A ())
.如果真 (Json.取文本 (“code”) ＝ “1001”)
    返回 (真)
.如果真结束
ErrorMsg ＝ Json.取文本 (“message”)
返回 (假)

.子程序 取最后一次错误, 文本型, 公开

返回 (ErrorMsg)

.子程序 验证码登陆, 逻辑型, 公开
.参数 Mobile, 文本型
.参数 Code, 文本型


' 返回 (真)
Body ＝ #loginByPhoneAndAuthCode
Body ＝ 子文本替换 (Body, “[phone]”, Mobile, , , 真)
Body ＝ 子文本替换 (Body, “[authcode]”, Code, , , 真)
Http.POST (“https://api.wanwudezhi.com/module-user/api/v1/user/v2/loginByPhoneAndAuthCode”, Body, , Header)
调试输出 (Http.GetResponseTextU2A ())
Json.创建 (Http.GetResponseTextU2A ())
.如果真 (Json.取文本 (“code”) ＝ “1001”)
    token ＝ Json.取文本 (“result.token”)
    Header ＝ Header ＋ #换行符 ＋ “Authorization: Wwdz ” ＋ Json.取文本 (“result.token”)
    返回 (真)
.如果真结束
ErrorMsg ＝ Json.取文本 (“message”)
返回 (假)

.子程序 GetSign

' GET https://api.wanwudezhi.com/v1/im/api/login/getSign HTTP/1.1
' Accept-Language: zh-CN,zh;q=0.8
' User-Agent: okhttp-okgo/jeasonlzy
' deviceinfo: Android
' appversion: 2.8.2
' systemversion: 5.1.1
' timestamp: 1591626759636
' deviceNum: 791fb82b-ceb8-3800-9e8d-656abe6087a8
' androidId: e8d0fe151f009353
' mac: 00:81:54:f9:99:1e
' imei: 865166023463592
' source: Android-MAWyyb
' sign: 8a9d8f2246c8848c144d3306efcf9cb6
' Authorization: Wwdz eyJhbGciOiJIUzUxMiJ9.eyJzdWIiOiIxcDk1N2EiLCJjcmVhdGVkIjoxNTkxNjI2NzU5NTczLCJleHAiOjE1OTIyMzE1NTl9.xwvJ7Gq6luxGGhSvlKz4T0vVyvKQpPnT_tRBAzvFnmoUBQHHMfbdTuoZm-IEjMovVft35xnBKcqx6-29Atux7g
' Host: api.wanwudezhi.com
' Connection: Keep-Alive
' Accept-Encoding: gzip


.子程序 获取账户信息, , 公开
.参数 待付款, 文本型
.参数 待发货, 文本型
.参数 待收货, 文本型
.参数 退款, 文本型
.参数 我的钱包, 文本型
.参数 异常, 文本型

Http.GET (“https://api.wanwudezhi.com/api/commission/userPlayer/queryPlayerStatistics”, , Header)
调试输出 (Http.GetResponseTextU2A ())
Json.创建 (Http.GetResponseTextU2A ())
待付款 ＝ Json.取文本 (“result.needPayOrdersCount”)
待发货 ＝ Json.取文本 (“result.needSendOrdersCount”)
待收货 ＝ Json.取文本 (“result.receivingOrdersCount”)
退款 ＝ Json.取文本 (“result.needRefundOrdersCount”)
异常 ＝ Json.取文本 (“result.exceptionOrdersCount”)
我的钱包 ＝ Json.取文本 (“result.myBalance”)
' result.exceptionOrdersCount   异常
' result.myBalance              我的钱包

.子程序 获取草稿箱信息, , 公开
.参数 index, 整数型
.局部变量 i, 整数型
.局部变量 cid, 文本型
.局部变量 cids, 文本型
.局部变量 _n, 整数型
.局部变量 description, 文本型
.局部变量 serviceMetas, 文本型
.局部变量 startPrice, 文本型
.局部变量 draftId, 文本型
.局部变量 detailImages, 文本型
.局部变量 title, 文本型
.局部变量 recommendSalePrice, 文本型
.局部变量 markupRange, 文本型
.局部变量 _Json, zyJsonValue
.局部变量 ret, 文本型

Body ＝ #queryAuctionItem
Body ＝ 子文本替换 (Body, “auctionDraft”, “auctionDraft”, , , 真)
Http.POST (“https://api.wanwudezhi.com/api/item/auctionItem/queryAuctionItem”, Body, , Header)
_Json.创建 (Http.GetResponseTextU2A ())
.计次循环首 (_Json.取成员数 (“result.dataList”), i)
    draftId ＝ _Json.取文本 (“result.dataList[” ＋ 到文本 (i － 1) ＋ “].draftId”)
    Http.GET (“https://api.wanwudezhi.com/api/shop/v2/auctionDraft/queryAuctionDraft/” ＋ draftId, , Header)
    Json.创建 (Http.GetResponseTextU2A ())
    cid ＝ Json.取文本 (“result.cid”)
    cids ＝ “”
    serviceMetas ＝ “”
    detailImages ＝ “”
    .如果真 (stop ＝ 真)
        跳出循环 ()
    .如果真结束

    .计次循环首 (Json.取成员数 (“result.cids”), _n)
        .如果 (cids ＝ “”)
            cids ＝ Json.取文本 (“result.cids[” ＋ 到文本 (_n － 1) ＋ “]”)
        .否则
            cids ＝ cids ＋ “,” ＋ Json.取文本 (“result.cids[” ＋ 到文本 (_n － 1) ＋ “]”)
        .如果结束

        .如果真 (stop ＝ 真)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .计次循环首 (Json.取成员数 (“result.serviceMetas”), _n)
        .如果 (serviceMetas ＝ “”)
            serviceMetas ＝ #引号 ＋ Json.取文本 (“result.serviceMetas[” ＋ 到文本 (_n － 1) ＋ “]”) ＋ #引号
        .否则
            serviceMetas ＝ serviceMetas ＋ “,” ＋ #引号 ＋ Json.取文本 (“result.serviceMetas[” ＋ 到文本 (_n － 1) ＋ “]”) ＋ #引号
        .如果结束

        .如果真 (stop ＝ 真)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .计次循环首 (Json.取成员数 (“result.detailImages”), _n)
        .如果 (detailImages ＝ “”)
            detailImages ＝ #引号 ＋ Json.取文本 (“result.detailImages[” ＋ 到文本 (_n － 1) ＋ “]”) ＋ #引号
        .否则
            detailImages ＝ detailImages ＋ “,” ＋ #引号 ＋ Json.取文本 (“result.detailImages[” ＋ 到文本 (_n － 1) ＋ “]”) ＋ #引号
        .如果结束

        .如果真 (stop ＝ 真)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    description ＝ Json.取文本 (“result.description”)
    title ＝ Json.取文本 (“result.title”)
    调试输出 (title)
    startPrice ＝ Json.取文本 (“result.startPrice”) ＋ “.0”
    recommendSalePrice ＝ 到文本 (到数值 (Json.取文本 (“result.recommendSalePrice”)) × 100) ＋ “.0”
    markupRange ＝ 到文本 (到数值 (Json.取文本 (“result.markupRange”)) × 100) ＋ “.0”
    detailImages ＝ 子文本替换 (detailImages, “=”, “u003d”, , , 真)
    ret ＝ 提交信息 (cid, cids, description, title, serviceMetas, draftId, recommendSalePrice, markupRange, detailImages)
    窗口1.超级列表框1.置标题 (index, 2, ret)
    .如果真 (stop ＝ 真)
        跳出循环 ()
    .如果真结束
    程序_延时 (到整数 (窗口1.编辑框5.内容), 1)
    .如果真 (stop ＝ 真)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

.子程序 提交信息, 文本型
.参数 cid, 文本型
.参数 cids, 文本型
.参数 description, 文本型
.参数 title, 文本型
.参数 serviceMetas, 文本型
.参数 draftId, 文本型
.参数 recommendSalePrice, 文本型
.参数 markupRange, 文本型
.参数 detailImages, 文本型
.局部变量 提交参数, 文本型

Body ＝ “{|start|:” ＋ GetTime10 () ＋ “,|useJudgeService|:false,|video|:||,|uaranteePrice|:0.0,|cid|:” ＋ cid ＋ “,|isDraft|:false,|timeType|:” ＋ 到文本 (窗口1.组合框3.取项目数值 (窗口1.组合框3.现行选中项)) ＋ “,|cids|:[” ＋ cids ＋ “],|description|:|” ＋ description ＋ “|,|title|:|” ＋ title ＋ “|,|serviceMetas|:[” ＋ serviceMetas ＋ “],|startPrice|:0.0,|draftId|:|” ＋ draftId ＋ “|,|labelList|:[213],|recommendSalePrice|:” ＋ recommendSalePrice ＋ “,|pointTime|:|” ＋ 到文本 (窗口1.组合框4.取项目数值 (窗口1.组合框4.现行选中项)) ＋ “|,|markupRange|:” ＋ markupRange ＋ “,|commissionRate|:|10|,|detailImages|:[” ＋ detailImages ＋ “]}”
Body ＝ 子文本替换 (Body, “|”, #引号, , , 真)
Body ＝ 到文本 (子字节集替换 (到字节集 (Body), { 13, 13 }, {  }, , ))
' 提交参数 ＝ 生成草稿提交包 (Body)
Body ＝ 子文本替换 (#save, “[body]”, 提交参数, , , 真)
Http.POST (“https://api.wanwudezhi.com/api/item/auctionItem/save”, Body, , Header)
Json.创建 (Http.GetResponseTextU2A ())
调试输出 (Json.取文本 (“message”))
返回 (Json.取文本 (“message”))

.子程序 取Token, 文本型, 公开

返回 (token)

.子程序 置token, , 公开
.参数 _token, 文本型

Header ＝ Header ＋ #换行符 ＋ “Authorization: Wwdz ” ＋ _token
token ＝ _token

.子程序 查询待发货订单, , 公开
.局部变量 i, 整数型
.局部变量 ord, 文本型
.局部变量 _Json, zyJsonValue
.局部变量 index, 整数型

调试输出 (Header)
Http.POST (“https://api.wanwudezhi.com/api/v1/order/sellerOrder/sellerOrderList”, #sellerOrderList, , Header)
Json.创建 (Http.GetResponseTextU2A ())
调试输出 (Http.GetResponseTextU2A ())
窗口1.超级列表框2.全部删除 ()
.计次循环首 (Json.取成员数 (“result.dataList”), i)
    ord ＝ Json.取文本 (“result.dataList[” ＋ 到文本 (i － 1) ＋ “].orderId”)
    Http.GET (“https://api.wanwudezhi.com/api/v1/order/sellerOrder/waitSendDetail/” ＋ ord, , Header)
    _Json.创建 (Http.GetResponseTextU2A ())
    index ＝ 窗口1.超级列表框2.插入表项 (, , , , , )
    窗口1.超级列表框2.置标题 (index, 0, 到文本 (index ＋ 1))
    窗口1.超级列表框2.置标题 (index, 1, _Json.取文本 (“result.itemTitle”))
    窗口1.超级列表框2.置标题 (index, 2, ord)
    窗口1.超级列表框2.置标题 (index, 3, _Json.取文本 (“result.realPrice”))
    窗口1.超级列表框2.置标题 (index, 4, 时间_时间戳转文本 (_Json.取文本 (“result.created”) ＋ “000”))

    窗口1.超级列表框2.置标题 (index, 5, 时间_时间戳转文本 (_Json.取文本 (“result.payTime”) ＋ “000”))
    窗口1.超级列表框2.置标题 (index, 6, _Json.取文本 (“result.userName”) ＋ “|” ＋ _Json.取文本 (“result.userPhone”) ＋ “|” ＋ _Json.取文本 (“result.area”) ＋ “|” ＋ _Json.取文本 (“result.address”))
    窗口1.超级列表框2.置标题 (index, 7, token)
    窗口1.编辑框8.内容 ＝ token
.计次循环尾 ()



.子程序 获取快递编号, 文本型
.参数 快递名字, 文本型
.局部变量 i, 整数型

Http.GET (“https://api.wanwudezhi.com/api/v1/order/sellerOrder/getAllExpressCompanyV2”, , Header)
Json.创建 (Http.GetResponseTextU2A ())
.计次循环首 (Json.取成员数 (“result.commonlyCompanyList”), i)
    .如果真 (Json.取文本 (“result.commonlyCompanyList[” ＋ 到文本 (i － 1) ＋ “].name”) ＝ 快递名字)
        返回 (Json.取文本 (“result.commonlyCompanyList[” ＋ 到文本 (i － 1) ＋ “].code”))
    .如果真结束

.计次循环尾 ()
返回 (“”)

.子程序 发货, , 公开

Body ＝ #doOrderSendOut
Body ＝ 子文本替换 (Body, “YT9184860583819”, 窗口1.编辑框6.内容, , , 真)
Body ＝ 子文本替换 (Body, “81329012077742”, 窗口1.编辑框7.内容, , , 真)
Body ＝ 子文本替换 (Body, “yuantong”, 获取快递编号 (窗口1.组合框1.内容), , , 真)
Http.POST (“https://api.wanwudezhi.com/api/v1/order/sellerOrder/doOrderSendOut/”, Body, , Header)
信息框 (Http.GetResponseTextU2A (), 0, , )

@玄冰