TA的每日心情 | 奋斗 6 小时前 |
---|
签到天数: 694 天 [LV.9]以坛为家II
|
发表于 2022-3-26 20:37:28
|
显示全部楼层
Dim retcode, handle, block_index As Integer
Dim uid As Long, hid As Long
Dim buffer As String
Dim seed As String
Dim str As String
Dim curline As Integer
Private Sub Command1_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "26345310"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Command2_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "tx3310"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Command3_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "tx3310"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Command4_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "8687123"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Command5_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "563000123"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Command6_Click()
curline = 0
' 生成自己的 UID
' 在生成 UID 的时候,要求计算机上只能插入1把加密锁
' 所以我们不关心这个锁的 UID 和 HID 是什么,使用
' 找到的第 1 把锁就对了
retcode = RY2_Find()
If (retcode < 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
End If
If (retcode = 0) Then
'Text1 = Text1 + "没找到加密锁" & vbNewLine
List1.List(curline) = "没找到加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "找到加密锁" & vbNewLine
List1.List(curline) = "找到加密锁"
curline = curline + 1
End If
retcode = RY2_Open(AUTO_MODE, 0, hid)
If (retcode < 0) Then
'Text1 = Text1 + "请打开 rockey2加密锁" & vbNewLine
List1.List(curline) = "请打开加密锁"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "打开rockey2加密锁" & vbNewLine
List1.List(curline) = "打开加密锁"
curline = curline + 1
End If
handle = retcode
seed = "6675320"
retcode = RY2_GenUID(handle, uid, seed, 0)
If (retcode < 0) Then
'Text1 = Text1 + "初始化UID失败" & vbNewLine
List1.List(curline) = "授权失败"
curline = curline + 1
Exit Sub
Else
'Text1 = Text1 + "初始化UID成功" & vbNewLine
List1.List(curline) = "授权成功"
curline = curline + 1
End If
RY2_Close handle
' 在生成新的 UID 以后,加密锁的识别标志会一起改变,必须拔出加密锁再重新插入
' List1.List(curline) = "You must plug out Rockey2 and re-plug to enable new uid."
List1.List(curline) = "请拔出您的“加密锁”再重新插入方可生效."
curline = curline + 1
End Sub
Private Sub Form_Load()
End Sub
Private Sub List1_Click()
End Sub
|
|