百宝云【注册码】【安卓IOS】【通讯：插件源码例子】

百宝云管理员

通讯：插件源码例子

---

一、插件、示例源码下载。

右击应用图标，选择“下载客户端”，即可下载该应用相关源码或插件等。

---

二、示例源码导入。

导入步骤（视频+图文）：

注册码系统_安卓IOS_按键安卓_一键安装版说明

---

三、插件命令介绍。（以下是针对基本注册使用功能进行命令说明，完整例子请查看步骤二的导入版本）

使用前提：“Curl库”文件释放。

“Curl库”文件的作用：用于解决部分模拟器无法正常通讯问题。

使用提要 模拟器Curl库检测，仅支持安卓系统。 严重警告！此功能还在测试阶段！不同的架构，Curl库不通用。 本范例提供的Curl库仅供“x86架构”的设备使用！ 如果不确定自己的设备是不是“x86构架”可以使用插件命令 BbyRegCode.GetOSType() 查看。 如果你的脚本只给真实设备使用，不推荐使用该文件释放。 如因脚本作者操作不当导致的系统文件损坏一切后果自负。

安卓按键精灵附件中记得添加 Curl 文件，点击下载： curl (607.44 KB, 下载次数: 290)

2017-2-3 17:58 上传

点击文件名下载附件
释放Curl库源码：

1. //释放Curl库
   
2. If Dir.Exist("/system/bin/curl") = 0 And Dir.Exist("/system/xbin/curl") = 0 Then
   
3.     TracePrint "系统运行缺少必备的Curl库"
   
4.     If UTF8.InStr(1,BbyRegCode.GetOSType(), "x86",True)>0 Then
   
5.         Call BbyRegCode.Cmd("mount -o remount,rw /dev/block/sda6 /system")
   
6.         Call BbyRegCode.Cmd("mount -o remount,rw /dev/block/mtdblock8 /system")
   
7.         TracePrint "正在自动安装x86版的Curl库"
   
8.         PutAttachment "/system/bin/", "curl"
   
9.         Call BbyRegCode.Cmd("chmod 777 /system/bin/curl")
   
10.     End If
    
11. End If
    
12. //验证文件，如果不存在，可能无法正常与百宝云通讯
    
13. If Dir.Exist("/system/bin/curl") = 0 Then
    
14.     TracePrint "通讯文件不存在，可能无法正常验证，脚本停止！"
    
15.     ShowMessage "通讯文件不存在，可能无法正常验证，脚本停止！"
    
16.     Delay 2000
    
17.     EndScript
    
18. End If

复制代码

1.导入插件。
按照步骤二的操作，一键释放相关源码与插件文件到按键根目录下，即可查看示例并进行基本功能测试。

1. //开头必须执行，才可关联到插件并调用使用。
   
2. Import "BbyRegCode.lua"

复制代码

BbyRegCode.lua 文件存在按键目录（\按键精灵手机助手\Plugin）下，才可关联到插件并调用使用。

2.信息初始化。

1. //赋值验证需要的信息
   
2. Dim 全局_项目名称 = "项目测试"
   
3. Dim 全局_云应用Token = "5001c854ebba4ef0c142928ff10976a8"
   
4. //Dim 全局_注册码数据 = ReadUIConfig("注册码", "")//获取界面，输入框["注册码"]
   
5. Dim 全局_注册码数据 = "03327F941C2ED615B7D8C6A63E87E9A3"//直接写个测试
   
6. Dim 全局_软件版本号 = "1.0.0.0"
   
7. Dim 全局_机器码数据 = GetDeviceID()//机器码数据可以采用其他方式获取 这里只列出其中一种
   
8. '如何查询云应用访问Token：http://bbs.91shenfan.com/thread-534-1-1.html
   
9. '项目更新管理：http://bbs.91shenfan.com/thread-587-1-1.html
   
10. //信息初始化
    
11. BbyRegCode.Init 全局_项目名称, 全局_云应用Token, 全局_注册码数据, 全局_软件版本号, 全局_机器码数据

复制代码

使用验证服务，需要提交项目相关信息。

3.注册登录。

1. //注册登录
   
2. If BbyRegCode.SignOn() = True Then
   
3.         TracePrint "注册成功"
   
4. Else
   
5.         TracePrint "注册失败"
   
6.         //获取最后错误信息
   
7.         TracePrint BbyRegCode.GetLasterror()
   
8.         EndScript//停止脚本
   
9. End If

复制代码

4.获取剩余时间（分钟）。

1. //获取剩余时间（分钟）
   
2. Dim 临时信息 = BbyRegCode.GetCardTime()
   
3. If not IsNumeric(临时信息) Then //返回结果非数字
   
4.         TracePrint "获取时间失败"
   
5.         //获取最后错误信息
   
6.         TracePrint BbyRegCode.GetLasterror()
   
7.         EndScript//停止脚本
   
8. End If
   
9. Dim 剩余时间 = CInt(临时信息)//类型转换，转为数值类型
   
10. If 剩余时间 = 0 Then//=0到期了
    
11.         EndScript//停止脚本
    
12. ElseIf 剩余时间 > 0 Then
    
13.         //正常
    
14.         TracePrint "剩余分钟：" & 剩余时间
    
15. Else
    
16.         TracePrint "通讯异常"
    
17.         //获取最后错误信息
    
18.         TracePrint BbyRegCode.GetLasterror()
    
19.         EndScript
    
20. End If

复制代码

5.解除绑定。

1. //解绑
   
2. Dim 解绑密码 = "123456"
   
3. If BbyRegCode.Ubind(解绑密码) = True Then
   
4.         TracePrint "解绑成功"
   
5.         EndScript//停止脚本
   
6. Else
   
7.         TracePrint "解绑失败"
   
8.         //获取最后错误信息
   
9.         TracePrint BbyRegCode.GetLasterror()
   
10.         EndScript//停止脚本
    
11. End If

复制代码

---

四、心跳线程的必要性。
1.心跳是什么。
软件定时与验证服务器通讯，确认到期时间，用于把控到期停止，或顶号停止等。

2.心跳检测创建子线程的必要性。
软件在通讯验证剩余时间时，可能出现网络繁忙，无法正常获取信息，这时候就需要暂缓5-10秒，进行二次通讯。
为了确保心跳通讯相关操作不耽搁主线功能执行，所以推荐以子线程方式启用心跳检测。
通过该命令把结果传递给主线。

1. Thread.SetShareVar "是否退出", "是"

复制代码

3.安卓按键心跳源码示例。

1. Sub 心跳线程子程序(信息允许错误次数)
   
2.     TracePrint "线程已经开启"
   
3.     //传入参数错误，强制赋值8次
   
4.     If not IsNumeric(信息允许错误次数) Then 信息允许错误次数 = 8
   
5.     //初始设定变量值为 否，不退出
   
6.     Thread.SetShareVar "是否退出", "否"
   
7.     Dim 剩余时间
   
8.     Do
   
9.         //这里循环调用检测注册码的剩余时间，也可以在其他的地方调用。
   
10.         //由于在注册时已经获取一次剩余分钟，这里就先等待，再与服务器通讯获取时间
    
11.         For i = 0 To 180 //等待三分钟获取一次心跳，获取时间
    
12.             Delay 1000
    
13.         Next
    
14.         //开始获取剩余时间（分钟）
    
15.         For i = 0 To 信息允许错误次数
    
16.             剩余时间 = BbyRegCode.GetCardTime()
    
17.             TracePrint "心跳线程，剩余时间：" & 剩余时间
    
18.             If not IsNumeric(剩余时间) Then
    
19.                 TracePrint "获取时间非正确格式"
    
20.                 Delay 5000//过5秒在获取
    
21.             Else
    
22.                 剩余时间 = CInt(剩余时间)
    
23.                 If 剩余时间 > 0 Then
    
24.                     //没到期
    
25.                     Exit For
    
26.                 ElseIf 剩余时间 = 0 Then
    
27.                     //到期
    
28.                     TracePrint "脚本到期"
    
29.                     Thread.SetShareVar("退出原因", "脚本到期")
    
30.                     Thread.SetShareVar "是否退出", "是"
    
31.                     Exit Function//离开线程，结束
    
32.                 End If
    
33.             End If
    
34.             If i = 信息允许错误次数 Then//通讯失败次数超出
    
35.                 //通讯异常
    
36.                 TracePrint "线程：脚本通讯异常,停止运行！原因：" & BbyRegCode.GetLasterror()
    
37.                 Thread.SetShareVar "退出原因", BbyRegCode.GetLasterror()
    
38.                 Thread.SetShareVar "是否退出", "是"
    
39.                 Exit Function//离开线程，结束
    
40.             End If
    
41.         Next
    
42.     Loop
    
43. End Sub

复制代码

---

百宝云【注册码】【安卓IOS】【索引目录】

xs3325221

Call BbyRegCode.Cmd("chmod 777 /system/bin/curl")
插件上没用这个命令啊

我就是小嗳

感谢楼主的无私分享，我需要慢慢消化呢

shanpao

一键玩有对接源码吗