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 5ShowMessage "主代码<发生设备冲突 当前脚本停止>"Delay 2000NextEndScript //主代码停止Else ShowMessage "主代码[本次检测一切正常 允许当前设备运行脚本]"Delay 1000End If    Delay 20000
LoopSub 多线程_设备网络验证()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秒检测一次
    LoopEnd Sub
//下面是随机生成指定长度字符串的函数 和主代码无关
Function 随机数字字母字符串(配置数组或者长度数值)Dim arr,str,resultIf 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 Thenstr="1-2-3-4-5-6-7-8-9-0"arr = Split(str, "-")ElseIf 配置数组或者长度数值(0) = 2 Thenstr="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 IfElse 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 10NextTracePrint "得到的随机字符串为: " & result随机数字字母字符串=result
End Function
Function 随机数(最小值,最大值)Dim 结果结果 = Int((最大值 - 最小值 + 1) * Rnd() + 最小值)随机数=结果
End Function