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

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
控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从"SOUND.DRV"中提取声音 VB如何设定墙纸的显示方式? VB如何用API及MMSYSTEM.DLL播放AVI文件 VB如何知道计算机是否安装声卡? 设计简单的屏幕保护程序 -VB资料 使机箱内的小喇叭发出不同的声音 -VB资料 使用VB设计具有「动感」的命令图标栏 五彩缤纷的清屏效果-VB资料 系统是否支持声音 -VB资料 一个实用的VB屏幕程序 一个自动更换墙纸的小软件-VB资料 VB用 VB 设 计 VCD 播 放 器 VB用API播放 .wav 声音文件 VB用MCI指令进行多媒体编程 用VB5.0编写自己的MP3播放器 用VB6.0编写电脑抽奖程序 用VB6的双通道技术获得影碟片断 用VBScript制作活动主页 用VB编写DirectX7.0游戏(下) 用VB编写FLASH动画播放器 用VB设计VCD播放器 数据定义问题 急:关于rich text小应用程序的问题,请高手指点!谢了! 女大学生的一天(转载) 200分问一个小问题, 在线等: JBuilder自带的ESite for weblogic部署出错... 请问 vb 怎么样让函数返回一个二维数组?能给你例子吗? 有人知道上海通方信息系统有限公司吗?我要去面式了?大家帮帮忙,做ejb程序员。 域问题 转分 介绍制作DLL专业书籍 有关image的函数问题 请教? TObject和integer之间的转换问题 数据库简单问题 文本文件的最后一行怎末去掉换行符,用程序实现。 善良的程序员,当心QQ骗子啊! 谁有Qamonitor,小弟急用! 不要笑偶 转分 有会打印对象编程的吗?printer对象怎样打印横线??怎样打印带风格的报表?? 表分区的数量有上限吗 ASP 0178 (0x80070005) 各位高人,请一定帮个忙吧 !! SetCellImage 利用C# 读取系统当前进程的出现问题,帮忙!! 请教高手:怎样在一个窗口里能够输入文本文件(按回车键) 另一个窗口显示出同样的文本 高手在何方 (大力请进)sql字符串处理的问题 上哪能下到exchange 2000,下到马上给分! ado问题? 数据迁移问题??? 怎么把列名选出来? [在线求助]:有什么好的方法可以使得鼠标放上有链接的地方状态栏不显示真实地址? 高手在哪!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 各位大哥﹐何為微创软件开发管理﹖﹖﹖﹖ 3com switch 3300 xm 有网管的功能吗? 关于窗口大小的问题,快来捡分~~~ 为什么2001年前的提问的问题、得分的问题、信誉分变化纪录都不见了。 无法在人才频道上提交简历。。。 请问:wsad4支持滚轮鼠标的插件哪里有下载??? 自动锁定计算机? 请问如何终止一个正在运行的应用程序 无法在人才频道上提交简历。。。 后面数据库为ms sql server2000的时间问题? DoEvents 怎么用?(不好意思,只有这么多分了!) CSDN真让我失望,大家都喜欢回答无聊的问题(不要回复) jdbc中LIKE条件如何使用prepareStatement? 请问,如果想报考系分的话,需要先过高程吗? 请问怎么把Excel形式的表结构导入到Oracle … 请问数据窗口中如何自动记录资料修改的帐户? 我倒要看看谁有本事让javac输出这样的信息? ADSL 可以直联吗? 家里蝴蝶灯管坏了原是2针的管,错买了4针管回来,请问两者通用吗?不敢乱安, 求问皇帝的新装中骇人听闻的潜台词是什么 求止战之殇的伴奏 一次演讲比赛设一、二、三等奖.一等奖的获奖人数是二、三等奖获奖人数的4分之1,二等奖的获奖人数是一、三等奖获奖人数的3分之2.一、二、三等奖的获奖人数各占获奖总人数的几分之几? 止战之殇是什么意思? 几个句子的发音困难!我在练口语,模仿磁带时就是听不出that怎么读,例如,It was generally supposed that it would not happen again.It is expected that the weather will be good soon.还有,We couldn't afford to keep our car,so we 一道有意思的推算题目!有兴趣速度来哈````58 26 16 14 ( ) 空格里的数字应该是多少啊`? 《皇帝的新装》“这可骇人听闻了”,此句中的“这”字指代什么? 什么是特征音程? 一道很有意思的经济计量题,请多多指教题目是这样的(翻译过来的,语言也许有不通顺的地方,见谅)你想推广一种产品,这种产品要么很受欢迎要么没有市场.你估计这种产品很受欢迎(获得 在《皇帝的新装》中“这可骇人听闻了”的“这”是什么意思?初一上册26课! 甲乙丙修一条公路,路程比是8比7比5,他们按所修路程派劳动力,丙没派,但需付1350元,这样甲派60人,乙接上文:40人,甲乙各分多少元 大兴安岭上主要分布着什么样的林带?这种林带的代表树种是什么? 谁能解释一下止战之殇这首歌 音程解决5 升1怎么解决?不是应该向外解决吗?是5 3还是3 3还是别的? 猜为什么是反犬旁 英文翻译,冯友兰的《中国哲学简史》里的一句话The first to do so was Ssu-ma T'an (died HO B.C.), father of Ssu-ma Ch'ien (I45~ca. 86 B.C.), and the author with him of China's first great dynastic history, the Shih Chi or 甲乙丙三村合修路三村修路比8:7:5三村按修路派劳动丙没派劳动付甲乙1350元甲派60人乙40人甲乙各分多少元 3Only____of them are interested in the exhibition.Afew B a few Ca little D little 现在还有大公无私的人吗? 甲乙丙三村修路程比是8:7:5因丙村无法派出劳动力,需要给甲乙两村1350元这样甲派了60人,乙派了40人,求甲乙两村各应分多少元? 世界上谁的垂直起跳高度最高垂直起跳高度是多少 人是大公无私的吗? 音程是什么? 反犬旁加贪是什么字, 数学题面积计算-小学题数学题面积计算 一个面积为70平方米的空间,使用一种280*80cm(厘米)面积的地砖铺设!请问有使用多少块呢? 音程的表现 意义 世界上垂直起跳最高是谁谢谢 鸿门宴中的 扬子江的介绍是什么, 都来帮小女子算算哈!有一间储藏室长8米,宽6米,高4.5米.如果每立方米空间可以放大米5袋,每袋大米重50千克,这间储藏室一共可以存放大米多少吨? 世界上垂直起跳高度最高是多少?拜托各位了 3Q 哎 那我想问的是2013年全国大学生英语竞赛初赛的笔试是 包括单选,阅读理解,完形等等和平常一样吗 有一次演讲比赛,有50名选手参加,其中有4/5获奖.已知或二等奖人数与或一等奖的人数之比是5:1,或%有一次演讲比赛,有50名选手参加,其中有4/5获奖.已知或二等奖人数与获一等奖的人数之比是5:1, 世界上垂直起跳最高距离是多少?人们再不断创造新的高度 鸿门宴中的问题刘邦亲赴鸿门宴的主要原因是什么?显示刘邦什么养的性格特点?鸿门宴上活跃着很多人,请概括分析一下作者是怎样表现这些人物的?效果怎样? 在一次才艺表演中,有50名选手参赛,结果26人获奖,获二等奖与获一等奖的人数比是4:1,获一等奖人数是获奖人数的1\8,有几人获得一等奖?搞错了,是:在一次才艺表演中,有50名选手参赛,结果26 请你举一例,说说某一化学产品的利与弊.越快越好、亲们 精英聚集的地方 用英语怎么说我要做一张关于培训的海报.需要加上这个短语的英文.不要百度翻译.求最地道的说法 急切想知道,请问:冯友兰的《中国哲学简史》好的版本都有哪几个?请问新世界出版的怎么样? 太阳直射南纬20度,昼长达到一年中的最大值的范围是多少? 鸿门宴 . 中国哲学简史 冯友兰的 买哪个出版社的最好? 当太阳直射20N时,20N地区昼长达一年最大值? 关于赞美大公无私精神的人的古诗 冯友兰的《中国哲学简史》哪个出版社的好:我只剩下这一个问题了,急切想知道,拿不定主意,感激不禁注意:是冯友兰的“简史”哪个版本的最好?哪个版本的最好?麻烦给个封面图片 太阳直射南半球,南半球各地昼长于夜,其中什么日夜长达到一年中的最大值太阳直射北半球,北半球各地昼长于夜,其中什么日夜长达到一年中的最大值,一共两个问. "中国国际女排精英赛"译成英文怎么说? 在冯友兰先生《中国哲学简史》中,杨朱杨朱被称为先秦道家第一阶段的代表人.在其它的胡适啊、任继愈等学者的《中国哲学史》中有议论杨朱吗?杨朱又是什么地位呢? 修一条路甲修了全长的4分之1,正好修120米,乙修了百分之35圆形花坛的半径是8米,如果延花坛的边沿修2米的小路,小路面积是多少 独一无二的反义词是什么 中国哲学简史~冯友兰,有这样一句话不懂,哲学简史》有一句话:在我们对人生开始思想之前,我们必须首先“思想我们的思想”.这两个思想啥意思后边还有“思想思想的思想是反思的思想. 历史上跟祁黄羊一样大公无私的有哪些人 独一无二的反义词是什么啊 星体为什么会自转 有什么规律? 历史上大公无私的人被称为什么 独一无二的反义词是什么? 冯友兰人生经历? 大公无私的人有哪些? 独一无二的反义词?1.独一无二的反义词2.填字成词.心悦( )( ) 久负( )( ) 中方支持安理会与伊斯兰合作组织深化合美国将与新西兰重启两军对话伊拉克多起暴力袭击致48人伤亡专家:中国需当地区强国应理直气壮发展台媒:中国核潜艇的巨浪-2导弹能打到英媒:中国核艇或改变美军思维 重绘亚格执政联盟候选人有望大胜叙利亚提交化武销毁计划男子纽约杀亲戚5人奥巴马亲自上阵引外资蒙古国总统访朝 金正恩首迎外国元首朝鲜称将继续发射卫星朝鲜将派小球员赴欧留学德媒称奥巴马知晓“监听门”格鲁吉亚选总统最高法强调依法办案 排除权力金钱人情河北冀宝斋博物馆馆长王宗泉去世 馆方俄称愿与北约就导弹防御系统进行建设性美4囚犯上演浴室版“越狱” 2人被缉美方称机密情报泄露未对美外交政策造成美方称机密情报泄露未对美外交政策造成为什么世界上那么多国家畏惧中国经济增议市厅:暴跌孕育多重底 超跌反弹将至四部委再预警MMM 刀山火海还是有人索罗斯正式宣战,中国重上威虎山!又一重磅消息横空出世!国家支付宝来了赌气不如争气,这些知识让你茅塞顿开你需要带多少钱才能回家过个体面的年?妈,您在银行上班的孩儿回来了……人民日报公布一批易错字,看了不敢说话重大消息:全民涨工资时间已定!710万工作岗位将消失!这些职业小心是谁动了你的工资?大对决!索罗斯正式宣战,中国重上威虎张帅送隐形蛋+27记制胜分横扫对手 连云港一企业氯化氢外溢 致8人受伤房屋抵押贷款那些事!(全面解析)妈,您在银行上班的孩儿回来了……投资者应该知道,油价到底跌到什么时候致高铁G278次列车冉均芳等餐车列车怎么让你的企业在市场中立足足协副主席回应归化球员:敏感问题 正
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘