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

VB怎样用VB得知系统当前是否处于internet链结状态

HTML文档下载 WORD文档下载 PDF文档下载
VB怎样用VB得知系统当前是否处于internet链结状态

声明以下函数变量常量:
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Const ERROR_SUCCESS = 0&

Public Const APINULL = 0&

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public ReturnCode As Long

代码:

Public Function ActiveConnection() As Boolean

Dim hKey As Long

Dim lpSubKey As String

Dim phkResult As Long

Dim lpValueName As String

Dim lpReserved As Long

Dim lpType As Long

Dim lpData As Long

Dim lpcbData As Long

ActiveConnection = False

lpSubKey = "System\CurrentControlSet\Services\RemoteAccess"

ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, phkResult)

If ReturnCode = ERROR_SUCCESS Then

hKey = phkResult

lpValueName = "Remote Connection"

lpReserved = APINULL

lpType = APINULL

lpData = APINULL

lpcbData = APINULL

ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, lpData, lpcbData)

lpcbData = Len(lpData)

ReturnCode = ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, lpData, lpcbData)

If ReturnCode = ERROR_SUCCESS Then

If lpData = 0 Then

ActiveConnection = False

Else

ActiveConnection = True

End If

End If

RegCloseKey (hKey)

End If

End Function

下面是使用以上代码的例子:

If ActiveConnection = True then

Call MsgBox("现在处于链结状态。",vbInformation)

Else

Call MsgBox("现在处于断开状态。", vbInformation)

End If


VB用程序给标识字段(ID)赋值的一种简单实现方法 VB用自己的'PROGRAM'测试自己的电脑 有 BitMap 之Menu -VB资料 运行其他程序,并等待执行完毕 -VB资料 再谈VB程序的加密 在 VB 程序中如何设定 Mouse 光标的位置? 在ActiveX DLL工程中慎用App对象-VB资料 在ActiveX控件工程中设置DataField属性-VB资料 在VB中异步执行程序 在VB编程中有效地组织和利用资源 在VB应用程序中巧用DLL 在VB应用程序中使用INI文件的一点体会 在VB中操纵OLE服务器应用程序 在VB中改变显示器的分辨率 在VB中获取和修改计算机名字 在vb中没有指针,怎样才能将数组作为参数。 在VB中如何调用C++Builder创建的DLL 在VB中设置常用的外部设备 在VB中使用枚举变量 在Visual Basic 中使用C++ 类 在WindowsNT网络中广播消息 -VB资料 在可编辑控件中创建一个新的上下文菜单 -VB资料 在软件中设定热键-VB资料 在注册表中添加自己的文件类型-VB资料 在桌面上建立 Internet 快捷键 -VB资料 在桌面上添加程序的快捷方式 -VB资料 VB怎样得到当前的屏幕分辨率? VB怎样关闭Windows VB怎样关闭一个程序 VB怎样使我的程序总处于屏幕最前方?(Always on top) VB怎样延迟一个VB程序? 今天学了一个下午的五笔,进步不小,放分。 asp.net中有自己带的treeview类吗? 谁知道学习汇编语言的网站 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) api中怎么知道哪个函数用在哪个dll rave 的最版在哪里可找到 rave 的最版在哪里可找到 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) 救救我啊,关系着我的生计呀! 在Window2000上安装Redhat7.3后,机器速度慢得难以让人忍受 delphi5中数据集问题 !!help! 今天刚装了adsl,可是在win98下用不了,连通信公司的人都没辙(100分) 在线:请推荐几本OpenGL的好书!!! VI高级技巧征集中,欢迎大家来交流,谢绝灌水! WINDOWS 2003 SERVER 安装问题 存储过程可以返回记录集吗? CListBox的问题 请问!那位哥哥姐姐可以教我学习呢!? 页眉页角问题 一个关于package的初级问题 窗口大小 win2k+诺顿杀毒软件企业版~~~~~~~~~~~等待,立即送分! 请问我如何将CStatic透明化,即上面显示的字能够映在窗体上,并不是映在灰色CStatic控件上。???????????????? 网页发送短信是如何实现的? 陷入死循环啦!!! 紧急求助!!!!![2000密码] 为什么只能添加一条记录?帮帮忙,谢谢 谁知道比较好的学习汇编语言的网站 如何用JS打开一个文件对话框 有什么办法能让fsck的时候,不需要手动确认? 如何将编写好的*.chm文件连接到编写的应用程序中?(急) 高手请进!SQL SERVER出现问题! 急!!!请教计算机网络中的停止等待协议算法 哪能找到一个图书管理系统示例的源代码,谢谢 一个很简单的备份问题!~~~散分!~~~~~~ 用sql语句查询表,如何自动把Null值转换为0或指定值?? 如何屏蔽win2000下的ctrl+alt+del啊? ADO和字符集问题 请问各位大侠,weblogic里部署jsp和javabean的问题 求问有关Datetime和smallDatetime的问题 在jbuild+mb中,MIDlet和displayabel form 有什么区别,? Resin 2.1.0下面怎么配mm.mysql驱动? 关于web下的参数传递问题,向大家请教。 请教计算机网络中的停止等待协议的算法 有谁用过imagelib吗? 怎么用VB调用access内部定义的函数??? NTLDR is missing 请教三个问题 微软的UPDATE页面里某些效果如何实现? 兄弟们,帮帮忙!遇到点麻烦(在线) 谁能给我介绍些专门讨论算法的网站啊~~~~ 铅酸蓄电池对环境的影响 Fully (occupied in doing/with) the housework,she doesn't have time to enjoy vaiious activities in the culb any longer.(occupy)第一个括号里为什么这样填? 塔吊使用滑轮组主要为了什么 某包装车间要包装726双皮鞋,已经包装了285双,剩下的如果每小时包装49双,还要做几个小时才能包装完? 如何简述苏格拉底关于“德性即知识”的思想 把()和()组织在一起使用就成了滑轮组.吊车上用的是()自然界中的大部分固体物质都是()或由()组成的,其形状多种多样,但都很有().在我们的感觉器官中,()能获得比其他感 Don't be a rabbit.Be a 时尚服装公司制衣车间和包装车间原来一共有工人310人,重新编排岗位后,制衣车间调出15人,包装车间调进28人,这时包装车间的人数比制衣车间的1/4还多3人制衣车间和包装车间原来各有多少人? 苏格拉底提出的“美德即知识”但是“智慧即德行”跟它意思一样吗?我看吴式颖的《外国教育史》但是就是没找到苏格拉底提出的“美德即知识”,只有“智慧即德行”,那这个跟它一样吗? 】读毛泽东的词《娄山关·忆秦娥》,然后按词的意境,把它扩写内容丰富的一段话.《娄山关·忆秦娥》西风烈,梧桐叶下黄花发,黄花发,  马蹄声碎,喇叭声咽.  雄关漫道真如铁,而今迈步从 在制造园林工具的刀片上,高碳钢和低碳钢是什么区别?比如说成本啦,性能啦,效果等各个有比较的方面帮我解答下.还有就是修枝剪的砧头是什么,有什么作用吗? 月亮到了什么时候才能下山?我昨天睡不着觉觉,就跑到阳台上数星星,却发现了月亮,月亮到了什么时候才能下山啊? 】读毛泽东的词《娄山关·忆秦娥》,然后按词的意境,把它扩写内容丰富的一段话《娄山关·忆秦娥》西风烈,梧桐叶下黄花发,黄花发,  马蹄声碎,喇叭声咽.  雄关漫道真如铁,而今迈步从 低碳钢和低磁钢有什么区别 12月23号北纬30度太阳什么时候升起,什么时候下山说明计算方法 光速不变性,是指光的速度相对任意参照系恒为c,还是指任意物质,只要速度达到c就相对于任意参照系不变?9999c的物质相对于同向运动的速度为0.5c的物质,是0.9999c-0.5c么? 不锈钢 低碳钢 区别 月球反射太阳的光再照到地球上,我看到的月亮不会不是实时的位置? 光速不变原理是不是只适于真空啊 同一种介质不同的参考系 是不是也满足光速不变啊? 为什么沉船在海底容易生锈,而长时间航行却不易生锈你看过泰坦尼克还这部电影吗?影片中当搜索人员在船舱里四处寻找宝藏时,我们可以看到,沉在海底的泰坦尼克号早已生锈,成了一堆废铁. 不知道你出来看了没,现在月亮和太阳同时在天空上.这就来了一个问题:按照物理原则这时候我看到月球应该是全圆的,因为我就站在地球上同时看到月球和太阳的,没有地球挡住照到月球的太 监控摄像头 晚上不亮白天亮是什么原因我家里装的摄像头带红外线的那种 为什么晚上不亮 白天就亮 关于海底沉船的电影海底沉船的故事 好象是俄罗斯的船 喝了船上的伏特加之后身体发生变化 是什么电影不是幽灵船 故事是发生在海底的沉船里面 塔吊的超力距是什么,3Q 说法不正确的是,以及原因A开了盖的葡萄酒容易变酸,这个过程中发生了氧化反应 B糖类、油脂和蛋白质都可以酿酒 C乙醇与酸性高锰酸钾溶液反应,被直接氧化成乙酸 沉船之岛海洋面部是什么形状的? 大吊车像什么? 一个数据结构矩阵地址问题设矩阵A(aij,1 海底沉船怎么样 观潮 第三段中哪些句子描写了壮士形象?哪些语句突出了勇士逆潮游泳的高超本领? 『数据结构』 二维数组 1.设二维数组A[0…m-1][0…n-1]按行优先顺序存储在内存中,第一个元素的地址为p,每个元素占k个字节,则元素aij的地址为( ).A.p +[i*n+j-1]*k B.p+[(i-1)*n+j-1]*kC.p+[(j-1)*n+i-1]*k D. 经历为题写作泰戈尔说:“因为经历,所以懂得.”经历是人生的必然,经历是人生的财富.经历能催熟你的心智,经历能滋养你的生命.阅尽千山万水,尝遍酸甜苦辣.行走在路上,这便是人生.请以“ 大型塔吊布置问题在距塔吊基础38至40米臂长的地方要起吊重9吨或10吨的重物,需要选用什么型号的塔吊,其臂长范围是多少,附着式塔吊最大工作高度是多少? 如何理解层次分析法中的指标无量纲化和无极化处理的目的 如何进行无量纲化? 观潮一文中第三段哪些句子描写壮士形象 C7H6O2的芳香族含氧衍生物的同分异构体有哪些? 选择题1.Who is the man ------the green coat? A.in B.at C.with2.The girl------is my sister. A.in the red B.in red C.in red coat.是不是1选A.2选B.请高手指点,为什么? 怎么画大吊车 焰色反应呈黄色的强碱是? 用矩阵初等变换求逆矩阵!急!详解第一行(0 2 1)第二行(2 -1 3)第三行(-3 3 -4)!详解写清具体步骤,谢谢 为什么有时太阳没下山月亮就出来了 被女儿问到了求助 钠的火焰呈黄色 铜的火焰颜色呈蓝绿色 这种奇异的发光现象 食品级TPE几种不同的测试方法 月亮下山了太阳怎么还不出来是什么意思? 我想种蘑菇,有没有知道哪里卖蘑菇菌的,种值技术和先期的投入. 食品有哪些属性?食品的营养成分有哪几种? 为什么在白天有时候也能看到月亮是缺的,并且太阳也没下山,那到底是什么遮住了月亮呢 低噪声轴流风机是用滑动轴承还是用滚动轴承 液体接触角的测试方法有哪几种 太阳未下山 为什么能看到月亮 Cr3+基态 电子排布式(Cr(NH3)6)3+ Nothing is impossible,Just Enjoy Daliy Life的中文意思是什么 起重机上有多少滑轮组? 平均无量纲化的数据组能做相关性分析吗?如平均无量纲化的水稻产量和温度两者之间能做相关性分析吗?分析方法有没有什么不同呢? 校园之美为题的作文 如图1所示,是建筑工地常用来搬运砖块的两种机械(滑轮组和起重机).观察图1中甲、乙两图,可获得的信息有____________________,观察图1中丙图和_____图可得出:在相等的时间内,起重机比滑轮组 日光灯白天亮,晚上不亮有什么办法解决 She loves doing the housework.哪里有错? 起重机 是不是滑轮组?如题? 美国捕获长约4米重达330公斤巨鳄【德媒:日本吃醋中德相爱 认为遭受德国英国监管报业是对过度“自由”的反弹美国务卿称美国永远不会允许伊朗有核武罗德曼力促朝篮球队访美 称金正恩是个朴槿惠就历史问题斥责日本 称元首会晤日防卫省对大规模军演限制报道让日媒集俄总统普京将访问越南 适逢俄越潜艇交法两名记者在马里遇害 遗体遍布弹孔新加坡女子用“脸书”寻亲 1个月内找日本岩手县一飞行员因骗取研修费被捕朴槿惠出席法国韩剧派对 当地民众热情夫妻生三胞胎 照顾不暇求助志愿者(图日本岩手县一飞行员因骗取研修费被捕新加坡女子用“脸书”寻亲 1个月内找加沙唯一发电站停运 民众秉烛抗议每天美国“粮票”遭削减 部分人将失去领取斯诺登抨击美国国家安全局为“最坏犯罪两岸企业家聚紫金山峰会 名流荟萃商产三中全会前瞻:勇于担当绘蓝图 凝聚共朴槿惠就历史问题斥责日本 称元首会晤保定天鹏航空启动农用植保无人机飞防作国内油价调价遭两连停,国际油价小幅波太湖流域超警戒水位1.05米 未来1暴雨蓝色预警:福建台湾等4省有暴雨刘翔自曝跟腱断裂幕后故事 回忆过往经乡贤劝退医闹背后的是与非广东海事公安局成功追逃一名被告人广东检验检疫局全面恢复辖区活禽供澳今年上半年广州口岸进口仿真饰品增长近好邻居:三进火场 只为救人消防员:抗欧洲杯开启终极大戏 C罗迎来超越梅西托夫勒走了,大数据来了官员成老赖,绝非个人私事KD正式亮相勇士 拿35号球衣合影高英国伊战报告,对精英政治又是一击6.53亿元,政府的钱咋这么好借C罗迎来超越梅西最佳机会 决赛将对话成都有轨电车蓉2号线47个站名出炉 再起争议 美国黑人女子直播丈夫被警察朝鲜称“对金正恩制裁”如同“公开宣战日耳曼战车空有控球无效率 后起之秀或
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘