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

VB如何检测是否已连接到Internet?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何检测是否已连接到Internet?


声明:

Public Declare Function RasEnumConnections Lib "RasApi32.dll" _
Alias "RasEnumConnectionsA" (lpRasCon As Any, _
lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" _
Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _
lpStatus As Any) As Long

Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

程序:
Private Sub main()
If IsConnected = True Then
MsgBox "已连接到Internet!", vbInformation, "提示"
Else
MsgBox "未连接到Internet!", vbInformation, "提示"
End If
End Sub

Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "产生错误!", vbInformation, "提示"
Exit Function
End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function

OpenCL用于13个微型计算机领域的经典案例 从测试数据来看Node.js和Java EE的性能区别 工作效率低下?业内人士建议你切勿追求完美 Mozilla发布可视化在线跟踪工具Lightbeam 望向海外:十大移动应用开发外包公司 Facebook支撑万亿Post搜索背后的技术窥探 云OS:共创智能化生态圈 云计算,让游戏世界更加精彩 360推儿童卫士手环,你怎么看? 量产谈判正在进行时:谷歌手表或比Google Glass先上市 Mozilla发布新版Firefox 25 提供支持Web Audio API UC产品总裁何小鹏:轻应用,做什么?怎么做? 高德携手阿里云发布“LBS云”,账户打通只是第一步 最后2天!2013移动开发者大会5折抢票倒计时 大数据如何改变在线广告业? 摩托罗拉推开源硬件平台计划Project Ara 七个垂手可得的敏捷开发工具 微信新版公众平台调整细节381处 300/次认证费引争议 libgit2:纯C语言实现的Git开发包 MongoDB的得与失 开箱即用!Android四款系统架构工具 谁说Kinect只是玩物?微软研究院使用它实现口语手语实时翻译 新浪微博推出粉丝服务平台 引发两微PK大战 MDCC2013移动开发者大会最新日程发布 门票优惠最后1天 英特尔CEO:EUV光刻技术或助力芯片突破摩尔定律 从微软大数据日看到的,银行、交通、医疗实践之路 IDC:iPad市场份额遭Android平板蚕食 滑至29.6% [TUP第30期]直击移动应用开发难点 探讨跨平台最佳解决方案 用动态语言编写程序,命名更重要 命中率80%,磁盘I/O减半,Flashcache的发展史 这次它很低调:谷歌正式发布Android4.4和Nexus 5 高分寻求英文简历捉刀人!!——请帮小弟看看有没有不妥之!! test:给分文本框.enabled=false;cmd_管理 不存在,我怎么给分? 各位大虾!!请教一个有关建立oracle8i表之间关系的问题???? 你会吗?有用但有点难度的问题。n个数的最长单调子序列的O(nlgn)的算法. VB很菜的问题 请帮忙 if问题 我考中程查分怎么没有成绩??我是上海的!! Delphi学习(-):IDE快捷键大征集: 各位大虾!!!嘻嘻~`我是新手哦,请大家帮我解次问题呀~~~`哇!!这个问题好晕哦~` 为什么只能看四页问题? 上海的软考成绩什么时候出来??? Delphi中如何执行ZIP文件?谢谢! 菜鸟问题:初始化代码放在哪? 在ITEMCHANGED里获得值? 如何操作dbf文件? 请推荐关于c/c++的优秀英文译本 请问: 投稿程序员杂志要多少时间才有回音? 一个难题!非常着急,希望大家帮我解决! 为什么该父类无法调用其子类. 请教CDateTimeCtrl控件问题! 高分求救!哪位哥哥能否帮我解决一下几道C编程的题目,我讲感激不尽!!!谢谢 我找到一个DELPHI的技术站点,还可以,请大家来LOOK 动态显示图片!!!!!! 本人是beginner for vc++,希望以后多交流。现请求一个vc++作的画图程序 大侠执教:投稿程序员杂志要多少时间才有回音? 有办法在控制台程序启动时,隐藏它的DOS窗口吗? 关于MFC中的Project Settings问题 两个编程的初级问题 谁能给我一个关于二叉树的完整的程序。 认识的进来聊天 , 我是东宝 (yeti_lee) 我是一名学生,学计算机(一个普通大学)。请教大家几个问题 大连成绩如何查??有人查到了吗?请聊聊 分是个累赘,我放完它~!来的就有,讲些凄惨的事情和遭遇,大家比谁惨,越惨的给分越多,兄弟我此举是为了找平衡。 怎样得到当前系统打印机的各项信息?????特别是打印纸张方向!!! 高分求救——我有几道C程序的编程题目,望各位高手帮忙解决!谢谢 哪位告诉我select语法,我忘了group by 的使用方法,谢谢! 请问哪儿有电子版的《COM编程精彩实例》,谢谢! 请问:要想学习vb和数据库的知识,哪些书比较好?请各位朋友帮忙推荐几本好书?谢了~! 请问有谁知道PB8编译后打包,PARADOX数据库驱动程序需那些啊????急!!!!!! 在oracle存储过程中怎么使用cursor作为返回值? [TIPS]Win9x和WinNT/2000下面都可以去掉OICQ广告的方法! 触发器问题 关于bdgrid的问题,高手请来,一定高分相送!!!!急 怎么建立WIN2000的域信任关系 用data控件连接DBf数据库时为什么出现“找不到可插入的ISAM”错误? 大家等会儿再吃饭!先看一看这里的送分大餐...... 他们怎么想的?居然没有bcb? 高手指教:如何在vc中控制刻录机和磁带机进行数据备份和恢复? 请问各位高手,怎样才能学好c语言。有没有什么好一点的网站和源码提供,多谢。 如何解决在向量位图背景下的窗口移动是的刷新置后问题?? 问一个问题!爱好or 程序员? 2010年山东会考物理选修1-1答案2010年12月24号下午的 谢谢哥哥姐姐叔叔阿姨 好人一生平安 文科做的那一模块 1-1 第九题,为什么C选项是正确的 几种短周期元素的原子半径及主要化合价如下表:下列选项正确的是:元素代号 L M X R T原子半径/nm 0.160 0.143 0.102 0.089 0.074主要化合价 +2 +3 +6、-2 +2 -2A.离子半径大小:r(M+3)>r(T2-) 2010年12月山东青岛会考物理答案请将该答案发往本处,以过关. 问一下这道生物题的C选项为什么正确? W,X,Y,Z为短周期元素内除稀有气体外的四种元素,它们的原子序数依次增大,其中只有Y为金属元素,Y的最外层电子数和W相等原子的质,Y,Z两子数之和为W的X两元素质子数之和的3倍,由此可知,W是____ 关于离子反应的化学题目.在离子反应中,Mgcl2和Na(oH)2反应生成Mg(OH)2沉淀和Nacl即NA离子和CL离子.我想问的是它们都结合成了NACL怎么还能叫做自由移动的离子呢,它们不是结合到一起了吗,怎么自 高中物理化学题,急!1、将54.4g铁和氧化铁的混合物,投入到足量的稀硫酸中,充分反应后收集到4.48L氢气(标况),并测得溶液中既没有Fe3+也没有固体残留,求原混合物中铁和氧化铁的质量各为多 英语翻译现在学文章急用 有关化学离子反应的一些题目1、(1)向NaHSO4溶液中逐滴加入Ba(OH)2溶液至中性,请写出发生反应的离子方程式(2)在以上中性溶液中继续滴加Ba(OH)2溶液,请写出此步反应的离子方程式2、在一 用一众试剂除去下列各物质中的杂质,括号内为杂质,并写出离子方程式①BaCl2(HCl):试剂________离子方程式____________②O2(CO2):试剂________离子方程式____________③硫酸根离子(碳酸根离子) 翻译地址 中国福建省泉州市广平仓21号 翻译成英文是什么 一道化学离子反应的习题用碳酸钠、氯化钡和盐酸做试剂,除去氯化钠溶液中还有的少量钙离子和硫酸根离子,每种试剂只能用一次,提纯后的溶液中只准许留有钠离子、氯离子、氢离子和氢氧 高中物理化学的概念题怎么做? NaCl+CO2+NH3+H2O=NaHCO3↓+NH4Cl是什么反应类型拜托各位大神 H2O、HCl分别含有什么化学键 谁有新疆维吾尔自治区 新疆生产建设兵团 高中物理化学学业水平测试题及答案?没有答案也行- -. please发到这里或者邮箱上 sunxiaohan650@sina.com 谢谢,有用会追加分噢~历届的噢~ 黑龙江理科高中物理学教科书学哪几本? 离子反应2个高锰酸钾和16个盐酸反应生成2个氯化钾,2个氯化锰,5个氯气,8个水,问当有5.6升(标准状况下)氯气生成时,转移电子的物质的量为多少? NACL+CO2+NH3+H2O=NAHCO3+NH4CL是著名的侯氏制碱法的重要反应 不正确的是A NAHCO3D的溶解度较小B NAHCO3不是纯碱C析出固体后的溶液为NAHCO3的不饱和溶液D该反应可以获得氮肥 江西高中理科物理学几本书各本书的内容主要是什么.选修学哪几本要讲清楚.如果能讲清高一分别学哪本,高二分别学哪本就更好了. 20,21问,要过程分析 两道关于离子反应的化学题1.下列各组物质的稀溶液互相反应,无论前者滴入后者,还是后者滴入前者,反应现象相同,且离子方程式也相同的是A.Ba(HCO3)2 溶液与Ba(OH)2溶液B.NaAlO2溶液与稀硫酸溶液C 物理都学几本书?(理科)具体学哪几本? 2010山东会考物理答案(在线求.) A 自由电荷的运动必定形成电流B 形成电流必须要有自由电荷C 有电压必定形成电流D 电流的单位“安培”是国际单位制中的基本单位多选的,希望认真看看再回答, 氨盐水与CO2方程式为什么不是NaCl+NH3.H2O+CO2=NaHCO3↓+NH4Cl答案是NaCl+NH3+H2O+CO2=NaHCO3↓+NH4Cl,为什么二氧化碳是与氨气和水反应而不是与氨水反应? 山东省2011会考英语答案我是淄博博山的.今年会考了.英语不及格、求答案.哥哥姐姐弟弟妹妹叔叔阿姨爷爷奶奶们、帮个忙.给份选择和词汇运用的答案啊! 两颗人造卫星都绕着地球做圆周运动,质量m1:m2=2:1,轨道半径之比为1:2.则他们的速度之比为多少? 一道高中文科数学导数题f(x)=x(3)-3/2ax+a(2 ) 其中括号内为上标 求0 高三化学题,求详解 物理会考级别的题如图所示,在空间A、B分别放置正点电荷Q1和Q(再无其他电场或带电物体了)2,且Q1>Q2.若A、B所受电场力大小分别为F1与F2,A、B两点的场强分别为E1与E2,则比较F1与F2,E1与E2的大 高中文科数学导数设函数f(x)=x^e^x-1+ax^3+bx^2,已知x=-2和x=1为f(x)的极值点(1)求a和b(2)讨论f(x)的单调性函数f(x)=sinx+sin(2+90°),x∈R1.求f(x)最小正周期2.求f(x)的最值3.若f(x)=3/4, 将0.02mol铜片溶于100mL 9mol/L HNO3中,产生336 mL气体(只含NO、NO2).该气体与一定量O2混合后,用足量NaOH(aq)完全吸收.有关反应如下:NO2+NO+2NaOH→2NaNO2+H2O,2NO2+2NaOH→NaNO3+NaNO2+H2O.O2的体积至少为(气体 跳水运动是我国体育运动强项之一,高台跳水项目要求运动员距离水面10m的高台上跳下,完成动作后入水若运动员起跳瞬间重心离高台台面的高度为1m,斜向上跳离跳台的瞬间速度为3m/s,跳至最高 人民教育出版社的高中数学选修1-1第三章导数听不懂,谁能讲一下. 现有ABCDEF六种化合物,已知他们的阳离子有K+,Ag+ ,Ca + ,Ba2+,Fe2+ ,Al3+,阴离子有CL- ,OH- ,CH3COO-,NO3- ,SO42-,CO32- 现将他们分别配成0.1mol.l-1的溶液 进行以下实验:测得溶液ACE呈碱性且碱性为A>E>C 向B溶液 NH4Cl+NaOH=NaCl+NH3+H2O 其中为什么离子键被破坏,共价键没有被破坏 若曲线Y=2X^2-4X+P与直线Y=1相切 则实数P= ,请用导数算, 若制取氯气,电子转移数量最少的是( )A.KCLO3与浓盐酸反应B.MnO2与浓盐酸反应C.KMnO4与浓盐酸反应D.K2Cr2O7与浓盐酸 2010年广东会考物理答案是什么 当函数F(X)=X*2的X次方 取到最小值时,X=? 某酸性溶液中只有Na+、CH3COO-、H+、OH-四种离子.则下列描述正确的是 ( ) A.该溶液由pH=3的CH3COOH与pH=11的NaOH溶液等体积混合而成B.该溶液由等物质的量浓度、等体积的NaOH溶液和CH3COOH 求2010年广东省高二会考物理试题及答案 “abcdef为原子序数依次增大的短周期主族元素……”A,B,C,D,E,F为原子序数依次增大的短周期的主族元素.已知:A,C,F三种元素原子的最外层共有11个电子,且这三种元素的最高价氧化物对应的水化 NH3·H2O+(NH4)2SO4=? 2011年6月广东省化学生物物理会考答案.最好能有试卷的原题对答案. 在短周期元素中同一主族能构成离子化合物的有那些 NH3+H2O===NH3`H2O===NH4+与OH-向1mol/L氨水中加入AlCl3固体时,平衡向正反应方向移动,OH-的浓度为什么减小,而NH+又为什么增大了,我完全看不懂. 第八题选项C哪错了? 关于短周期元素的一道化学题在短周期元素中,氢化物的水溶液呈碱性,且能与氢元素形成一价阴离子,请问是什么元素?一价阴离子又是什么 25℃时,PH=7的(NH4)2SO4与NH3·H2O混合溶液中,铵根离子和硫酸根离子之比是()a.2:1b.大于2:1c.小于2:1d.1:1 第八题选项C哪里错了? 我是福建高中生想读文对物理化学不感兴趣 怎么做会考会比较容易过呢 会考容易过么 经历过得可以谈谈么 山东省2010年12月24日物理会考答案 第八题C选项错在哪里 浙江省高中文科生需要读哪些书?最好详细点.还有物理化学会考是考哪几本书? 2010年山东省高中物理会考答案 河北省会考2011地理试题 高中文理科会考数学物理化学题目是不是不一样的?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn