禁用Alt-Tab或Ctrl-Alt-Del

2016-02-19 16:29 14 1 收藏

想不想get新技能酷炫一下，今天图老师小编就跟大家分享个简单的禁用Alt-Tab或Ctrl-Alt-Del教程，一起来看看吧！超容易上手~

【 tulaoshi.com - 编程语言】

PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsInteger
　　PrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsInteger
　　PrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsInteger
　　PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
　　PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
　　PrivateTaskBarhWndAsLong
　　PrivateIsTaskBarEnabledAsInteger
　　PrivateTaskBarMenuHwndAsInteger

'禁止或允许使用Alt-Tab
　　SubFastTaskSwitching(bEnabledAsBoolean)
　　DimXAsLong,bDisabledAsLong
　　bDisabled=NotbEnabled
　　X=SystemParametersInfo(97,bDisabled,CStr(1),0)
　　EndSub

'禁止使用Ctrl-Alt-Del
　　PublicSubDisableTaskBar()
　　DimEWindowAsInteger
　　TaskBarhWnd=FindWindow("Shell_traywnd","")
　　IfTaskBarhWnd0Then
　　EWindow=IsWindowEnabled(TaskBarhWnd)
　　IfEWindow=1Then
　　IsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)
　　EndIf
　　EndIf
　　EndSub
　　
　　'允许使用Ctrl-Alt-Del
　　
　　PublicSubEnableTaskBar()
　　IfIsTaskBarEnabled=0Then
　　IsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)
　　EndIf
　　EndSub
　　
　　'禁止Ctrl Alt Del
　　'声明(ForWin95)：
　　
　　ConstSPI_SCREENSAVERRUNNING=97
　　PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong
　　使用：
　　'禁止
　　DimpOldAsBoolean
　　CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)
　　'开启
　　DimpOldAsBoolean
　　CallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)

来源:http://www.tulaoshi.com/n/20160219/1612255.html

上一篇：编写可在线收发E-mail的Java Applet
下一篇：给系统瘦身上清除缓存的文件图

看过《禁用Alt-Tab或Ctrl-Alt-Del》的人还看了以下文章更多>>

如何关掉Ctrl+Alt+↓(方向键)转屏功能

标签：电脑入门

如图桌面右击 - 图形选项 -快捷键- 禁用

win7屏蔽ctrl+alt+up/down快捷键

win7屏蔽ctrl+alt+up/down快捷键 Eclipse有个非常好用的快捷键(当然Eclipse好用的快捷键有N个)Ctrl+Alt+UP/DOWN，用于复制当前行的内容，用法很简单，将光标置与要复制的行任意位置，然后按快捷键Ctrl+Alt+UP/DOWN(UP、DOWN分别对应与键盘的上下键按键)，将分别在当前行的上一行或者下一行复制一行当前的内容，复制后光标位于复制后的行内...

按键测试支持像 Ctrl+Alt+Shift+T 的组合键

标签： Web开发

按键测试，支持像 Ctrl+Alt+Shift+T 的组合键（注：非浏览器热键）

电脑键盘Alt键使用技巧

标签：电脑入门

1. 打开控制选单在应用程序中，按下Alt+空格键可以直接打开系统控制选单 2. 撤消上步操作在Windows 98的各个对话框中，凡是对编辑框的操作都可以通过Alt+Backspace键来撤消，其效果和Ctrl+Z完全一样。该功能同样适用于微软的各字处理软件，如记事本、书写器、WORD等。另外，也可用该组合键来撤消文件移动或重命名等文件操作。 3. 万能抓...

win7 Ctrl+Alt自动按下的问题的解决方法

标签：电脑入门

win7 Ctrl+Alt自动按下的问题经常写码的时候，浏览网页的时候，滚动鼠标滚轮字体就放大缩小了。或者，按其它键就莫名其妙打开一些窗口或者关闭一些窗口，很是郁闷。后头才发现是win7的ctrl键或者alt键自动按下了。一直没找到解决办法和原因，据说是win7的一个补丁引起的。也有说输入法快捷键问题的，总之应该是快捷键冲突。我也尝试了卸...

查看更多精彩>>