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

guoqp

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

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

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

caitou282

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

waylon

试试，看好了回来点赞

haibo

6666666666666666666666