整个过程，就只能用键盘数字区的键，不能用鼠标及其它设备。

作业帖

是不是开学回学校要补考呀？

我是学机械的,这绝对不是作业

我只是想给我的光驱个性一点,另外扩展,也算得上是一个软件保护程序吧.

VB门外汉?
你这专家分240 咋来嘀?~` 哈哈
上面功能貌视基础中基础~

[quote]
我是学机械的,这绝对不是作业

我只是想给我的光驱个性一点,另外扩展,也算得上是一个软件保护程序吧.[/quote]
你已经开口要“源代码和最终程序”给你下载，这怎么不让人怀疑是作业帖呢？
还有，你的要求也太像作业了吧。

[quote]VB门外汉?
你这专家分240 咋来嘀?~` 哈哈
上面功能貌视基础中基础~[/quote]
QBasic

要不这样吧
我只要程序,源码也不要了,
唉,
我以前在文曲星上玩过几天QB,后来在这里申请了几个号,呵呵(三年没上这网站,号还在)
其实我前天下午看了一个下午的VB,就是搞不明白这个源代码在哪里编写(C语言啊QB啊都还有地方写代码),双击打开,里面好几段,什么事件啊,触发呀,唉呀,
大哥帮下忙噻,我现在连源码都不要了,您就别怀疑了吧.

实际上很好办。
问题时你已行代码都没有写啊，
你至少写一点，大家帮你补充些“难点”或修改写错误。
你看怎么样？

也对,我打算花几天时间从头学一下VB,或许我就能写出来了

做好了

窗口建一个text控件和一个按钮

模块代码：
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub

窗口代码：

Dim i As Integer
Dim s As Integer 's代表可以输入多少次密码后退出
Private Sub Command1_Click()
s = 3
If Text1.Text = "123" Then       '“123”为密码
Shell "F:\MULTIPASSWORDRECOVERY.EXE"   '程序路径
Else
a = MsgBox("密码错误", vbOKOnly + 64, "提示")
Text1.SetFocus '回到密码输入框
i = i + 1
If i >= s Then
PlaySound "f:\1.wav" '声音路径
i = 0 '播放声音后计数复位
End If
End If
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub