网络授权系统及多线程序控制

guoqp · 发表于 2021-2-26 15:52:54

Function 写配置(softid, username, config, value) Dim sendtext = Encode.TableToJson({"命令":"写配置","参数":{"softid":softid,"username":username,"config":config,"value":value}}) socket.CliendConnect "192.168.2.2", 33000 socket.ClientSend (sendtext) End Function Function 读配置(softid, username, config,default) Dim sendtext = Encode.TableToJson({"命令":"读配置","参数":{"softid":softid,"username":username,"config":config}}) socket.CliendConnect "192.168.2.2", 33000 socket.ClientSend (sendtext) dim ret = socket.ClientReceive() If IsNull(ret) or ret = "error" Then 读配置 = default Else 读配置 = ret End If End Function Function 写日志(softid,username,text) Dim sendtext = Encode.TableToJson({"命令":"写日志","参数":{"softid":softid,"username":username,"text":text}}) socket.CliendConnect "192.168.2.2", 33000 socket.ClientSend (sendtext) End Function

guoqp · 发表于 2021-2-26 15:53:40

Function 写配置(softid, username, config, value)
Dim sendtext = Encode.TableToJson({"命令":"写配置","参数":{"softid":softid,"username":username,"config":config,"value":value}})
socket.CliendConnect "192.168.2.2", 33000
socket.ClientSend (sendtext)
End Function
Function 读配置(softid, username, config,default)
Dim sendtext = Encode.TableToJson({"命令":"读配置","参数":{"softid":softid,"username":username,"config":config}})
socket.CliendConnect "192.168.2.2", 33000
socket.ClientSend (sendtext)
dim ret = socket.ClientReceive()
If IsNull(ret) or ret = "error" Then
读配置 = default
Else
读配置 = ret
End If

End Function
Function 写日志(softid,username,text)
Dim sendtext = Encode.TableToJson({"命令":"写日志","参数":{"softid":softid,"username":username,"text":text}})
socket.CliendConnect "192.168.2.2", 33000
socket.ClientSend (sendtext)
End Function

guoqp · 发表于 2021-2-26 15:55:40

我是这样进行网络验证的,不但可以网络验证,还可以进行变量\配置的网络读写,也可以网络写日志,如果你的数据库够大还可以将图片或者其它特征存放在数据库,进行在线读写,更新特征都不用更新APP

caitou282 · 发表于 2021-2-27 22:05:35

本帖最后由 caitou282 于 2021-2-27 22:17 编辑

挺牛啊，下载学习了，还只是一知半解

waylon · 发表于 2021-4-20 11:01:36

试试，看好了回来点赞

		自动登录	找回密码
密码			立即注册

[教程源码] 网络授权系统及多线程序控制