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

禁止使用 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)
$.ajax(properties)-JQuery API $.ajaxSetup(settings)-JQuery API $.ajaxTimeout(time)-JQuery API $.get(url, params, callback)-JQuery API $.getIfModified(url, params, callback)-JQuery API $.getJSON(url, params, callback)-JQuery API $.getScript(url, callback)-JQuery API $.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API loadIfModified(url, params, callback)-JQuery API serialize()-JQuery API Accordion(settings)-JQuery API activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API outerWidth()-JQuery API scrollLeft()-JQuery API scrollTop()-JQuery API 数据窗口有bh(编号),name(名称)两列,编号是string型,用什么方法可快速查找出bh中的最大值?只准对数据窗口操作。 delphi(dll) 大话爱情大结局 ??如何编写邮件服务器? createfont怎样创建一个随意宽高的字体? 急,请问有函数可取字符串后面N位字符吗?在线等待 怎样显示报表页总数问题 在打印中如何实现实现小计(即每页显示金额的总和)100分 问一个简单的问题,关于初始化 请问谁有动态树状目录的原码啊,急需!! 什么问题,怎么解决? 西瓜:有人要求我贴你的没穿外套没穿鞋子的照片 就是你说生气的那张 贴不贴啊? 怎样将一个十进制数转换为二进制数,并将二进制数中的每一位单独取出来? GetProcAddress在VB中的使用? excel单元格格式问题 用按钮保存网页的问题 用c++ builder和access.数据表中的记录多了之后,应用什么方案将之备份以及恢复? 以下ASP在Win2000server上运行报错请问大家为什么??? 在指定位置输出文本 怎么办? 如何启动和终止一个NT服务 .Net——又一个起跑线 怎么样注册jsp上的jdbcoracle驱动 什么问题,怎么解决? 我的爱情大结局----失败爱情原闯文章 在学习了2个月的delphi后,总结四大问题! OnPaint()的问题?为什么我的程序要刷很多次才能得到正确的结果? win2000 Server中的终端服务问题,急,所有的终端都趴下了! 深入浅出MFC 100分﹕vs.net正式版的產品密鑰 怎样动态改变下拉框中的值? 如何将已有的程序(有源程序)封装成ActiveX控件? 讨论一个数据库建模的使用工具问题? 关于Flash的Action的小问题 怎样为xslt中的超联接加上参数? 问题 如何设置datagrid行背景颜色? 安装程序安装完运行显示“运行时错误'380':无效属性值”是怎么回事? win2000+ms proxy 2.0问题 API函数 ReadFile的pb的中文说明谁有,告诉我好吗? 在线求助 在线等待,急 关于计算字段,急! datawindow的scrollvertical.setrow,不能触发rowfocuschanged事件,why? help:can you tell me how can i get the IDE of WinSDK? 有些人的言论很具有误导性,根据今年的就业形势,软考证书还是比较值钱的 请看这段代码?谢谢 怎样删除session变量?? 求购POS机!!! 请问应该怎样学习COM技术? 求购POS机 如图,从无阴影的正方形中选一个,与图中5个有阴影的正方形折成一个正方体的不同选法有( ) 由几个完全相同的小正方形组成的图形,能否折成正方体求方法 聪聪和明明拿同样多的钱去买笔,聪聪买了12枝,明明买了8枝,钱正好用完,回家后,聪聪给了明明10元,每支笔多少钱? 请你自定方案,测量假期中每天上午9点的风向,作好记录.我想问的是,谁能够提供一下1月25日~1月31日的风向,我前面还没有做到,所以没有仔细看题目,现在我一个朋友问我这个问题,好的有重赏! 《书虫英汉对照读物》的读后感两篇,最好有中文对照! 请问书虫.牛津英汉双语读物(美绘光盘版)与非美绘版有什么区别? 红光小学五年二班选两名班长.投票时,每个同学只能从四个候选人中挑选两名.这个班至少要有多少学生,才能保证有8个或8个以上的同学投了相同的两名候选人? 选择:5个同样大小的正方体组合成一个图形,无论从哪个位置观察都至少能看到( )个正方形.①1 ②2 ③3 五个同样大小的正方体组合成一个图形,无论从哪个位置观察只能看到 某班选两名班长,投票时,每名同学只能从4名候选人中挑选3名,这个班至少应有多少名同学才能保证至少有8名同学投了相同的两名候选人的票? 如图,共有12个大小相同的正方形,其中阴影部分的5个小正方形是一个正方体的表面展开图的一部分,现从其余得小正方形中任取一个涂上阴影,能够成这个正方体的表面展开图的小正方形有几个 5个同样大小的正方体组成一个图形,无论从哪个位置观察都至少能看到几个正方形? ,答案1个5个同样大小的正方体组成一个图形,无论从哪个位置观察都至少能看到几个正方形? ,答案1个 为 某班要从11名侯选人中投票选举1名班长.如果没名同学只能投票选1名候选人,哪么这个班应该有多少名学生.才能保证必有4名或4名以上的同学投相同侯选人的票 要有算式 深圳报业集团2013寒假作业七年级上册英语答案 用5、6、7、8、9五张卡片,任意组成的五位数是单数的可能性是( )我知道答案是3/5,我要的是运算过程和理由. 给你这个图形的三视图,如何知道这个几何体有几层?如何球这个几何提示有多少个立方体组成的希望可以给我帮助啊 如图是5个大小相同的正方形组成的图形能否用一条直线将图分成面积相等的两部分(两种)图形:一个大正方形(是四个小正方形组成的)右上方还有一个小正方形 用5、6、7、8、9五张卡片,任意组成的五位数是奇数的可能性是(). 已知一个立体图形(由大小、形状完全相同的小正方体组成)的正视图和俯视图(三视图里知道两个)请问这个立体图形最多由多少小正方体组成?最少?具体说来,是解题的基本策略。 体育室有篮球21个,足球的个数比篮球个数的3倍少8个,又比排球个数的2倍多5个,那么足球和排球各几个?列方程解应用题 设x. 用5.6.7.8.9卡片,任意组成的五位数是单数的有kuai 怎样由三视图判断几何体或几何体组成的小正方体个数?别用什么层、列、行的,我看不懂,最好有图,三视图这一块我一窍不通啊!我的意思是由主视图,左视图画俯视图或由主视图俯视图画左 体育室有篮球21个,足球的个数比篮球个数的3倍少8个,又比排球个数的2倍多5个,足球和排球各有几个?要列方程的 5,6,7,8,9.5个数字任意组成5位数是单数的可能性是几? 2014七年级寒假作业答案? 体育室有篮球21个,足球的个数比篮球个数的3倍少8个,又比排球个数的2倍多5个,那么足球和排球个几个?(方程) 4、8、9三张卡片组成三位数是奇数的可能性是多少? 2014寒假作业答案七年级 书虫·牛津英汉双语读物:曾达的囚徒答案 书虫牛津英汉双语读物的MP3的朗读者都是地道的英式发音吗? 聪聪同学做了这样一个游戏,她在地上任意画个△ABC(如图所示),并作出了∠A的平分线与BC的垂直聪聪同学做了这样一个游戏,她在地上任意画个△ABC(如图所示), 并作出了∠A的平分线与BC 轻松快乐过寒假六年级上的英语教教我!练习八的第二大题,练习九的第一、二大题,练习十的第一大题,练习十二第一、二大题,练习十四的一、二、四大题,练习十五的第一、三大题. 2012年小学五年级寒假作业数学部分答案 电子跳蚤游戏盘是如图所示的三角形abc电子跳蚤游戏盘是如图所示的△ABC,AB=AC=BC=5.如果跳蚤开始时在BC边的P0处,BP0=2.跳蚤第一步从P0跳到AC边的P1(第1次落点)处,且CP1=CP0;第二步从P1跳到AB 请问:轻松快乐过寒假六年级国标版的英语答案您有吗? 聪聪和明明在商店买同样的笔记本,聪聪买了四本,共花了2.4元钱;明明买了6本,共花了3.6元钱.聪聪和明明买笔记本本数之比是():(),比值是();花的钱数之比是():(),比值是(). 由五个正方体拼成的立体图形,从上面看到的形状是横着的三个正方形,从侧面看到的形状是竖着的三个正方形那么从正面看到的是什么形状 聪聪说我4分钟跑了1200米,明明说我6分钟跑了1800米.用以上4个数据,组成比例 聪聪书本数的2/1是5本,明明书本数的3/1是5本,猜猜他两的各书本数是多少? 一个立体图形,从上面看的形状是4个连着的小正方体(两横两竖),从正面看的形状是竖着两个,横着1个.最多需要几个小正方体,最少呢? 聪聪4分钟跑了1200m,明明6分钟跑了1800m.用以上四个数据,能组成几个比例?请写出来.注:比例和比不同,例:4:1200=6:1800 2012九年级国标版轻松快乐过寒假 用四个正方体拼成一个图形,使之从某一个方向看到的形状是两个横着的并排正方形 聪聪和明明同算两数之和,聪聪得685,计算正确;明明得280,计算错误,明明所以算15分钟内有奖金!100这里连着问题 错的原因是将其中一个加数末尾的0漏掉了.你知道两个加数各是多少? 聪聪和明明两人共有200元压岁钱,如果聪聪给明明15元钱,则明明与聪聪的钱数比为11:9,明明原来有多少钱 明明和聪聪每人有30张卡片,明明给聪聪5张后,聪聪比明明多多少张? 书虫英汉对照读物的书目 聪聪用压岁钱的一半买了一个新书包,又用剩下的一半买了几本文艺书,还剩15元,聪聪的压岁钱一共有多少元 想写一篇作文的提纲 写人作文的不要太长 明天就要用 今天,刘慧,靳娇和婉玉来到我家.因为我在学校常常和他们玩,也算是死党了!所以,我们马上“嘻嘻哈哈”的疯成一团……今天,我就为大家 2013级八年级上册英语书是什么版本的 如果可以的话希望能把2013级八年级上册英语单词带汉译(最好有音标)发给我 八年级上册青岛出版社物理新课堂答案 六只篮球队,若采用主客场双循环比赛.则需要安排比赛的场次为? 2013年英语书上册的在哪儿可以买啊!急用! 平移前后图形的形状()、()改变了 六个篮球队进行单循环比赛,每两队都要赛一场.如果踢平,每对各的一分,否则胜队的3分,负队的0分.现在比赛已经进行了4轮(每队都已与四个队比赛过),其中有四场球赛踢成平局,并且各队四 5个同样大小的正方体组成一个图形,无论从哪个位置观察都能至少看到( )个正方形?为什么5个同样大小的正方体组成一个图形,无论从哪个位置观察都能至少看到1个正方形呢? 优+学习方案 第28页 图形经过旋转和平移后图形的形状( ),大小( ),位置( ) 求 “书虫· 牛津英汉双语读物《 园会The Garden Party and Other Stories 》 的读后感作者大卫·科波菲尔 David Copperfield 5个同样大小的正方体组成一个图形,无论从哪个位置观察都至少能看到几个正方形? 观察平移后图形顶点的位置,你发现了什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘