本帖最后由 zbnysjwsnd8 于 2017-7-30 21:14 编辑
唔。。我不是大神 请不要这么叫我。。。
机器码:
先执行这段脚本:
[Visual Basic] 纯文本查看 复制代码 Function Getcpuid()
Dim cpuSet,cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
getcpuid=cpu.ProcessorId
exit for
Next
end Function
设这段函数的返回值为a
则机器码 = a + a + "PO"
注册码:
先执行这段脚本:
[Visual Basic] 纯文本查看 复制代码 Function MACAddress()
Dim mc,mo
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
MACAddress= mo.MacAddress
Exit For
End If
Next
End Function
设这段函数的返回值为a1
则注册码 = a + 机器码 + 子文本替换 (a1, “:”, “-”, , , 真)
附 注册机源代码和成品:
|