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

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


iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 Facebook社交视觉搜索分析:引入“竞价排名”? 移动广告现状5大问题解析 Google将于月底举行Google Glass开发者大赛 分享29个超赞的响应式Web设计 Facebook图谱搜索和谷歌搜索有何不同? Facebook向美国iPhone用户提供免费电话 VMware CTO Steve Herrod离职 加盟风险投资公司 维基百科基金会推出众包旅游项目Wikivoyage 最舒适程序员:工作外包给中国 自己却偷懒 Evernote正在与苹果联合开发硬件记忆工具,未来两年公司上市 Fusion-io发布ioScale 全闪存数据中心时代到来? Agent Dash游戏设计之美:如何用2D打造3D体验? 开源项目文档应规避的13处“硬伤” 李开复:Graph Search将可与谷歌搜索媲美 月成本3500美元 如何在AWS上实现BBVA信用卡低延时分析 外媒眼中的国内互联网巨头:服务器集群庞大但缺乏创新 Facebook主导通用主板+SoC ARM与Intel同台对抗 假如像招聘程序员那样租车…… CrowdStar:Windows Phone 8是开发者的下一片蓝海 腾讯云总经理陈磊透露流量变现计划 将比亚马逊AWS更专注 代码之美——Doom3源代码赏析 英特尔公布2012财年财报 Q4净利润同比下滑27% 谷歌CEO佩奇:创新重于竞争 关注非增量改进 再尝败绩 微软杀软AV-TEST反病毒认证失败 财富:2013最佳雇主 谷歌第一微软75苹果未入榜 ““struct”类型重定义”” 是什么意思? 哈稀表如何遍历一边? ie突然打不开ftp网络了 谁能帮我解决这个对我来说的难题!!!(分数不够可以再加) 大家对2008奥运标志有什么看法?? 第一次在LINUX下使用GCC.... ie突然打不开ftp网络了 好久没来了 来看看 最优三角剖析的问题 why squid can not start? 关于字符串的问题,数组和指针有什么区别? 这个日历是怎么搞出来的,比较实用,怎么做一个 一个调用存储过程小问题 来看看 很简单的问题,请教一下 软件工程中哪本教材比较好? 看BCB5的书,在BCB6编译是否完全能通过? 正义的高手门请伸出你们的手黑了这个彩票网站吧!(海南私人彩票害了很多人倾家荡产,家破人亡,我家也深受其害) ie突然打不开ftp网络了 我的MATRIX观----生命的究极存在形式 关闭窗口的问题 因为昨天晚上的积极表现。 我的真情告白·!#¥%…… 遇到了“Destination host unreachable.”,谁能简单的帮我分析一下出错的可能性。 关于安装windoew 2003的初级问题.解决立刻给分. 如何在LISTVIEW里输出打印? 现在你应该睡了~ 困了,睡觉去~~~~~~~~~ 有没有可能在outlook express中加入自已的按钮? 有没有可能在outlook express中加入自已的按钮? 一个sql表达式的问题 JBUILDER9中用代码改变程序的外观, 难?易?,如何写,见贴内,谢谢! 我的电脑里的g盘分区损坏(磁盘坏道)请问有没有补救的方法? 谁有培训教材,单位培训的?? 印章问题?? 如何实现文件上传?在线急等!!! 如何查询出数据库中相同的字段值??? 可以动态改变水晶报表的文本的内容吗? ASP.net提示无法调试 我下载了Fastreport 2.47的中文版,可是不知道怎么用! 请问我在VB.NET里面控制,把SQL里面的数据输出到Excel,但是有一列是000开头的,到Excel后怎么000就不见了呢? 哪位老大有asp.net和.net平台的电子书?可否共享一下? 请问JDK1.4里面主要包括哪些类包 一个初学者的问题? 计算机间发送消息的问题。 请教各位前辈KEIL C51调试的问题 DataGrid控件中如何用selectindexchang方法改变选中的行的颜色》 SOS!今天我的PB7.0里面的Library 和 DB Profile不能用了.(100分) Application 怎样接收参数,并传给窗体?谢谢! vb中执行access里面的查询 中国银行存折上PLD 中国银行存折上 PLD \ AFE \INT \ TAX 我最想知道的是 PLD 还有 AFE @ pld是什么牌子 下列语句序列执行后,k 的值是 int x=6,y=10,k=5; switch( x%y ) { case 0:k=x*y; case 6:k=x/y; case 12:k=x-y; default:k=x*y-x; }A.60B.5C.0D.54A B C D 甲、乙俩人相距18千米,甲在后,乙在前,同时出发同向而行,甲骑车每小时行8千米,乙步行每小时行5千米,问甲几小时后追上乙? 某隧道的截面是个半径为3.6米的半圆,4米的,宽3米的卡车可以通过吗?要算式 Java执行下列语句后k的值?int i =10,j=18,k=30;switch(j - i){case8:k++;case9:k+=2;case10:k+=3;defauli:k=k/j;} 面面相什么解释 面面相什么 面面相【 】 PLD是什么牌子的标志 “frome “frome pld”请问是不是“来自庞丽达”的意思?或者是别的 美国财政僵局刚解 共和党就医改法案再分析:美国就业数据疲弱 美联储料谨慎德社民党同意正式谈判 协议达成或需4各省区市党委常委班子均已开展批评和自中国铁建回应“天价招待费”:今年下降日本利用钓鱼岛为开火埋伏笔 无视和平统计局:经济稳中有升稳中向好 不确定日本政府将制作领土问题宣传片以谋求国人民币对美元中间价报6.1330 月美无人机阴影下的巴基斯坦城边陲小镇:专家:最高检向人大做反贪报告有很强政市社保局副局长今日上线电台访谈沙湾板块2月二手成交锐减无效婚姻的法定情形有哪些西安一幼儿园长期给学生服食药物47岁林忆莲8月将大婚 小11岁男友李娜横扫新秀晋级纳豆莎娃双双出局不要公务员铁饭碗每月倒贴2万元做公益囤积“僵尸”商标坐等索赔抢注商标公司小巧三轮消防车便捷穿行城中村小丁 在英国缺篮球玩伴英国警方乱发补助:蚊叮虫咬也算工伤
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘