QM[zm]04.16 网络共享数据之数据库权限(VIP)

小知识：简单的限制同名设备登陆功能实现思路

每次某个设备登陆就把登陆设备的设备Id上传接口接口在数据库里面查找对应的设备找到字段是否已运行为1 当该设备脚本停止就给接口传送一个信息让该字段为-1 但是这会涉及到接口的功能设计和php代码的管理如果有相同设备id的设备想要运行脚本先到接口的数据库搜索是否已运行字段的值如果为1 表明已经有该设备运行自然会阻止重名设备运转如果没有设备运行则允许运行后把字段已运行字段的值改为1 给自己接口上增加这个功能（这个思路其实不用看了 因为下一节有老师的思路和完整的代码）

注意：如果网站挂在外网需要调整几点因为要考虑安全因素了

1.数据库的名字test 这个数据库名并不安全请自己重想一个数据库名 并在sql.php里面修改成对应的名字

2 对于数据库的账号 不要用root账号风险过大可以在后台设置一个普通用户给与一定的基础权限就够了 具体设置方法 可以百度没什么太多需要说的一个具体的链接可以参考https://jingyan.baidu.com/article/fa4125acb2fd8d28ad709245.html

3 注意选择任意主机和本地的时候注意区别

4 注意真正的密码是这个而不是我们输入的密码

QM[zm]04.17 网络共享数据之脚本授权加密验证(VIP)

以前的老问题：老师这节课提到了中控系统的一个最要紧的东西如果脚本是非正常的停止没有给接口发送终止的命令接口数据库自然没有记录该脚本已经停止这就需要接口数据库定时执行一个数据库遍历任务查看所有的记录里面所记录的最新时间和当前时间对比超过2分钟的就会认定已经下线。如果是普通的虚拟主机因为没法进入服务器端更没法用at命令来设置定时任务所以无法实现这个定时操作还有其他的投机取巧的办法以前博客也有阐述但是依然无法实现

老师提出了一个解决办法虽然不是十分完美但是的确是解决了下面就是思路

老师提出用随机字符串来验证的思路也不错

目的：我们要实现一个设备号当前只有一个可以登陆的

思路结构（主要是数据库表的结构和运行思路）：（不过会顶号）

举个例子：设备id YTYUTU34234GSj 这个设备上的脚本运行产生了一个随机数之为987324 然后把这个随机数值送到数据接口上传到接口数据库记录记录的样式

id 1 | 设备id YTYUTU34234GSj | 设备验证码：987324 | 最新更新时间：2019-01-05 17:23 (应该是时间戳)

如果此时我又开了一个设备把该设备的设备id也设置为YTYUTU34234GSj 运行第二个设备的脚本也会产生一个随机值但是基本不可能跟第一个设备的随机数一样打个比方为945832 把这个数据提交到接口接口数据库接收了该设备id对应的记录改为了

id 1 | 设备id YTYUTU34234GSj | 设备验证码：945832 | 最新更新时间：2019-01-05 17:30 (应该是时间戳)

当第一个设备周期性的验证接口数据库当前设备id对应的验证码的时候接口数据库的验证码现在为945832 而不是第一个设备的987324 那么第一个设备会自己停止运行脚本并提示发生设备id冲突如果存在第三个设备该设备id也为YTYUTU34234GSj 那么会导致第二个设备也会停止

数据库结构：

源码：

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
Randomize  

Dim 显示字符串=""
Dim 当前验证字符串=随机数字字母字符串(array(0,15))
//Dim 设备id=GetDeviceID()
Dim 设备id="1234567890" //因为就算用模拟器复制一个镜像 设备id还是有区别 所以我就指定下设备id让他们相同
TracePrint "生成的 当前验证字符串["&当前验证字符串&"]"
Dim 网络数据库接口地址="http://192.168.0.102/sql.php"
zm.NetDataInit 网络数据库接口地址, "测试数据库"
zm.NetDataSet 设备id, 当前验证字符串 //把当前的设备id和当前设备对应的随机验证字符串上传给接口数据库记录到其中

//设置几个线程需要用到的变量 因为线程和主代码之间很多东西无法通用
Thread.SetShareVar "多线程设备id", 设备id
Thread.SetShareVar "多线程当前验证字符串", 当前验证字符串
Thread.SetShareVar "多线程是否运行","1"
Thread.Start 多线程_设备网络验证 //运行多线程  线程负责链接接口数据库检测当前设备id对应的验证字符串和脚本本身的验证字符串是否一致

//主循环代码  
Do    
    //若干操作    
    If Thread.GetShareVar("多线程是否运行") <> "1" Then 
        For 5
            ShowMessage "主代码<发生设备冲突 当前脚本停止>"
            Delay 2000
        Next
        EndScript //主代码停止
    Else 
        ShowMessage "主代码[本次检测一切正常 允许当前设备运行脚本]"
        Delay 1000
    End If    
    Delay 20000
Loop

Sub 多线程_设备网络验证()
    Dim 网络数据库接口地址="http://192.168.0.102/sql.php"
    zm.NetDataInit 网络数据库接口地址, "测试数据库"
        
    Dim 网络上获取的当前验证字符串=zm.NetDataGet(Thread.GetShareVar("多线程设备id"))
    TracePrint "网络上获取的 多线程当前验证字符串为["&网络上获取的当前验证字符串&"]"
    Do
        //链接接口数据库 把当前设备id提交获取数据库里面记录的验证字符串 然后和本地的验证字符串比较
        网络上获取的当前验证字符串=zm.NetDataGet(Thread.GetShareVar("多线程设备id"))
            If 网络上获取的当前验证字符串 <> Thread.GetShareVar("多线程当前验证字符串") Then         
                Thread.SetShareVar "多线程是否运行", "-1" //将该线程值变为-1 通知主代码停止
                TracePrint "多线程内发现网络验证字符串和本地的验证字符串不同 多线程停止"
                EndScript //线程停止
            Else 
                ShowMessage "多线程[一切正常]"
            End If        
        Delay 10000 //10秒检测一次
    Loop

End Sub
//下面是随机生成指定长度字符串的函数 和主代码无关
Function 随机数字字母字符串(配置数组或者长度数值)
    Dim arr,str,result
    If IsArray(配置数组或者长度数值) Then 
        If 配置数组或者长度数值(0) = 0 Then 
            str="a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z-1-2-3-4-5-6-7-8-9-0"
            arr = Split(str, "-")
        ElseIf 配置数组或者长度数值(0) = 1 Then
            str="1-2-3-4-5-6-7-8-9-0"
            arr = Split(str, "-")
        ElseIf 配置数组或者长度数值(0) = 2 Then
            str="a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z"
            arr = Split(str, "-")
        End If
    Else 
        str="a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z-1-2-3-4-5-6-7-8-9-0"
        arr = Split(str, "-")
    End If
    //35个字符
    For cint(配置数组或者长度数值(1))
        result=result&arr(cint(随机数(0,ubound(arr))))
        Delay 10
    Next
    TracePrint "得到的随机字符串为: " & result
    随机数字字母字符串=result
End Function
Function 随机数(最小值,最大值)
    Dim 结果
    结果 = Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
    随机数=结果
End Function

QM[zm]04.18 网络共享数据之一些更新内容(VIP)

1.sql导入导出

txt导入mysql

鉴于手机脚本用的比较多的是txt来存储一些重要的账号密码信息所以这里演示下如何把txt里面的账号密码信息传递到数据库里面老师的办法可行但是效率有点低

常见的txt账号文件结构如下

打开mysql后台先新建表加2个字段 txt里面有几列我们就加入几个字段

开始导入txt

设置导入参数

分隔符设置因为txt里面分隔符为- 所以我们导入要设置

结果

可以给当前表再添加一些需要的字段比如id自增或者是其他字段这样就完成了txt导入mysql

mysql导出为txt

设置导出参数

得到结果