葫芦娃预约分析

葫芦娃最近受广大撸友的欢迎 因此分析下葫芦娃的大概结构 还是比较简单的 略有经验的开发者也可以上手  具体源码已经放在下面经过学习参考测试 成品也顺便打包 可下载试用 

​
.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 wxid, 文本型
.程序集变量 pid, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 返回结果, 逻辑型


置DLL装载目录 (取运行目录 ())
vx_使用GBK ()  ' 易语言才需要调用
返回结果 = vx_初始化 (&消息回调, “9XzZKvUkvpunA00oUPgYKYLYYHyq3tzTuVDwqhE82hVoUaS6b0UQOgmn9a65BOL5”)
调试输出 (格式化时间 () + “  初始化:” + 到文本 (返回结果))
' 编辑框2.内容 = vx_修改版本 (wxid, 编辑框3.内容)



.子程序 消息回调
.参数 指针, 整数型, , 指针
.参数 大小, 整数型
.局部变量 回调内容, 文本型
.局部变量 阿加, 类_json
.局部变量 nickname, 文本型


回调内容 = 指针_到文本 (指针)
回调内容 = 子文本替换 (回调内容, 到文本 ({ 10 }), #换行符, , , 真)
调试输出 (格式化时间 () + #换行符 + 回调内容 + #换行符)
阿加.解析 (回调内容)
调试输出 (阿加.取通用属性 (“event_desc”))
.判断开始 (阿加.取通用属性 (“event_desc”) = “登录成功”)
    wxid = 阿加.取通用属性 (“data.wxid”)
    调试输出 (wxid)
    wxid = 阿加.取通用属性 (“data.wxid”)
    nickname = 阿加.取通用属性 (“data.nickname”)
    _启动窗口.标题 = nickname + “(” + wxid + “)”
    调试输出 (wxid)
    日志输出 (“登录成功:” + nickname + “(多个微信已最后一个为准)”)

.判断 (阿加.取通用属性 (“event_desc”) = “通讯重新连接成功,当前账号已登录”)
    wxid = 阿加.取通用属性 (“data.wxid”)
    nickname = 阿加.取通用属性 (“data.nickname”)
    _启动窗口.标题 = nickname + “(” + wxid + “)”
    调试输出 (wxid)
    日志输出 (“通讯重新连接成功,当前账号已登录:” + nickname + “(多个微信已最后一个为准)”)
.判断 (阿加.取通用属性 (“event_desc”) = “创建WeChat进程成功,通讯连接成功”)
    pid = 到整数 (阿加.取通用属性 (“pid”))
    调试输出 (pid)
.判断 (阿加.取通用属性 (“event_desc”) = “通讯重新连接成功,当前账号未登录”)
    pid = 到整数 (阿加.取通用属性 (“pid”))
.默认

.判断结束


.子程序 格式化时间, 文本型
.局部变量 日期, 文本型
.局部变量 时间, 日期时间型

时间 = 取现行时间 ()
日期 = 到文本 (时间)
' 日期 = 子文本替换 (日期, “年”, “-”, , , 真)
' 日期 = 子文本替换 (日期, “月”, “-”, , , 真)
' 日期 = 子文本替换 (日期, “日”, “ ”, , , 真)
' 日期 = 子文本替换 (日期, “时”, “:”, , , 真)
' 日期 = 子文本替换 (日期, “分”, “:”, , , 真)
' 日期 = 子文本替换 (日期, “秒”, “”, , , 真)
返回 (日期)

.子程序 卸载
.局部变量 返回结果, 逻辑型

返回结果 = vx_卸载 ()
调试输出 (格式化时间 () + “  卸载:” + 到文本 (返回结果))

.子程序 _按钮1_被单击
.局部变量 授权码, 文本型
.局部变量 UID, 文本型
.局部变量 区域, 文本型
.局部变量 i, 整数型
.局部变量 code, 文本型
.局部变量 rsp, 文本型
.局部变量 阿加, 类_json
.局部变量 rspCode, 文本型
.局部变量 content, 文本型


授权码 = 编辑框1.内容
UID = 编辑框3.内容
区域 = 编辑框4.内容

.如果真 (授权码 = “”)
    信息框 (“授权码不能为空”, 0, “错误”, )
    返回 ()
.如果真结束

.如果真 (UID = “”)
    信息框 (“UID不能为空”, 0, “错误”, )
    返回 ()
.如果真结束

.如果真 (wxid = “”)
    信息框 (“请先登陆微信”, 0, “错误”, )
    返回 ()
.如果真结束

' wx61549642d722f361
' wxded2e7e6d22ac09d
' wx5508e22ffe9366b8
' wx936aa5357221e226
' wx624149b74321c99a
' wx821fb4d2204ed4d6
' wx613b22ea6a002aa8

content = vx_获取小程序Code (wxid, “wx61549642d125f361”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 1, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“贵旅登陆成功”)
.否则
    日志输出 (“贵旅登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束


content = vx_获取小程序Code (wxid, “wxded2e7e6d621ac09d”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 2, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“新联登陆成功”)
.否则
    日志输出 (“新联登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束



content = vx_获取小程序Code (wxid, “wx5508e31ffe9216b8”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)
rsp = 登陆 (code, 区域, 3, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“贵盐登陆成功”)
.否则
    日志输出 (“贵盐登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束



content = vx_获取小程序Code (wxid, “wx236aa5357931e216”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 4, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“航旅登陆成功”)
.否则
    日志输出 (“航旅登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束


content = vx_获取小程序Code (wxid, “wx614129b74233c99a”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 5, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“遵航登陆成功”)
.否则
    日志输出 (“遵航登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束


content = vx_获取小程序Code (wxid, “wx821b22d8604ed4d6”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 6, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“乐旅登陆成功”)
.否则
    日志输出 (“乐旅登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束


content = vx_获取小程序Code (wxid, “wx613ba22a6a002aa8”)
阿加.解析 (content)
code = 阿加.取通用属性 (“data.code”)

rsp = 登陆 (code, 区域, 7, UID)
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“空港登陆成功”)
.否则
    日志输出 (“空港登陆失败:” + 阿加.取通用属性 (“msg”))
.如果结束


.子程序 登陆, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.参数 code, 文本型
.参数 regionCode, 文本型
.参数 platformId, 整数型
.参数 wxpusherUid, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

' http://127.0.0.1:8080/boot-server/212ule/reservat/login
局_网址 = “http://127.0.0.1:8080/boot-se22er/module/reservat/login”
局_方式 = 1

局_提交数据 = “{” + #引号 + “agentId” + #引号 + “: ” + 编辑框1.内容 + “,” + #引号 + “wxId” + #引号 + “: ” + #引号 + wxid + #引号 + “,” + #引号 + “code” + #引号 + “: ” + #引号 + code + #引号 + “,” + #引号 + “regionCode” + #引号 + “: ” + #引号 + regionCode + #引号 + “,” + #引号 + “platformId” + #引号 + “: ” + 到文本 (platformId) + “,” + #引号 + “wxpusherUid” + #引号 + “:” + #引号 + wxpusherUid + #引号 + “}”

局_提交数据 = 编码_gb2312到utf8 (局_提交数据)
ADD_协议头.添加 (“Content-Type”, “application/json”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)


.子程序 _按钮2_被单击

vx_启动全新微信 ()

.子程序 _按钮4_被单击
.局部变量 返回结果, 文本型
.局部变量 阿加, 类_json
.局部变量 url, 文本型

返回结果 = vx_登陆二维码 (pid)
调试输出 (返回结果)
阿加.解析 (返回结果)
url = 阿加.取通用属性 (“data”)

图片框1.图片 = 二维码_创建 (url, “Q”, 200, 200)


.子程序 __启动窗口_将被销毁

卸载 ()

.子程序 日志输出
.参数 msg, 文本型

编辑框2.加入文本 (msg + #换行符)

.子程序 _按钮3_被单击
.局部变量 rsp, 文本型
.局部变量 阿加, 类_json
.局部变量 rspCode, 文本型

.如果真 (wxid = “”)
    信息框 (“请先登陆微信”, 0, “错误”, )
    返回 ()
.如果真结束
rsp = 预约 ()
阿加.解析 (rsp)
rspCode = 阿加.取通用属性 (“code”)
.如果 (rspCode = “0”)
    日志输出 (“预约成功,详情请关注WxPusher消息推送”)
.否则
    日志输出 (“预约失败”)
.如果结束


.子程序 预约, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

' http://127.0.0.1:8080/boot-server/module/reservat/reservat?wxId=wxid_0x83cb229nre2
局_网址 = “http://127.0.0.1:8080/boot-server/m2d2le/reservat/reservat?wxId=” + wxid
局_方式 = 0
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 = 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

​

  1. #葫芦娃预约#
  2. #新联惠购#
  3. #贵旅优品#
  4. #空港乐购#
  5. #贵盐黔品#
  6. #遵航出山#
  7. •#乐旅商城#
  8. #航旅黔购#
  9. #黔寻积分#
  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值