百宝云注册码系统 - 按键 COM插件接入示例

adminwal

按键 COM插件接入示例

按键 COM插件接入 <百宝云注册码系统> 步骤

接入前准备：拷贝下面代码到自己的项目里

1. ////////////////////////////////功能封装区域//////////////////////////////
   
2. Dim         全局_百宝云token
   
3. dim         全局_项目名称
   
4. DimEnv         全局_注册码
   
5. Dim         全局_文件版本
   
6. 
   
7. 
   
8. Function 初始化(token, 项目名)
   
9.         全局_是否初始化 = False
   
10.         全局_百宝云token = token
    
11.         全局_项目名称 = 项目名
    
12.         全局_文件版本 = "1.0.0.0"
    
13.         
    
14.         set 全局COM插件 = CreateObject("qsx.regcode")
    
15.         ret = 全局COM插件.InitDll(全局_百宝云token, 全局_项目名称)
    
16.         If ret = 1 Then
    
17.                 TracePrint "初始化 成功"
    
18.                 初始化 = True
    
19.         Else
    
20.                 TracePrint "初始化 失败 错误信息 " & 获取最后错误信息()
    
21.                 初始化 = False
    
22.         End If
    
23. End Function
    
24. 
    
25. 
    
26. Function 注册码登陆自动验证(注册码)
    
27.     ret = 全局COM插件.LoginRegCodeAuto(注册码)
    
28.         If ret = 1 Then
    
29.                 TracePrint "注册码登陆 成功"
    
30.                 注册码登陆自动验证 = True
    
31.         Else
    
32.                 TracePrint "注册码登陆 失败"
    
33.                 注册码登陆自动验证 = False
    
34.         End If
    
35. End Function
    
36. 
    
37. Function 注册码登陆(注册码)
    
38.     ret = 全局COM插件.LoginRegCode(注册码)
    
39.         If ret = 1 Then
    
40.                 TracePrint "注册码登陆 成功"
    
41.                 注册码登陆 = True
    
42.         Else
    
43.                 TracePrint "注册码登陆 失败"
    
44.                 注册码登陆 = False
    
45.         End If
    
46. End Function
    
47. 
    
48. Function 注册码试用()
    
49.     ret = 全局COM插件.TryLogin()
    
50.         If ret = 1 Then
    
51.                 TracePrint "注册码试用 成功"
    
52.                 注册码试用 = True
    
53.         Else
    
54.                 TracePrint "注册码试用 失败"
    
55.                 注册码试用 = False
    
56.         End If
    
57. End Function
    
58. 
    
59. Function 获取试用时间()        
    
60.         获取试用时间 = 全局COM插件.GetTryTime()
    
61. End Function
    
62. 
    
63. Function 获取注册码时间()
    
64.         获取注册码时间 = 全局COM插件.GetRegCodeTime()
    
65. End Function
    
66. 
    
67. Function 获取项目公告()
    
68.         项目公告
    
69.     ret = 全局COM插件.GetPlacard(项目公告)
    
70.         If ret = 1 Then
    
71.                 TracePrint "获取项目公告 成功"
    
72.         Else
    
73.                 TracePrint "获取项目公告 失败"
    
74.         End If
    
75. 
    
76.         获取项目公告 = 项目公告
    
77. End Function
    
78. 
    
79. Function 获取自定义数据(键)
    
80.         键值
    
81.     ret = 全局COM插件.GetCustom(键, 键值)
    
82.         If ret = 1 Then
    
83.                 TracePrint "获取自定义数据 成功"
    
84.         Else
    
85.                 TracePrint "获取自定义数据 失败"
    
86.         End If
    
87.     获取自定义数据 = 键值
    
88. End Function
    
89. 
    
90. Function 设置注册码备注(备注)
    
91.     ret = 全局COM插件.SetRegCodeRemark(备注)
    
92.         If ret = 1 Then
    
93.                 TracePrint "设置注册码备注 成功"
    
94.                 设置注册码备注 = True
    
95.         Else
    
96.                 TracePrint "设置注册码备注 失败"
    
97.                 设置注册码备注 =  false
    
98.         End If
    
99. End Function
    
100. 
     
101. Function 获取注册码备注()
     
102.         备注
     
103.     ret = 全局COM插件.GetRegCodeRemark(备注)
     
104.         If ret = 1 Then
     
105.                 TracePrint "获取注册码备注 成功"
     
106.                 获取注册码备注 = 备注
     
107.         Else
     
108.                 TracePrint "获取注册码备注 失败"
     
109.                 获取注册码备注 =  备注
     
110.         End If
     
111. End Function
     
112. 
     
113. Function 发送监控消息(规则名称, 消息)
     
114.         备注 = 0
     
115.     ret = 全局COM插件.SendMonitorMsg(规则名称, 消息)
     
116.         If ret = 1 Then
     
117.                 TracePrint "发送监控消息 成功"
     
118.                 发送监控消息 = True
     
119.         Else
     
120.                 TracePrint "发送监控消息 失败"
     
121.                 发送监控消息 =  false
     
122.         End If
     
123. End Function
     
124. 
     
125. Function 注册码解绑()
     
126.     ret = 全局COM插件.Ubind()
     
127.         If ret = 1 Then
     
128.                 TracePrint "注册码解绑 成功"
     
129.                 注册码解绑 = True
     
130.         Else
     
131.                 TracePrint "注册码解绑 失败"
     
132.                 注册码解绑 = False
     
133.         End If
     
134. End Function
     
135. 
     
136. Function 获取最后错误信息()
     
137.         错误信息
     
138.         call 全局COM插件.GetLastErrorInfo(错误信息)
     
139.         获取最后错误信息 = 错误信息
     
140. End Function
     
141. 
     
142. Function 获取机器码()
     
143.         获取机器码 = 全局COM插件.GetMachinecode()
     
144. End Function
     
145. 
     
146. Function 更新(版本号)
     
147.         更新 = 全局COM插件.UpdateFile(版本号)
     
148. End Function
     
149. 
     
150. // 自动更新 用于关闭自身的，使用的是win32里的一些API。 实现原理有兴趣的自行百度，其他的直接使用即可
     
151. Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
     
152. Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
     
153. Public Declare Sub rtcDoEvents Lib "msvbvm60.dll" Alias "rtcDoEvents" () As Long
     
154. Function selfExit()
     
155.     TracePrint "------------------退出------------------"
     
156.     //call TerminateProcess(-1, 259)
     
157.     Hwnd = Form1.Hwnd
     
158.     Do
     
159.         hwnd = GetParent(hwnd)
     
160.         If hwnd = GetDesktopWindow() or hwnd=0 Then
     
161.                 hwnd = oldhwnd
     
162.                 Exit Do
     
163.         Else
     
164.             oldhwnd=hwnd
     
165.         End If
     
166.         rtcDoEvents
     
167.     Loop
     
168.     Form1.登陆界面.Caption = hwnd
     
169.     Call Plugin.Window.CloseEx(Hwnd)
     
170.    
     
171. End Function
     

复制代码

上面代码是对注册码系统的接入接口做好了封装，大家只管调用即可。具体的使用方法，参见下面的步骤：

1、插件的注册与对象创建

1. PutAttachment "c:","t_baibaoyun_com.dll"
   
2. Set Ws = CreateObject("WScript.Shell")
   
3. Ws.run "cmd /c regsvr32 c:\t_baibaoyun_com.dll", 0
   
4. Set Ws = Nothing
   

复制代码

2、 注册码初始化

初始化客户端数据的时候 ,我们需要调用的是 InitDll 函数 , 传入 <百宝云注册码系统> 云应用token 与 项目名称 , 此函数必须在软件启动的时候 , 第一时间调用 , 如果初始化失败 , 所有与服务器通讯的函数全部不能使用

云应用token : 示例代码的客户端压缩包的 access.token 文件中


项目名称 : 我们可以在 百宝云注册码系统 查询到

3、检测客户端是否有更新

当我们客户端初始化成功以后 , 需要检查文件是否有更新 , 我们需要调用 UpdateFile 函数 , COM插件会自动检查文件是否有更新 , 如果有更新则会自动启动文件更新器(某些杀软可能会报毒,请添加软件到白名单)

文件版本: 在日常开发中,每个软件都应该有一个属于自己的版本号 , 在 <百宝云注册码系统> 中 , 文件版本号是有固定格式的 ：1.0.0.0 , 同时我们也可以在 <百宝云注册码系统>后台查看当前项目的最新的文件版本

4、 注册码登录验证

推荐大家使用：注册码登陆自动验证 LoginRegCodeAuto 接口，此接口在登录验证成功之后，内部会自动开启心跳线程，处理注册码到期、冻结等问题。这样使用者就不需要去关心心跳验证的问题了。

如果大家调用的是：注册码登陆 LoginRegCode 函数，那么心跳就需要自己去完成了。这个心跳，其实就是自己开一个线程，每隔一段时间调用一次：获取注册码剩余时间 GetRegCodeTime 函数，来验证软件的使用权限。

以上4步，即可实现软件的注册码登录与验证操作了。

这样我们就完成了 <百宝云注册码系统> 的接入了

请大家安装好云应用之后，在云应用的右键菜单->客户端下载菜单中

下载最新版本客户端源码

kugeniha

过于繁琐

pisces

支持！！！！

598972727

为什么接入以后 自己的脚本 不运行呢

qq85511803

有点操蛋  好像弄得注册码 只有我的这台电脑能用。。

yl321321

无法下载，有没有百度云或云盘下载？

dadao202002

为什么我弄了好多次，我的脚本能运行，但是注册码没有运行成功。。。。。求大神回复。

dadao202002

qq85511803 发表于 2017-2-12 01:28
有点操蛋  好像弄得注册码 只有我的这台电脑能用。。

老哥，我弄了一顿，发现自己写的能用，这串代码的作用没起到。可以交流一下吗

dadao202002

598972727 发表于 2016-12-21 16:08
为什么接入以后 自己的脚本 不运行呢

老哥，我弄了一顿，发现自己写的能用，这串代码的作用没起到。可以交流一下吗

leslie99

进入了错误的思想闭环，所以你会觉得吉林11选5痛苦，所以你会觉得迷茫，所以你会觉得生活没有意义。例如就像幸运时时彩我回答里说的，太过于在意他人的看法就是一个超级大乐透错误的思想闭环。