论坛 › 管家婆交流 › VB 一些特定写狗源码开源

day5223310 发表于 2022-2-27 15:48:59

VB 一些特定写狗源码开源

VB 迷你版安装包


**** Hidden Message *****

interfar 发表于 2022-3-26 20:37:28

Dim retcode, handle, block_index As Integer
Dim uid As Long, hidAs 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

interfar 发表于 2022-3-26 20:36:28

Dim retcode, handle, block_index As Integer
Dim uid As Long, hidAs 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

interfar 发表于 2022-3-26 20:34:49

. 查找计算机上连接的 Rockey2 加密锁设备
Declare Function RY2_Find Lib "ROCKEY2.DLL" () As Long
'// 返回:
'// 如果返回值小于 0，表示返回的是一个错误编码，具体含义请看下面的错误编码。
'// 如果返回值为 0，表示没有任何 Rockey2 设备存在。
'// 如果返回值大于 0，返回的是找到的 Rockey2 加密锁的个数。
'// ====================================================================
'
'// 2. 打开指定的加密锁

Declare Function RY2_Open Lib "ROCKEY2.DLL" (ByVal mode As Long, ByVal uid As Long, ByRef hid As Long) As Long

'// 输入:
'// mode 是打开加密锁的方式
'// mode = 0 表示的是打开第1个找到的 Rockey2，不理会 UID 和 HID
'// mode > 0 表示的是按 UID 方式打开，这时候 mode 的值表示的是要打开锁的序号
'//          譬如: uid=12345678, mode=2 表示的是希望打开 uid 等于12345678 的
'//          第2把加密锁。
'// mode = -1 表示的是按 HID 方式打开，要求 *hid 不能为 0
Global Const AUTO_MODE = 0

Global Const HID_MODE = -1

'// uid(UserID)
'// 当按 UID 方式打开的时候，在这给出要打开加密锁的 UID，此 UID 就是用户调用
'// RY2_GenUID 功能获得的用户 ID。
'// hid
'// 这个是加密锁的硬件 ID，这是1个输入/输出值，如果按 HID 方式打开加密锁的
'// 时候，表示希望打开硬件ID = *hid 的加密锁。
'// 不论以哪种方式打开加密锁，在成功打开加密锁以后会在这返回加密锁的硬件 ID
'// 返回值:
'// 大于等于0      表示成功，返回的就是打开的加密锁的句柄
'// 小于0            返回的是一个错误编码，具体含义请看下面的错误编码部分。

'// ====================================================================
'
'// 3. 关闭指定的加密锁
Declare Sub RY2_Close Lib "ROCKEY2.DLL" (ByVal handle As Long)
'// 输入:
'// handle 设备的句柄，跟 RY2_Open 命令返回的 handle 一致。
'// 返回:
'// 返回的是一个错误编码，具体含义请看下面的错误编码部分。

'// ====================================================================
'
'// 4. 生成用户 ID
Declare Function RY2_GenUID Lib "ROCKEY2.DLL" (ByVal handle As Long, ByRef uid As Long, ByVal seed As Any, ByVal isProtect As Long) As Long
'// 输入:
'// handle 设备的句柄，跟 RY2_Open 命令返回的 handle 一致。
'// uid 输出参数，生成的用户 ID 从此参数返回
'// seed 用户给出的用于生成用户 ID 的种子，这是一个最大长度可以是 64 个字节的字符串
'// isProtect 保留，为0
'// 返回:
'// 返回的是一个错误编码，具体含义请看下面的错误编码部分。
'
'// ====================================================================

'// 5. 读取加密锁内容

Declare Function RY2_Read Lib "ROCKEY2.DLL" (ByVal handle As Long, ByVal block_index As Long, ByVal buffer512 As Any) As Long
'// 输入:
'// handle 设备的句柄，跟 RY2_Open 命令返回的 handle 一致。
'// block_index 块索引，指明要读取的是哪1个块，取值为(0-4)
'// buffer512 读出块的缓冲区，因为每个块的长度固定为 512 个字节，所以这个
'// buffer 的大小至少是 512 个字节
'// 返回:
'// 返回的是一个错误编码，具体含义请看下面的错误编码部分。

'// ====================================================================
'
'// 6. 写入加密锁内容

Declare Function RY2_Write Lib "ROCKEY2.DLL" (ByVal handle As Long, ByVal block_index As Long, ByVal buffer512 As Any) As Long

'// 输入:
'// handle 设备的句柄，跟 RY2_Open 命令返回的 handle 一致。
'// block_index 块索引，指明要写入的是哪1个块，取值为(0-4)
'// buffer512 写入块的缓冲区，因为每个块的长度固定为 512 个字节，所以这个
'// buffer 的大小至少是 512 个字节
'// 返回:
'// 返回的是一个错误编码，具体含义请看下面的错误编码部分。
'
'
'// 错误编码 ===========================================================
'
'// 成功，没有错误
Global Const RY2ERR_SUCCESS = 0
'
'// 没有找到给定要求的设备(参数错误)
Global Const RY2ERR_NO_SUCH_DEVICE = &HA0100001
'
'// 在调用此功能前需要先调用 RY2_Open 打开设备(操作错误)
Global Const RY2ERR_NOT_OPENED_DEVICE = &HA0100002
'
'// 给出的 UID 错误(参数错误)
Global Const RY2ERR_WRONG_UID = &HA0100003
'
'// 读写操作给出的块索引错误(参数错误)
Global Const RY2ERR_WRONG_INDEX = &HA0100004
'
'// 调用 GenUID 功能的时候，给出的 seed 字符串长度超过了 64 个字节(参数错误)
Global Const RY2ERR_TOO_LONG_SEED = &HA0100005
'
'// 试图改写已经写保护的硬件(操作错误)
Global Const RY2ERR_WRITE_PROTECT = &HA0100006
'
'// 打开设备错(Windows 错误)
Global Const RY2ERR_OPEN_DEVICE = &HA0100007
'
'// 读记录错(Windows 错误)
Global Const RY2ERR_READ_REPORT = &HA0100008
'
'// 写记录错(Windows 错误)
Global Const RY2ERR_WRITE_REPORT = &HA0100009
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_SETUP_DI_GET_DEVICE_INTE**CE_DETAIL = &HA010000A
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_GET_ATTRIBUTES = &HA010000B
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_GET_PREPARSED_DATA = &HA010000C
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_GETCAPS = &HA010000D
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_FREE_PREPARSED_DATA = &HA010000E
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_FLUSH_QUEUE = &HA010000F
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_SETUP_DI_CLASS_DEVS = &HA0100010
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_GET_SERIAL = &HA0100011
'
'// 内部错误(Windows 错误)
Global Const RY2ERR_GET_PRODUCT_STRING = &HA0100012
'
'// 内部错误
Global Const RY2ERR_TOO_LONG_DEVICE_DETAIL = &HA0100013
'
'// 未知的设备(硬件错误)
Global Const RY2ERR_UNKNOWN_DEVICE = &HA0100020
'
'// 操作验证错误(硬件错误)
Global Const RY2ERR_VERIFY = &HA0100021
'
'// 未知错误(硬件错误)
Global Const RY2ERR_UNKNOWN_ERROR = &HA010FFFF
'

anminle 发表于 2022-2-27 16:16:27

非常不错。下载学习学习。。   

zzsddzliu 发表于 2022-2-27 18:07:07

VB早忘了。以前上学还接触过。现在都还给老师了呀。

scxlhg 发表于 2022-2-27 18:30:48

VB早忘了。以前上学还接触过。现在都还给老师了               

erman 发表于 2022-2-27 22:11:41

非常不错。下载学习学习。。                     

chinanewhb 发表于 2022-2-27 23:01:17

这个是用什么的呀？解压提示错误呀？

sukingmoo 发表于 2022-2-28 07:46:27

谢谢分享 学习一下                                             

zbxsg8848 发表于 2022-2-28 08:28:30

非常不错。下载学习学习。。   

pokld 发表于 2022-2-28 09:15:30

非常不错。下载学习学习:D:D:D:D:D:D

chutty 发表于 2022-2-28 09:18:49

非常不错。下载学习学习。。   

查看完整版本: VB 一些特定写狗源码开源