自用命令库代码：心跳验证(卡密,status)

Function 心跳验证(卡密,status)

    Dim json

    json = URL.Get("http://sq.wzzlm.cn/php/mysqladminlite.php?env=development&db=sq&table=&sqlstmt=SELECT km,sttime,status,act FROM sqyz WHERE km = '"&卡密&"'&token=&action=exportjsononline")

    Dim kmxx=Split(json,"""")

    dim zxm=kmxx(11)

    If zxm <> status  Then 

        ShowMessage "您的卡密在其他设备登陆使用，本设备被踢下线",3000

        Delay 3000

        EndScript

    End If

End Function