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

自用命令库代码:心跳验证(卡密,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

所有评论 0
您需要登录后才可以回档 登录 | 立即注册