网络验证系统 - 按键 COM插件接入示例

adminwal

按键 COM插件接入示例

按键 COM插件接入 <网络验证系统> 步骤

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

1. 
   
2. ////////////////////////////////功能封装区域//////////////////////////////
   
3. dim 全局_百宝云token
   
4. dim 全局_项目名称
   
5. dim 全局_是否初始化
   
6. 
   
7. DimEnv 全局_用户名
   
8. dim 全局_密码
   
9. Dim 全局_版本号
   
10. dim 引号
    
11. 
    
12. 
    
13. 
    
14. Function 获取最后错误信息()
    
15.         错误信息
    
16.         call 全局_插件对象.GetLastErrorInfo(错误信息)
    
17.         获取最后错误信息 = 错误信息
    
18. End Function
    
19. 
    
20. 
    
21. Function 初始化(token, 项目名)
    
22.         全局_版本号 = "1.0.0.0"
    
23.         Set 全局_插件对象 = CreateObject("qsx.user")
    
24.         result  = 全局_插件对象.InitDll(token, 项目名)
    
25.         If result = 0 Then
    
26.                 初始化 = False
    
27.         Else
    
28.                 初始化 = True
    
29.         End If
    
30.         TracePrint "全局_百宝云token " & 全局_百宝云token
    
31.         TracePrint "全局_项目名称 " & 全局_项目名称
    
32. End Function
    
33. 
    
34. 
    
35. Function 账号登陆(用户名,密码)
    
36.         If 全局_插件对象.SignOn(用户名, 密码) = 1 Then
    
37.                 账号登陆 = True
    
38.         Else
    
39.                 账号登陆 = False
    
40.         End If
    
41. End Function
    
42. 
    
43. Function 账号登陆自动验证(用户名,密码)
    
44.         If 全局_插件对象.SignOnAuto(用户名, 密码) = 1 Then
    
45.                 账号登陆自动验证 = True
    
46.         Else
    
47.                 账号登陆自动验证 = False
    
48.         End If
    
49.         
    
50. End Function
    
51. 
    
52. 
    
53. Function 获取账号时间()
    
54.         获取账号时间 = 全局_插件对象.GetUserTime()
    
55.    
    
56. End Function
    
57. 
    
58. Function 获取项目公告()
    
59.         result
    
60.     ret = 全局_插件对象.GetPlacard(result)
    
61.     if(ret = 1) Then
    
62.             获取项目公告 = result
    
63.     Else
    
64.             获取项目公告 = ""
    
65.     End if
    
66. End Function
    
67. 
    
68. Function 获取自定义数据(键)
    
69.         result
    
70.     ret = 全局_插件对象.GetCustom(键,result)
    
71.     if(ret = 1) Then
    
72.             获取自定义数据 = result
    
73.     Else
    
74.             获取自定义数据 = ""
    
75.     End if
    
76. End Function
    
77. 
    
78. Function 发送监控消息(规则名称, 消息)
    
79.     ret = 全局_插件对象.SendMonitorMsg(规则名称, 消息)
    
80.     if(ret = 1) Then
    
81.             发送监控消息 = True
    
82.     Else
    
83.             发送监控消息 = False
    
84.     End if
    
85. End Function
    
86. 
    
87. Function 账号解绑(账号)
    
88.     ret = 全局_插件对象.Ubind(账号)
    
89.     if(ret = 1) Then
    
90.             账号解绑 = True
    
91.     Else
    
92.             账号解绑 = False
    
93.     End if
    
94. End Function
    
95. 
    
96. Function 账号注册(账号,密码,备注)
    
97.     ret = 全局_插件对象.SignUp(账号,密码,备注)
    
98.     if(ret = 1) Then
    
99.             账号注册 = True
    
100.     Else
     
101.             账号注册 = False
     
102.     End if
     
103. End Function
     
104. 
     
105. Function 账号充值(账号,充值卡)
     
106.     ret = 全局_插件对象.Charge(账号,充值卡)
     
107.     if(ret = 1) Then
     
108.             账号充值 = True
     
109.     Else
     
110.             账号充值 = False
     
111.     End if
     
112. End Function
     
113. 
     
114. Function 账号修改密码(账号,密码,新密码)
     
115.     ret = 全局_插件对象.ChangePwd(账号,密码,新密码)
     
116.     if(ret = 1) Then
     
117.             账号修改密码 = True
     
118.     Else
     
119.             账号修改密码 = False
     
120.     End if
     
121. End Function
     
122. 
     
123. Function 账号退出()
     
124.     ret = 全局_插件对象.SignOut()
     
125.     if(ret = 1) Then
     
126.             账号退出 = True
     
127.     Else
     
128.             账号退出 = False
     
129.     End if
     
130. End Function
     
131. 
     
132. Function 获取机器码()
     
133.     获取机器码 = 全局_插件对象.GetMachinecode()
     
134. End Function
     
135. 
     
136. Function 文件更新(版本号)
     
137.     全局_插件对象.UpdateFile(版本号)
     
138. End Function
     
139. 
     
140. 
     
141. Function GetMachineCode()
     
142.     GetMachineCode = ""
     
143.     Dim mc,mo
     
144.     Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
     
145.     For Each mo In mc
     
146.         If mo.IPEnabled = True Then
     
147.             'TracePrint "本机网卡MAC地址是: " & mo.MacAddress
     
148.             GetMachineCode = Plugin.Encrypt.Md5String( mo.MacAddress)
     
149.             Exit For
     
150.         End If
     
151.     Next
     
152.     Set mc = nothing
     
153. End Function
     
154. 
     
155. Function ParseJson(str,element)
     
156.     Dim sc
     
157.     Set sc = CreateObject("MSScriptControl.ScriptControl")
     
158.     sc.Language = "JScript"
     
159.     sc.AddCode "var o = " & str & ";"
     
160.     ParseJson = sc.Eval("o." & element)
     
161.     Set sc = nothing
     
162. End Function
     
163. 
     
164. // 自动更新 用于关闭自身的，使用的是win32里的一些API。 实现原理有兴趣的自行百度，其他的直接使用即可
     
165. Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
     
166. Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
     
167. Public Declare Sub rtcDoEvents Lib "msvbvm60.dll" Alias "rtcDoEvents" () As Long
     
168. Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
     
169. Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
     
170. 
     
171. Function selfExit()
     
172.     TracePrint "------------------退出------------------"
     
173.     //call TerminateProcess(-1, 259)
     
174.     Hwnd = Form1.Hwnd
     
175.     Do
     
176.         hwnd = GetParent(hwnd)
     
177.         If hwnd = GetDesktopWindow() or hwnd=0 Then
     
178.                 hwnd = oldhwnd
     
179.                 Exit Do
     
180.         Else
     
181.             oldhwnd=hwnd
     
182.         End If
     
183.         rtcDoEvents
     
184.     Loop
     
185.     Form1.登陆界面.Caption = hwnd
     
186.     Call Plugin.Window.CloseEx(Hwnd)
     
187.    
     
188. End Function
     

复制代码

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

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

复制代码

2、 初始化

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

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


项目名称 : 我们可以 网络验证系统后台查询到

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

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

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

4、 账号登录验证

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

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

心跳验证

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

这样我们就完成了 <网络验证系统> 的接入了

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