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

禁止使用 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)
孙小群:将SAP HANA打造为开放的PaaS平台 GitHub推出重大改进:强调速度、内容和交互性 如何打造测试工程师精英团队? 如何做个有“钱”途的测试工程师? 苹果开始关注企业移动化 iOS 7的10大办公功能 “开源群英会2013” 参会名单(持续更新中) 微软Builder2013前瞻 主打跨平台工具及服务 CMDN 29期:软件测试与管理之路 微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 Mailbox:六星期实现从零到百万用户及日处理亿条消息 代码审查,也要天时地利人和 Clash of Clans产品总监:游戏中的商品定价一开始就要高 移动互联网最核心的竞争是:设计的竞争 【直击美国云计算】面对AWS,VMware不会畏缩 美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 专访阿里前端工程师:淘宝移动Web开发那些事儿 【直击美国云计算】为什么eBay用燃料电池来驱动他的犹他州数据中心 【直击美国云计算】6周发布新产品,LinkedIn的trunk-based开发 移动周报:疯狂吐槽还是更得欢心?细数iOS 7的是与非 国内最受欢迎的开源项目集锦 开始3D编程前需注意的十件事 [CTO俱乐部第100期]软件平台的新思维及2345技术团队管理经验分享 失败怪圈:今天的移动App在重蹈1999年的覆辙 极客编程必备的五大PHP开发应用 xp系统问题!高分等答案 pl/sql中函数与过程有什么区别 关于事务 LIB 在线等!!!!!!!! ADO+SQL Server 如何用VB编写发邮件的程序? 数据库搜索的一个怪问题 怎么得到从另一个页面传来的参数 Full Text: Bush Speech Aboard the USS Abraham Lincoln 请问 怎么实现变量互换阿 我是新手~~~ FAT错误,请问如何修复? flashget那个小方框怎么做? 谁有《UML与Rational Rose2002从入门到精通》书的选配光盘 急!!!随机函数 FAT错误,请高手帮忙修复。 内部消息(我对我说的负责) 不定时开放FTP服务器 急,求救!!! 一个很简单的问题. 为什么 “基本图象处理代码(1) ehom(原作)”对grayscale不对? linux下的oicq 有马? 帮帮我,好吗,感谢,非常 help,help,sql query question? 大家认为考研考进其他学校(且跨专业)的可能性有多大 显示图片 数据库搜索的一个怪问题 共享上网问题!急~!!!! 句柄和指针有什么区别吗? 大虾快进来,帮帮兄弟们!!!再现等待!高分!! 请问C++Builder的程序中能不能使用*.mdb类型的数据库? 帮帮忙!!个位大哥 请问用java编程能实现数据采集的程序并进行传输(即c/s模式)吗? 请问什么命令找开一个窗体的? 请问:如何从文件中获取icon并得到HBITMAP句柄? 如何在客户端打开一个word文件 MVP是个什么概念???? linux启动不了,Bringup loopback interface时出错,请问是什么原因? 帮帮忙!! 我海军一艘潜艇失事 70名官兵不幸全部遇难!! 明天朋友结婚,征集整人的法子 是谁删除了我贴?? 而且没有跟我说一声!!! 白天工作,晚上溜狗,爽呀!比大暑天喝了冰镇雪碧还爽! 我的jsp服务器是iis+TOMCAT+win2000pro 不知怎的每次用不了多久就显示出 网页无法显示 目前访问该 Web 站点的用户过多,我只是自已用怎么 终于有星了,高兴,散分(第一次散分,请斑竹手下留情) 我的刚装的2000进入启动界面时,进度条读到2/3时就蓝屏了! 请问在运行时向ActiveX控件中添加ActiveX控件的方法是什么? 高手请进:如何在WinNT以上系统进行BIOS读取! 毕业设计的问题,请各位大哥帮小弟一个忙 备份与恢复 数据备份与恢复 我用win2k,下载了php4.3.1,extension_dir是c:\php\ext 可是里面没有php_gd.dll,怎么办,到哪里可以down一个补上? 亚买爹什么意思 小明家进行装修,厨房用边长0.2米的方砖铺地需要200块,客厅面积是厨房的3.6倍,客厅面积是多少 要分步的 成行的 带单位的 李叔叔平均一步长约70厘米,他绕着一块长是宽2倍的长方形的边沿走了一圈,正好走了900步.求地的面积? Two teaspoons should_____enough. 小屁孩日记4的主要地点有什么 一种香菇的含水率为80%,烘干后还剩( )% M100甲醇汽油低温能使用吗 小屁孩日记的四本都讲了什么从第一本开始到第四本,一本一本讲,这本都讲了什么, 有一块正方形地,边长是20米,在它的中央有一个圆形花圃,直径是8米,现在要在花圃周围修一条最宽的环形路,剩下部分种草,求路的面积和种草部分的面积. 梦到和猴子吃东西梦到我和猴子吃一个东西 帮忙翻译这个单词 一块正方形田地,边长为20米.在它中央有一个圆形花圃,直径是6米,在它周围修建一条最大的环形走到.剩下的四四个角也建成花圃,花圃的总面积是多少? 猴子先生还在哦吗 英语翻译 有一块正方形地,边长是20米,在它的中央有一个圆形花圃,直径是8米,现在要在花圃周围修一条最宽的有一块正方形地,边长是20米,在它的中央有一个圆形花圃, 直径是8米,现在要在花圃周围修一 猴子吃辣椒—( ) 汽车以1米每二次方秒的加速度启动,同时车后60米初有一人以一定的速度V0匀速追赶要 有一块边长是8米的正方形的地,在它的中央有一个圆形花圃,直径是6米,在花圃的周围建一条最大的环形在花圃的周围建一条最大的环形走道,剩下的四个角,种植成草地.求建成的环形走道的面 猴子吃辣椒——抓耳挠腮的意思它的意思~就是为什么这么说- - 写一篇英语作文,要求:写自己喜欢的运动 有一块正方形地,如图所示,边长是30米,在它的中央有一个圆形花圃,直径是20厘米.现要在花圃周围修筑一条最大的环形石子路,请你在图上画出这条环形路,并求出环形路的面积. 孙猴子吃仙桃—( )范进中举—( )烂网打鱼—( )猴子吃辣椒-()帽子烂了边-( ) 黄鼠狼的药用价值 新鲜香菇的含水率,和香菇的成熟度有什么关系?是不是越成熟含水率越高? 排球有几种颜色? 问题:黄鼠狼肉有药用价值吗 修 改病句制度的优越、国力的强大是中国撤离在利比亚人员行动能否取得成功的坚实基础.学校开展的“感恩、奋进”活动,掀起了同学间互帮、互助、互学、互进,增进了彼此的友谊. 问:排球技术有几种?分别是什么? a cup oftea和a glass of milk还有He is 先回答的是最佳 这片土地是圣神的 悠悠球洗轴用汽油怎样洗轴? 萧山游乐场内有一块半径为5米的圆形空地,先计划在他的中央修建一个半径为3米的花坛,剩余部分铺成观光路求观光路的面积 这片土地是圣神的主要内容 悠悠球用汽油洗轴洗完轴晒干后 加润滑油吗 游乐场里有一个圆形湖,湖内有一圆形湖心岛,最初岛的面积是环岛水面面积的1/3,由于旅游的需要,湖心岛进行了扩建,面积增加了3454平方米,此时岛的面积占整个圆形湖面积的9/25,则圆形湖的周 he still hasn't got used to___ (live) in the city since he came here 3 years ago. 甲醇汽油低温能用吗?比如零下几度还能用 A :Do you happen to know what's on after the news B:--------------------------------A :Do you happen to know what's on after the news B:--------------------------------------------a there is no important news after that.b it's a documentary about ani 她有一张小嘴 用英语怎么说急 关于对待困难的成语和名言成语四个名言两个 厚的四字成语 我有一个樱桃小嘴英语怎么说? 描写困难的成语有哪些 我梦到牵着一只猴子,还拿鞭子打它 干香菇大的好还是小的好 英语翻译如下:贵州省贵阳市富水中路天业大厦B栋8楼"贵州华祥矿产有限责任公司" 梦见猴子:梦到老公被猴子咬到,而我在拿着鞭子追打猴子 无法拍摄的情况,我要一个科学的解释.我要的是自然或物理现象!( 拍摄工具正常,用法正( 拍摄工具正常,用法正常,对面的人正常) 我想问的不是怎样拍好而是怎样干扰 英语翻译“我将负责和你的部门联系” 汽车以1m/s∧2的加速度启动,同时车后60m远处有一人从一定的速度v.匀速追赶车停下,已知人在离车距离小于20m,持续时间为2s喊停车,才能把信息传给司机,问(1)v.至少要多大?(2)如果以v.=10 懂鸟类的朋友来帮下忙!看看这是什么鸟! “有句话说” 用英语怎样翻译比较好 把下面的单词(20个)翻译成中文1. Honey Apples2. Pork Egg Rolls3. Chicken Egg Rolls4. Chinese Tofu & Broccoli Egg Rolls (Vegetarian)5. Chinese Vegetarian Egg Rolls6. Chinese Potstickers7. Melon Shells Filled with Fruits8. Red Bean Soup9. 液压缸下坠 You should pour two cups of yogurt into the blender.(改为祈使句)() () cups of yogurt into the blender. 英语翻译public limitations on land 干香菇的利润怎么样 To know her is to like her.翻译下 Find a good way to the end,don`t worry about the 香菇干怎样弄干的 美军无人机空袭巴基斯坦超过20人死亡土库曼斯坦总统力推与中国开展能源合作超1/5东日本大地震复兴预算被用于与日媒称日本也是美国情报机构监控对象洛杉矶国际机场因枪击案关闭近7小时后超1/5东日本大地震复兴预算被用于与美国83岁珠宝大盗偷走2万美元戒指被美军无人机空袭巴基斯坦超过20人死亡袖珍王国中的金融帝国——列支敦士登的万圣节女王超模克鲁姆逼真扮老 全身老2013国际变性人选美决赛在泰国落幕美国83岁珠宝大盗偷走2万美元戒指被三起编造虚假恐怖信息威胁民航安全案件美国83岁珠宝大盗偷走2万美元戒指被惠誉上调西班牙国债评级展望土库曼斯坦总统力推与中国开展能源合作六千多粉丝离奇消失 委内瑞拉总统谴责南京市江堤坍塌 水利局被质疑是工作疏中国民间玩具登陆莫斯科印度开建“全球最高”塑像 呼吁民众捐卓别林之子尤金·卓别林:杂技演出获得深圳鲜花朵朵开 芊寻带你看个遍!最全甜美减龄清新搭配,复苏了你的公主心!阿三欢乐多:海军自残能力超越空军!这个周末万宝之争终局浮现?“香水有毒” 过敏体质者慎用!世博高新医院引进医科达直线加速器 提张世模辞任重庆市酉阳县人大常委会主任石霜玲:明天仍可再现买点明日关注这一关键点位,突破必有惊喜!内幕!反复遇阻2900另有玄机,A股闫希军代表:应让更多药品进入医保目录上身是蕾丝,下身是繁华,这个春季就要大盘短期升势是否已经确立?中国股市为何如此任性?原来这才是真正明日大盘走势预测:锁定三大炒作线路线穿上美裙,离仙女的道路又进了一步!室内田径世锦赛名单出炉 苏炳添领衔中旺堆代表:把林芝建设成国际生态旅游区民政部:未来五年将培养近百万专业社工穿衣助手CEO顾莹樱入选2016年最琪琪的冰岛之旅(生活篇)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘