说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料

Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private TaskBarhWnd As Long
Private IsTaskBarEnabled As Integer
Private TaskBarMenuHwnd As Integer
'禁止或允许使用 Alt-Tab
Sub FastTaskSwitching(bEnabled As Boolean)
Dim X As Long, bDisabled As Long
bDisabled = Not bEnabled
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
'禁止使用Ctrl-Alt-Del
Public Sub DisableTaskBar()
Dim EWindow As Integer
TaskBarhWnd = FindWindow("Shell_traywnd", "")
If TaskBarhWnd <> 0 Then
EWindow = IsWindowEnabled(TaskBarhWnd)
If EWindow = 1 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 0)
End If
End If
End Sub
'允许使用Ctrl-Alt-Del
Public Sub EnableTaskBar()
If IsTaskBarEnabled = 0 Then
IsTaskBarEnabled = EnableWindow(TaskBarhWnd, 1)
End If
End Sub

禁止 Ctrl+Alt+Del
声明(For Win95):
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
使用:
'禁止
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
'开启
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
如何使用15美元每月的机器实现百万文档检索 外媒路透社:小米本周四发布首款平板电脑,八九不离十 移动支付帝国战:谷歌、苹果、Facebook、亚马逊孰胜孰负? 十大响应式Web设计框架 Giraph助力Facebook打造亿万用户间关系链 跪求出名:让应用在App Store中出人头地的12种方式 束文辉:Intel如何玩转OpenStack Facebook社交业务进军中国内地,困难重重 《近匠》透镜:代码级定位,让App性能监控更从容! 联想移动与云新战略 重点深耕企业移动方案 美国高通公司在深圳召开参考设计及无线创新峰会 提供“一站式”整合服务 友盟正式推出消息推送平台 iOS 8新功能再曝光:或推出分屏多任务功能 Framer:开源原型设计工具,巨头们的心头好 亚特兰大峰会精彩看点:软件吞噬世界,OpenStack是变革核心 数据中心基础设施是大数据战略成败的关键 实时大数据分析:网络分析的一种新方法 最新消息:iPhone 6将采用更大、更清晰的1704x960分辨率屏幕 吴毅挺:OpenStack是开源IaaS平台大势所趋的集大成者 做好扁平化设计-交互篇 狙击Google Glass?三星将推基于Tizen系统的Gear Glass GamePlay:跨平台开源3D游戏引擎,黑莓的努力你不懂 “少即是多” 高通QRD大会精华汇总 天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 弥补空缺!HappyFox面向iOS开发者发布开源移动HelpDesk SDK Chitika北美网络流量报告:WP KO黑莓、iOS超Android 《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 有关在button中增加图片的简单问题,在线等待 高分求codeWizard和C++Test的license SQL中,INT型是不是只能有4位数?我作的记录点击数反正不能突破一万,要将INT型改为什么型? url傳遞參數變量及Form表單提交問題? 人民币购买房产测绘代码 关于sql的身份验证问题? PC和PS/2鼠标如何通讯? 那位大虾有小写金额转换为英文大写金额的程序? 各位大俠幫幫忙,請問如何將金額的數值轉換為英文的大寫,急線上等待! 如果给定一个表名,怎样知道数据库中这张表存在与否? 双喜临门,激动不已啊... 不能在sql语句中调用字符串处理函数,怎么办? 在WAS4.0 AE控制中,启动应用程序服务器的时候,没有装入相应的 Web 模块,为什么? url傳遞參數變量及Form表單提交問題? 关于声音频率 有关数据库的问题,请不吝赐教 怎样将16进制的转成Unicode? 我的XP不能被局域网内其他用户访问 只提一条记录的问题!! 为什么我的ServletContext会出错呢? 上传看不到主页啊???web.config vb+asp.net 很急,在线等待 網頁url傳遞參數變量及Form表單提交問題? 50分! 又是字符串,怎么总与我过不去 怎样把文件写入服务器端中映射的驱动器中,急 在线等。。。 [我贴我灌]世锦赛罗雪娟夺第三金 关于用户离职和升级后的处理? 代码问题,高手进 急,在线等待 DNS服务器的问题,高手救命!!!问题解决不了,老板要我走人了!!!!!(痛哭中 &&&&&&&&&) 鼠标当前位置的值与窗体位置如me.left 的值是怎么样换算的? 英文OS,我加一个中文字库,我要在我的程序中显示中文,该做些什么? 一个硬件问题,来看看吧!问了好多人多不明白 bcb6自带的install??? 简单要求 CSDN出的《JBuilder实用技术手册》到底怎么样呀?我看目录怎么像垃圾? 在jsp怎么取得用javabean连接得数据库中得记录总数 请教各位大师,如何用VB做一个象ComboBox一样的控件 web Service里的Application的问题 有没有能够打印固定行数的报表? 对XML不太熟悉,麻烦大家再看看! 关于bho及控制ie行为的问题, 如何动态的设置datawindow的计算域的表达式,及从程序中如何得到该计算域的值 [我贴我灌]巴塞罗那凯旋归来 “花样姑娘”泪洒观澜湖 一个到现在还没有解决的问题!我着急用啊!请哪位高手帮忙解决了,有高分相送! WIN32 CONSOLE APPLICATION 中怎么调用DLL (动态连接库) 怎么增加不了行,插入不了了?请大虾给个提示 50美元求作业! 如果没有学过C语言,能不能学J2SE啊? 100分请教:一个串行接口通信的问题————在线等待?!!!! 从一种群中随机抽出一定数量个体,其中基因型AA的个体占24%,Aa占72%,aa占4%.请问基因A和a的频率分别是 为什么将电导度的测量和糖的显色反应一并进行测定? 1、植物体内自由基是如何产生的?有哪些种类?(简答)2、植物体内清除自由基的机制有哪些?(简答)3、影响本实验(超氧化物歧化酶活性测定)准确性的主要因素是什么?应该如何克服? 我们要考植物生理了,有个题是叶片变黄的原因.谁有准确的答案啊 心脏的四个腔分别和什么相连? 在声音的世界里 读后感 字数500字以上!6点之前回答的话 ‘榧’怎么念? 佛教徒见到动物将被杀不能救 能做什么 两辆汽车分别从A城和B城同时相向而行,甲车每小时行63千米,乙车每小时行47千米两辆汽车分别从A城和B城同时相向而行,甲车每小时行63千米,乙车每小时 行47米,甲汽车途中因事耽误2小时,在离AB 两辆车分别从A城和B城同时相向而行,甲车每小时行63千米,乙车每小时行47千米,甲汽车在途中因事耽误2小时,在离AB全程中点15千米处和乙车相遇.求AB两城公路长多少千米? 拍案叫() ()无仅() ()口难() ()过其() ()心实() ()气风() 俄罗斯达吉斯坦共和国首府爆炸致1死8俄罗斯举行核遏制力突击战备演练精品画展向英国人展示中国水墨艺术的旧“被遗忘的天才”画展展现卡斯蒂廖内出未成年怀孕现象堪忧 每年700万少女巧克力为何充满魔力新华网:全方位织牢安全网 让困难群众商务部:美方频繁发贸易救济调查 望采国务院:建立城乡特困人员供养制度 覆揭甘愿下嫁“穷小子”的女星(组图)小贝卖萌嘴允小七公主奶嘴(组图)继手机之后,联想也要把智能电视业务“金融女、IT男“吐槽”平均工资云南白药的股价竟然涨了那么多?王思聪微博晒乐视超级手机,称比锤子好地方频出手 财政部喊话支持稳增长股民绝望 把赚到手的房子给赔出去了!支持手机预约在线点歌 微信智慧KTV被宠坏的“高危险群”下周一大盘走势将亮瞎散户双眼?涂辉煌:加息在即金银大胆抄底民众反映突出问题当成医改重点
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘