本文主要是介绍VB屏蔽特殊键CTRL,ALT,DEL以及任务管理器,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
一,屏蔽特殊键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
这篇关于VB屏蔽特殊键CTRL,ALT,DEL以及任务管理器的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!