vb编写挂机锁的问题

就是在网吧中常见到的那种挂机锁，要源码，不要告诉我在哪里可以下载，只是需要VB编写的源码，谢谢！

答案：
小弟最近在学做一个VB屏幕锁的，看到一个源码很不错的，遇到点不会的、麻烦高手们看看这些语句是甚麽意思 If biedong.Value = 1 Then If mm = "" Then MsgBox "请先设置密码,才能使用本功能!", vbCritical: biedong.Value = 0: Exit Sub haha (mm) If gaga = True Then If (MsgBox("注意!点此选项将使电脑键盘被锁定!只有小键盘的数字键和回车可以使用!请按热键Alt+5来解锁!（小键盘的5）", vbExclamation + vbOKCancel, "警告") = vbOK) Then Timer1.Enabled = True Dim hwnd As Long hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hwnd, 0 Dim Thwnd As Long Thwnd = FindWindow("Shell_traywnd", "") 'Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) bd = True Command1_Click Check91.Value = 0 Check91_Click Check100.Value = 0 Check100_Click Check101.Value = 0 Check101_Click lalt.Value = 0 ralt.Value = 0 lalt_Click ralt_Click Dim hKey As Long RegCreateKey HKEY_CURRENT_USER, "Control Panel\Desktop", hKey RegSetValueEx hKey, "ScreenSaverIsSecure", 0, REG_SZ, ByVal "0", 13 Me.Hide MsgBox "电脑锁定！", vbExclamation Me.Show Check101.Value = 1 Check101_Click Me.WindowState = 1 Me.Hide Else biedong.Value = 0 End If Else MsgBox "密码中包含非数字字符！必顺为纯数字型密码！否则电脑锁定后非数字字符无法输入从而无法解锁！", vbCritical: biedong.Value = 0: Exit Sub End If End If

上一个：vb使用API的问题
下一个：VB中的小问题