【文件属性】:
文件名称:VB根据硬件ID以及程序ID高效率生成注册码实例
文件大小:1.08MB
文件格式:RAR
更新时间:2017-06-03 06:33:17
vb 注册码
Private Sub Command1_Click()
Dim b_HDD As Boolean
Dim b_NIC As Boolean
Dim b_CPU As Boolean
Dim b_BIOS As Boolean
b_HDD = False
b_NIC = False
b_CPU = False
b_BIOS = False
If ck_HDD.Value = Checked Then
b_HDD = True
End If
If ck_NIC.Value = Checked Then
b_NIC = True
End If
If ck_CPU.Value = Checked Then
b_CPU = True
End If
If ck_BIOS.Value = Checked Then
b_BIOS = True
End If
Text1.Text = GetHardwareID(b_HDD, b_NIC, b_CPU, b_BIOS, "R5LR-S4TQ")
End Sub
网友评论
- 不错,但不知是否以后需要注册
- 可以,已经实现了
- 可以,很有帮助
- 没有源码,使用总不放心