## **注册登录**
* 功能描述:注册码登录验证。
* 请求内容:flag=login&DeviceID=设备ID&RegCode=注册码&ProjectName=项目名称
* 请求示例:http://get.baibaoyun.com/api/a0153dcd4a91d9e784afa919f12cf816?flag=login&DeviceID=设备ID&RegCode=注册码&ProjectName=项目名称
* * * * *
[TOC]
* * * * *
### **在线调试**
* [百宝云Get接口格式说明](http://help.baibaoyun.com/#GET%25E6%258E%25A5%25E5%258F%25A3&GET%25E6%258E%25A5%25E5%258F%25A3)
~~~[api]
get:http://get.baibaoyun.com/api/:token
*token=a0153dcd4a91d9e784afa919f12cf816#应用Token
*flag=login#请求类型
*DeviceID=DeviceID#设备ID
*RegCode=CF910E3D24C04341ED2B7C373AB61A04#注册码
*ProjectName=测试项目#项目名称
<<<
成功
类型:字符串类型
登录状态|剩余时间(分钟)|访问令牌
<<<
失败
类型:字符串类型
操作失败:xxxx
<<<
通讯失败
空值
~~~
* * * * *
### **TC接入示例**
~~~
//全局变量只能赋值常量
变量 信息通讯地址 = "http://get.baibaoyun.com/api/"
变量 信息token = "a0153dcd4a91d9e784afa919f12cf816"
变量 信息项目名称 = "测试项目"
//功能模块
功能 执行注册()
变量 信息机器码 = 获取imei()//获取设置唯一编号
变量 信息注册码 = "CF910E3D24C04341ED2B7C373AB61A04"
变量 请求 = "flag=login"
请求 = 请求 & "&DeviceID=" & 信息机器码
请求 = 请求 & "&RegCode=" & 信息注册码
请求 = 请求 & "&ProjectName=" & 信息项目名称
调试输出(请求)
变量 请求地址 = 信息通讯地址 & 信息token & "?" & 请求
调试输出(请求地址)
变量 结果 = http请求("get", 请求地址, "")
调试输出(结果)
结束
~~~
* * * * *
### **按键接入示例**
~~~
//初始化
Dim 变量_通讯地址 = "http://get.baibaoyun.com/api/"
Dim 变量_Token = "a0153dcd4a91d9e784afa919f12cf816"
Dim 变量_请求地址 = 变量_通讯地址 & 变量_Token & "?"
//赋值参数信息
Dim 变量_机器码 = GetDeviceID()//获取设备唯一标识
//正式代码从界面获取注册码
Dim 变量_注册码 = "CF910E3D24C04341ED2B7C373AB61A04"
Dim 变量_项目名称 = "测试项目"
//功能调试
Dim 请求 = "flag=login" _
& "&DeviceID=" & 变量_机器码 _
& "&RegCode=" & 变量_注册码 _
& "&ProjectName=" & 变量_项目名称
TracePrint 请求
Dim 结果 = URL.Get(变量_请求地址 & 请求)
TracePrint 结果
If 结果 = "" Then
//通讯失败
TracePrint "网络通讯异常,如反复异常,建议联系百宝云工作人员咨询"
Else
//通讯成功,拆分结果
Dim arr = Split(结果, "|")
If UBound(arr) <> 2 Then
//格式错误
TracePrint "错误信息:" & 结果
Else
//格式正确,赋值信息
TracePrint "登录状态:" & arr(0)
TracePrint "剩余分钟:" & arr(1)
TracePrint "访问令牌:" & arr(2)
End If
End If
~~~