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