|
|
发表于 2026-5-18 10:14:23
|
显示全部楼层
' VB6 窗体代码：添加 2个TextBox(txtPassword)、1个CommandButton(cmdCheck)
' 1个Label(lblStatus) 用于显示提示
Option Explicit
' 配置
Const CORRECT_PWD As String = "123456" ' 正确密码
Const MAX_TIMES As Integer = 3 ' 最大错误次数
Const LOCK_SEC As Integer = 60 ' 锁定时间(秒)
Dim errTimes As Integer ' 错误次数
Dim isLocked As Boolean ' 是否锁定
' 验证密码
Private Sub cmdCheck_Click()
Dim pwd As String
pwd = txtPassword.Text
' 判断是否锁定
If isLocked Then
lblStatus.Caption = "已锁定！请等待 " & LOCK_SEC & " 秒后重试"
Exit Sub
End If
' 密码正确
If pwd = CORRECT_PWD Then
lblStatus.Caption = "密码正确！U盘已解锁"
errTimes = 0
' 这里可以调用解密函数
Call DecryptUSBFiles
Exit Sub
End If
' 密码错误
errTimes = errTimes + 1
lblStatus.Caption = "密码错误！剩余次数：" & (MAX_TIMES - errTimes)
' 达到最大次数 → 锁定
If errTimes >= MAX_TIMES Then
isLocked = True
lblStatus.Caption = "错误过多，锁定 " & LOCK_SEC & " 秒！"
Call StartLockTimer
End If
End Sub
' 锁定倒计时
Private Sub StartLockTimer()
Dim t As Integer
For t = LOCK_SEC To 1 Step -1
lblStatus.Caption = "锁定中，剩余 " & t & " 秒"
DoEvents
Sleep 1000
Next t
isLocked = False
errTimes = 0
lblStatus.Caption = "已解锁，可以重新输入密码"
End Sub
' 加密U盘所有文件（示例）
Private Sub EncryptUSBFiles()
' 实际需使用加密算法，如异或加密/AES
End Sub
' 解密U盘所有文件
Private Sub DecryptUSBFiles()
' 密码正确后执行解密
End Sub
' API 延时
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) |
|
