Function 授权验证(卡密,简称,status)
If InStr(1, 卡密, 简称)=0 Then
ShowMessage "您输入的卡密不正确，请检查是否输入错误", 2000, 0, 0
Delay 2000
EndScript
End If
Dim 月卡=UTF8.InStr(1,卡密, 简称&"30")
Dim 天卡=UTF8.InStr(1,卡密, 简称&"1")
Dim wz="http://sq.wzzlm.cn/php/mysqladminlite.php?env=development&db=sq&token="
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 km=kmxx(3),jhsj=kmxx(7),zxm=kmxx(11),jjzt=kmxx(15)
Dim 时间=GetNetworkTime()
Dim ztxg="sqlstmt=UPDATE+sqyz+SET+status%3D%27"&status&"%27+WHERE+km%3D%27"&卡密&"%27&env=development&db=sq&table=&token="//设置在线码
Dim syxg="sqlstmt=UPDATE+sqyz+SET+act%3D%271%27+WHERE+km%3D%27"&卡密&"%27&env=development&db=sq&table=&token="//设置激活状态为1
Dim xgst="sqlstmt=UPDATE+sqyz+SET+sttime%3D%27"&时间&"%27+WHERE+km%3D%27"&卡密&"%27&env=development&db=sq&table=&token="//设置激活时间
Dim sckm ="sqlstmt=DELETE+FROM+sqyz++WHERE+km%3D%27"&卡密&"%27&env=development&db=sq&table=&token="//删除卡密
If km=null Then
ShowMessage "您输入的卡密不正确或卡密已过期删除", 2000
Delay 2000
EndScript
ElseIf jjzt = "0" Then
ShowMessage "初次使用，正在激活您的卡密！",2000
Delay 2000
url.Post(wz,xgst) //设置激活时间
Delay 500
url.post(wz,ztxg)//设置在线码
Delay 500
url.post(wz,syxg)//设置激活状态为1
Delay 500
ShowMessage "您的卡密已经激活，激活时间为：" & 时间 & "\r\n" & "本设备已上线，请勿在其他设备使用卡密，否则会导致本设备下线。", 2000
Delay 2000
ElseIf jjzt = "1" Then
If 月卡>=1 and 时间差(jhsj,时间)/60/60/24 > 30 Then
ShowMessage "您的卡密已过期！", 2000
url.Post(wz,sckm)//删除卡密
Delay 2000
EndScript
ElseIf 天卡>=1 and 时间差(jhsj,时间)/60/60 > 24 Then
ShowMessage "您的卡密已过期！", 2000
url.Post(wz,sckm)//删除卡密
Delay 2000
EndScript
Else
ShowMessage "当前卡密有效，本设备已登陆，欢迎上线！\r\n请勿在其他设备使用卡密，否则会导致本设备下线。"&"\r\n当前卡密激活时间为：" & jhsj, 5000
Delay 4000
url.post(wz,ztxg)//设置在线码
Delay 500
End If
End If
End Function
