脚本注册码功能
‘壹’ 按键精灵9如何制作自己的注册码 比如7天或者30天求源码 谢谢
额，几百行代码10分....
2个方法，
一种是注册小精灵会员，使用商业版可以添加这个功能....
另外一种比较麻烦，密钥生成你也要自己学会修改线程独特的密钥
这个加到脚本的前面后在制作成小精灵
Delay 1000
UserVar zc=48002764235672752817473257963 "请输入注册码"
mama=Plugin.GetSysInfo.GetHDDSerialNumber
VBS ma=Abs(mama)
VBS en=ma-585*56-4856156+52891680:cr=ma-585+58648489*8+en-415+415345*6
VBS ce=ma-859*46+6558*682+25826125+867954358:nl=ne*5+65954984-95457
VBS ct=en&"注"&ce&"册"&cr&"码"&nl
//注册码等于上面算出的结果则表达方式成立
If zc=ct
Goto 启动脚本
Else
ma=ma+4546446486
MessageBox "注册码错误，你的序列号是:"& ma &"。请将序列号发给卖你脚本的人，获取注册码。"
//表达方式不成立,结束脚本
ma="注册码错误，你的序列号是:"& ma &"。请将序列号发给卖你脚本的人，获取注册码。"
//下面是读出时间
Dim Y,Mon,D,W,h,m,s,SJ
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
h=Hour(time):m=Minute(time):s=Second(time)
SJ=Y&"年"&Mon&"月"&D&"号 "&"星期"&W&" "&h&"点"&m&"分"&s&"秒"
//上面是读出时间
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(x&"\你的序列号.txt")
//↑写一个TXT到桌面
/////////////////////////////////主内容/////////////////////////////////
myfile.writeline(ma)
/////////////////////////////////主内容/////////////////////////////////
myfile.writeline(" ")
myfile.writeline("记录时间:"&SJ)
myfile.writeline(" ")
myfile.writeline(" ")
myfile.writeline("感谢您使用由《00一一一 ,按键用户 》制作的脚本,祝愿您使用愉快!!!")
myfile.writeline(" ")
myfile.writeline(" 健康游戏公告")
myfile.writeline(" ")
myfile.writeline(" 抵制不良游戏，拒绝盗版游戏。")
myfile.writeline(" 注意自我保护，谨防受骗上当。")
myfile.writeline(" 适度游戏益脑，沉迷游戏伤身。")
myfile.writeline(" 合理安排时间，享受健康生活。")
//↑这两行就是你写进TXT的内容
myfile.Close
Lleft=instr(1,awoke,"(")
Rright=instr(1,awoke,")")
EndScript
EndIf
EndScript
Rem 启动脚本
MessageBox "测试成功!!!"
这个留给自己,谁都不要给.用于给用你脚本的人来获得注册码的
Delay 1000
UserVar ma="jq4m" 请输入对方的序列号
ma=ma-4546446486
VBS en=ma-585*56-4856156+52891680:cr=ma-585+58648489*8+en-415+415345*6
VBS ce=ma-859*46+6558*682+25826125+867954358:nl=ne*5+65954984-95457
VBS ct=en&"注"&ce&"册"&cr&"码"&nl
//下面是读出时间
Dim Y,Mon,D,W,h,m,s,SJ
Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday)
h=Hour(time):m=Minute(time):s=Second(time)
SJ=Y&"年"&Mon&"月"&D&"号 "&"星期"&W&" "&h&"点"&m&"分"&s&"秒"
//上面是读出时间
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(x&"\对方的序列号.txt")
//↑写一个TXT到桌面
/////////////////////////////////主内容/////////////////////////////////
myfile.writeline("对方的序列号是："&ma)
KeyPress 13,1
myfile.writeline("对方的注册码是："&ct)
/////////////////////////////////主内容/////////////////////////////////
myfile.writeline(" ")
myfile.writeline("记录时间:"&SJ)
myfile.writeline(" ")
myfile.writeline(" ")
myfile.writeline("感谢您使用由《00一一一 ,按键用户 》制作的脚本,祝愿您使用愉快!!!")
myfile.writeline(" ")
myfile.writeline(" 健康游戏公告")
myfile.writeline(" ")
myfile.writeline(" 抵制不良游戏，拒绝盗版游戏。")
myfile.writeline(" 注意自我保护，谨防受骗上当。")
myfile.writeline(" 适度游戏益脑，沉迷游戏伤身。")
myfile.writeline(" 合理安排时间，享受健康生活。")
//↑这两行就是你写进TXT的内容
myfile.Close
Lleft=instr(1,awoke,"(")
Rright=instr(1,awoke,")")
Postscript:至于时间限制和脚本密码类似，也就是在脚本输入正确的注册码后，记录下当前的网络时间(返回值 = Lib.网络.获取网络时间())，然后通过特定的密钥加密后保存起来，在脚本运行的过程中，每分钟或小时或脚本启动时前者通过多线程后者直接添加代码获得当前网络时间与脚本第一次注册成功时间做差计算，从而限制7天或你想要的天数.....脚本内可能会有小错误，如果你会写脚本，我想这点小的语法错误不会阻碍你的脚步....我就不改了
‘贰’ 按键小精灵注册码
可以明确告诉你，每个作者都持有一个或多个脚本编号，一个脚本或多个脚本可以使用不同的脚本编号，所以，只有作者才拥有该脚本编号的注册码。
公式：脚本编号+注册码=成功注册
比如，相同的脚本可以使用不同的脚本编码编辑，脚本相同编号不同，那么注册码也不会相同使用。
所以，网上的注册码全不可信，而且作者后台可以根据使用情况随时关闭那个注册码使用权。
‘叁’ 我刚下载了一个脚本，他要注册码，按键精灵不会导入
注册码不是这么用的
那是脚本作者自己编写的一种注册方式并不是按键精灵会员的注册码
按键精灵的注册码只是开个会员而已并没其他的用处
而脚本上的注册码是要向
作者购买的
并不是按键官方
‘肆’ 脚本注册码怎么破解
1.查壳 知道什么壳后 2.根据壳的类型脱壳 3.修复脱壳后的文件4.一般用OD加载找出注册码 或者W32 直接爆破 最重要的是要懂一点汇编知识
‘伍’ 按键精灵安卓版 如何写注册码脚本 本地验证 机器码---注册码 比如运行软件时提前设备码为1111
我有免费按键安卓版验证
