一,屏蔽特殊鍵CTRL,ALT,DEL
[quote]
'屏蔽特殊鍵
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const MOD_ALT = &H1
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
'以獨佔方式打開任務器,以達到禁止任務管理器的目的,或重命名該文件[包括備份目錄下同名文件]
Shell "taskkill /f /im taskmgr.exe"
Open Environ("windir") & "/system32" & "/taskmgr.exe" For Random Lock Read As #1
'屏蔽特殊鍵
SystemParametersInfo 97, 1, 0, 0
'恢復過程略
[/quote]
屏蔽輸入。
[quote]
'具體的鍵碼,請查看相應的代號...
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Integer = Asc(e.KeyChar)
Select Case keyascii
Case Is < 32
...
Case 65 To 90
...
Case 97 To 122
...
Case Else
keyascii = 0
MessageBox.Show("登陸名,只能是英文字符!--謝謝合作!", "人事管理系統--信息提示!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
End Sub
[/quote]
二,屏蔽任務管理器[CTRL+ALT+DEL組合鍵等]
爲了防止再次打開任務管理器,我們先以獨佔方式將taskkill.exe打開,解鎖時候關閉該進程即可
補充[轉]:
有些用戶安裝迷你版的VB6後再使用不是迷你版附帶的控件(如mswinsck.ocx)時可能會出現:
“該部件的許可證信息沒有找到,在設計環境中,沒有合適的許可證使用該功能”
下載本軟件解壓到某一目錄下之後運行VBC6.exe就可以了。
下載鏈接:http://blog.cnii.com.cn/?92337/viewspace-15802.html