|
楼主 |
发表于 2016-4-5 20:54:25
|
显示全部楼层
广东省佛山市
- .版本 2
- .支持库 spec
- .程序集 窗口程序集1
- .程序集变量 phone, 文本型
- .程序集变量 code, 文本型
- .程序集变量 fall, 文本型
- .程序集变量 登录, 文本型
- .程序集变量 loginIn, 文本型
- .程序集变量 uid, 文本型
- .程序集变量 pwb, 文本型
- .程序集变量 token, 文本型
- .子程序 __启动窗口_创建完毕
- 编辑框_uid.内容 = 读配置项 (取运行目录 () + “\爱乐赞注册项.ini”, “配置”, “爱乐赞账号”, ) ' api-j3tk3q5y
- 编辑框_pwd.内容 = 读配置项 (取运行目录 () + “\爱乐赞注册项.ini”, “配置”, “爱乐赞密码”, )
- 按钮2.禁止 = 真
- .子程序 _按钮1_被单击
- 登录捷码 ()
- .子程序 登录捷码
- .局部变量 信息, 文本型
- .局部变量 分割, 文本型, , "0"
- .局部变量 个数, 整数型
- 登录 = 到文本 (捷码_登录 (编辑框_uid.内容, 编辑框_pwd.内容))
- 调试输出 (登录)
- .如果 (寻找文本 (登录, “|”, , 假) ≠ -1)
- token = 文本_取右边 (登录, “|”, )
- 调试输出 (token)
- 按钮2.禁止 = 假
- 编辑框_日志.加入文本 (到文本 (取现行时间 ()) + “登录成功” + #换行符)
- .否则
- 编辑框_日志.加入文本 (到文本 (取现行时间 ()) + “登录失败” + #换行符)
- 返回 ()
- .如果结束
- 按钮1.禁止 = 真
- 按钮2.禁止 = 假
- 信息 = 捷码_获取用户个人信息 (编辑框_uid.内容, token) ' 用户名;积分;捷码币;可同时获取号码数
- 调试输出 (信息)
- 分割 = 分割文本 (信息, “;”, 3)
- 个数 = 取数组成员数 (分割)
- 调试输出 (个数)
- 编辑框_日志.加入文本 (“欢迎您 :” + 分割 [1] + #换行符 + “可用捷码币为 :” + 分割 [3] + #换行符)
复制代码 |
|