ruanpanjiami.txt

来自「自己用vb编写的用软盘给程序加密的小程序」· 文本 代码 · 共 32 行

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()
   Label1.FontSize = 18
   Label1.Alignment = 2
End Sub

Private Sub Command1_Click()    '进入
    Dim ral As Long
    Dim mystr As String, mystr1 As String
    mystr = String$(255, Chr$(0))
    mystr1 = String$(255, Chr$(0))
    ral = GetVolumeInformation("a:\", mystr, Len(mystr), lSerialNum, 0, 0, mystr1, Len(mystr1))
    Text1.Text = CStr(lSerialNum)
    If Text1 = 0 Then
      MsgBox ("请插入附带盘！")
    Else
    If Text1 <> "1043077335" Then         '   "1043077335"  为加密磁盘序列号
        MsgBox ("磁盘错误,请插入整确磁盘！！")
      Else
        If i = "1043077335" Then
          Label1.Caption = "通过密码检测，可以成功登录！！"
        End If
   End If
   End If

End Sub

Private Sub Command2_Click()
   End
End Sub