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

VB如何检查您的电脑是否打开 ActiveDesktop?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何检查您的电脑是否打开 ActiveDesktop?
版本:VB6 / VB5 / VB4-32

在 IE4 及 IE5 中都有提供使用者选择是否安裝 ActiveDeskTop 的功能,這个我们在 VB 中也可以检测出來的!

首先,在表单声明区中声明以下二个 API Function:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

接着,继续在表单声明区中加入以下模块:

Public Function ISActiveDesktop() As Boolean
Dim retVal As Long
retVal = FindWindow("Progman", vbNullString)
retVal = FindWindowEx(retVal, 0&, "SHELLDLL_DefView", vbNullString)
retVal = FindWindowEx(retVal, 0&, "Internet Explorer_Server", vbNullString)
If retVal > 0 Then
ISActiveDesktop = True
Else
ISActiveDesktop = False
End If
End Function
接着,在表单的 Form_Load 事件中加入以下程序代码:
Private Sub Form_Load()
If ISActiveDesktop = True Then
MsgBox "您已打开 ActiveDesktop", 64, "检查 ActiveDesktop"
Else
MsgBox "您并沒有使用 ActiveDesktop", 64, "检查 ActiveDesktop"
End If
End Sub
从手势识别到增强现实,开发实感应用该了解的技术细节 福利来了,爱拍原创免费为iOS版手游制作宣传视频 【工具推荐】Zrender——轻量级Canvas类库,让绘图大不同! 基于Docker和CoreOS的开源PaaS平台——Deis v1.0正式发布! 微软宣布.NET开发环境开源 支持三大操作系统 爆发吧,诺基亚!前员工开发物联网新设备 详解Visual Studio Emulator for Android,微软的Mobile First! HPC China 2014完美落幕,AMD Firepro荣获好评! 揭秘微软的Container技术之一Drawbridge AWS副总裁谈数据中心网络打造 【最具价值CTO评选秀】出门问问CTO雷欣:从技术极客到核心管理的秘密 《近匠》APICloud:“云”+“端”一体的移动API提供者 Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 参与2014中国大数据行业大调查 BDTC门票等你拿 HTML5规范尘埃落定,5个开发工具推荐 盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 《近匠》亲加通讯云:IM即时通讯API的极致服务者 TCL杯HTML5智能电视开发大赛完美落幕,8项获奖应用大揭晓! 关于新闻发布时内容显示的问题 请教Tab Control的使用 microsoft jdbc for sqlserver2000 result 如何将指针移到首位!!在线等急!!! 谁有CVS下载?我去官方网站的下载,根本没有安装文件。 JSP中新建文件夹的问题 关于地图的问题,谁能解决啊? 怎样获取点击或按下winform上 [×]按钮时的事件 在服务器端执行一个 在客户端弹出对话框的程序? 如何不让局域网上的其他机用二级代理上网. oracle 表空间问题 哪位老大知道DBF的格式。 新手想请问关于刚学图象处理先学哪些?即先从哪入手? 请问关于函数挂接的问题 学习中的、已经学好的、准备学习java的朋友来看看 如何在一个线程里创建一个窗体? 难题,,,,(马上结) 怎样使windows service能接受其他程序的调用? ADO+ACCESS问题 十万火急!怎样在ASP.net(C#)中调用OCX对象 如何填充一个封闭的区域 吉林延边发生多起朝鲜警备队员越境抢劫杀人案件 perl有比较好的ide吗????? FilenameFilter用声明吗?? 怎样将两张表中相关数据绑定到DropDownList 请问java 中如何实现大小写不敏感的字符串替换???谢谢 超级头痛:如何找到DataList里的RadioButton? 权限设定时奇怪问题? 200分相送,如何写一个divx的编码过滤器 求一 SQL 语句的写法 高手来看!!!!如何在BCB程序中打开Oracle数据库 在串口通信中怎样解除waitcommevent()的等待 快三十岁了,适合再当程序员么? 小弟急着连数据库,搞不明白怎样连,拜托 怎么得到一个进程的句柄 ADO+ACCESS问题 谁能告诉我windows server 2003的显卡驱动到哪里下载 用DataOutPutStram的writeUTF写文件时开头总出现两个字符的乱码? 关于IMAIL6.0外发邮件问题 是个关于表单的问题? 小问题,在线等 谁能告诉我windows server 2003的显卡驱动到哪里下载 global文件竟然没有,为何???---waiting!!! Direct3D中关于渲染(render)的问题? 各位高手,win2000和xp共享的问题 如何获取foxpro数据库的某张表的结构???? BCB是超级大垃圾,遇到大一点的工程就晕!~ 急,500 人民币 求解一codec 属性设置问题。 请问,如何分页????? 客户机访问不了web服务器。请提供查找击解决问题的思路。多谢! 这是什么意思? 如何自动生成表格 8a-a^2-16的值是多少 窗外,远远的青山;绿树环绕着小村.是用什么修辞手法 冬天有什么方法不被静电击? 看世间花开花落,赏星空明月圆缺!是什么意思? 坐赏庭前花开花落,________笑看云卷云舒____的完整一句话怎么说? 6.7345保留整数是()保留一位小数()保留两位小数()保留三位小数时() 大地被电击中后会成什么样子?如果有人正站在被点击中1米外的地方会发生什么情况 用电器表面带电人触摸,大地不是有电阻吗,人为什么不会被电击 接触刚被电击的人自己会触电吗 什么是髙潮? 髙清线是什么 杭州发布高层次人才“需求榜” 技术研湖北荆门煤矿透水事故续:第一名被困矿南昌市一人大代表涉嫌工程行贿被采取强孟加拉国一列车脱轨 致两人死亡30余西班牙承认与美国在情报搜集方面存在有韩美启动第六轮防卫费分担会谈 意见分任贤良任国家互联网信息办公室专职副主银泰15周年大庆 抢鲜预购卡首次浙江大型留学网站亦邦留学网正式上线中国重拳频出提升巡视反腐透明度 方便遵义市委书记廖少华涉嫌严重违纪被免职犯人竟然查起了案农妇赡养邻家老人20年中外葡萄酒同台竞技 张裕“醉诗仙”夺牢记职责使命 狠抓执法办案彭丽媛邀夫人们参观颐和园林语堂探访北泉慈幼院无证贩卖烟草坐牢1年重庆晚报主办溜娃背包战后幸存参与大屠杀清算脱单so easy捡回来的艳福网游之心中的江湖李一的世界无限之独行者医庄版诸子百家废人传奇苍云山捉鬼师夺天造地蚀日神奇宝贝之我是技能师星海罗盘东湖樱花园旅游香港科学馆旅游九峰山旅游俄罗斯河园旅游印度风情街旅游人民路旅游亚龙湾中心广场旅游须弥山石窟旅游承天寺旅游海宝塔旅游南关清真寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘