android按键精灵源码，按键精灵⼿机版⽹络验证源码适⽤安卓
苹果ios⼿机按键
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim 软件版本，试⽤次数，试⽤天数,⽹站⽤户账号，注册类别，校验密钥，检验间隔时间，续费购买⽹址，升级地址
Dim 设备ID,⽤户别名,⽤户校验
Dim 校验值,post数据，请求地址,regweb
Dim MyArray,⽹络时间，校验结果，随机参数，检验时间1，检验时间2
⽹站⽤户账号 = "U2T1460651957974" //⽹站⽤户appid，需填写在⽹站申请的账号对应appid
注册类别 = 10//注册商品即软件编号，⽤于区分同⼀⽤户不同的脚本类别
软件版本 = 2//客户端软件版本，更新时该设置需修改⼤于等于服务器设置的版本号，否则返回err，根据errmsg可提⽰更新
试⽤次数 = 5//试⽤次数为空则不试⽤，请根据需要设置5次以下，超过5次⽆效，与试天次数建议设置⼀项
试⽤天数 = 1//试⽤天数为空则不试⽤，可设置5天以下，超过5天⽆效，与试⽤次数建议设置⼀项
校验密钥 = "f964633356970667ff80ff1c167c0cbf" //⽹站注册⽤户后可⾃⾏⽣成密钥，校验⽤，注意保密以免其他⽤户误⽤
检验间隔时间 = 20//检验间隔时间，秒，需设置⼤于20秒，频繁校验则返回错误
续费购买⽹址 = "pc.91reg" //提⽰⽤户购买注册时间的⽹址
升级地址 = "update.91reg" //转到升级⽹址
//以上为配置参数，修改为你申请的信息，⽹站pc.91reg注册⽤户并开通⽹络验证，然后新增商品即软件编号
//分隔线---------------------------------------------------------------------------------------------
Sub 开始初始检验
/
/以下开始⾸次⾃动收集设备信息并初始验证
随机参数 = int(Rnd()*100000)
//以下为唯⼀参数设置
设备ID = GetDeviceID() //必需参数，唯⼀判断，也可⾃⾏设定
//⽤户别名 = ""//留空，⽹站另⾏设置，唯⼀对应设备ID，⽅便记忆后续充值续期
⽤户校验 = Device.GetIccid()//可空，⽤于校验⽤户未被克隆
TracePrint "设备ID:"&设备ID
TracePrint "⽤户校验:"&⽤户校验
regweb = "api.91reg" //验证服务端⽹址，⽹站⽤户账号免费申请
⽹络时间 = GetNetworkTime()
检验时间1 = TickCount()
Traceprint ⽹络时间
If 检验间隔时间 < 20 Then
检验间隔时间 = 20
TracePrint 校验密钥&"1001"&⽹站⽤户账号&设备ID&⽤户别名&⽤户校验&注册类别&软件版本&⽹络时间&试⽤天数&试⽤次数&随机参数
校验值 = Encode.Md5(校验密钥&"1001"&⽹站⽤户账号&设备ID&⽤户别名&⽤户校验&注册类别&软件版本&⽹络时间&试⽤天数&试⽤次数&随机参数)
TracePrint 校验值
TracePrint regweb&"/api/svrchk?tp=1001&appid=" & ⽹站⽤户账号 & "&macid=" & 设备ID & "&username=" & ⽤户别名 & "&userpwd=" & ⽤户校验 & "&softid=" & 注册类别 & "&ver=" & 软件版本 & "&ndate=" & ⽹络时间 & "&tryd=" & 试⽤天数 &
"&tryn=" & 试⽤次数 & "&rnds=" & 随机参数 & "&strparm=" & 校验值
请求地址 = regweb&"/api/svrchk"
post数据 = "tp=1001&appid=" & ⽹站⽤户账号 & "&macid=" & 设备ID & "&username=" & ⽤户别名 & "&userpwd=" & ⽤户校验& "&softid=" & 注册类别 & "&ver=" & 软件版本 & "&ndate=" & ⽹络时间 & "&tryd=" & 试⽤天数 & "&tryn=" & 试⽤次数 &
"&rnds=" & 随机参数 & "&strparm=" & 校验值
校验结果 = URL.Post(请求地址, post数据)
If 校验结果="err:101,msg:low version" Then
TracePrint "版本不符，请升级！"
ShowMessage("请下载最新版本:"&升级地址)
Delay 5000
End If
If InStr(1, 校验结果, "ok") > 0 Then
MyArray = Split(校验结果, ",")
If UBOUND(MyArray) > 0 Then
校验结果 = Myarray(2)
End If
If lcase(校验结果) <> lcase(Encode.Md5(随机参数 & Myarray(1) & 校验密钥)) Then
TracePrint "⾮法修改，停⽌运⾏！"
EndScript
Else
TracePrint "登录校验成功！"
End If
Else
TracePrint "登录校验失败！" & 校验结果
ShowMessage "登录校验失败！" & 校验结果
EndScript
End If
//初始验证结束
Sub 开始间隔检验
//开始校验判断是否克隆或多点重复登录，必须定期在程序⾥检测，防⽌克隆模拟器
检验时间2 = TickCount()
TracePrint 检验时间2 - 检验时间1
//TracePrint DateDiff("s", 检验时间1, 检验时间2)
If 检验时间2 - 检验时间1 >= 检验间隔时间 * 1000 Then
检验时间1=检验时间2
android最新版
校验值 = Encode.Md5(校验密钥&"1002"&⽹站⽤户账号&设备ID&⽤户别名&⽤户校验&注册类别&软件版本&⽹络时间&试⽤天数&试⽤次数&随机参数)
post数据 = "tp=1002&appid=" & ⽹站⽤户账号 & "&macid=" & 设备ID & "&username=" & ⽤户别名 & "&userpwd=" & ⽤户校验& "&softid=" & 注册类别 & "&ver=" & 软件版本 & "&ndate=" & ⽹络时间 & "&tryd=" & 试⽤天数 & "&tryn=" & 试⽤次数 &
"&rnds=" & 随机参数 & "&strparm=" & 校验值
校验结果 = URL.Post(请求地址, post数据)
TracePrint 校验结果
If 校验结果="err:101,msg:low version" Then
TracePrint "版本不符，请升级！"
ShowMessage("请下载最新版本:"&升级地址)
Delay 5000
End If
If InStr(1, 校验结果, "ok") > 0 Then
MyArray = Split(校验结果, ",")
If UBOUND(MyArray) > 0 Then
校验结果 = Myarray(2)
End If
If lcase(校验结果) <> lcase(Encode.Md5(随机参数 & Myarray(1) & 校验密钥)) Then
TracePrint "⾮法操作，停⽌运⾏！"
EndScript
Else
TracePrint "间隔校验成功！"
End If
Else
TracePrint "登录校验失败！" & 校验结果
ShowMessage "登录校验失败！" & 校验结果
EndScript
End If
End Sub
//分隔线--------------以上为⾃动⽣成代码，与验证服务器⽹站配套使⽤，不熟悉接⼝请勿修改------------------开始初始检验 //你的代码开始之前完成调⽤初始检验Sub
//以下开始你的主程序
Do
TracePrint "开始运⾏你的程序"
//你的程序例⼦开始
For i = 1 to 5
Delay 1000
ShowMessage("正在执⾏你的程序..."&i)
Next
//你的程序例⼦结束
开始间隔检验//在执⾏你的代码中途随时插⼊调⽤间隔检验Sub
Loop

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。