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

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

小心,商家已经盯上你了 一软一硬 让你时刻保持清醒的可穿戴产品 寓教于乐 贝瓦依托移动平台打造中国式儿童“轻教育” 中科创达:CES2014上的中国红 SA:2014年移动互联网十大技术创新预测 回顾2013:HBase的提升与挑战 Google打造云中Hadoop便捷版,强势对抗AWS 【信息图】专业Web设计师和业余设计师的发展状况并不协调 先试后买:Agawi推新型广告服务AppGlimpse 搜狗CEO王小川:“硬件免费”是误区 平均比Hive快24倍,Impala剑指Stinger 利用ElasticSearch和Redis检索和存储十亿信息 微软高管再度失血 媒体及娱乐副总裁因内部重组离职 Google研制智能隐形眼镜 帮助病人监测血糖指标 盘点2013:最优秀的HTML5&amp;amp;CSS3设计【多图】 AMD:未来PC将同时搭载Android、Windows双系统 如果你是CEO,你打算给自己开多少工资? IBM X6架构中国首发,目标是云与大数据 Pivotal聘用eBay前副总裁,继续发力云计算市场 智能手机的功能越来越复杂,可惜用户不买账 一周消息树:Windows 9要来了,会有哪些改变? 简单几步解决IE11无法显示此页的问题 研发周报:Java 8最终发布日期敲定,即使有bug也要发布 一周云热点:Google打造云中Hadoop便捷版,强势对抗AWS 追溯Unite大会设计理念 感受Unity进化史 移动周报:仰望大神,不如退而探索! 腾讯发布QQ浏览器微信版 支持拖拽分享、消息提醒等功能(图) 乐视TV:LetvUI连续31周迭代36个版本 190个乐迷需求实现119个 云服务商评估体系建立,首批10家企业通过可信云服务认证 《找你妹2》开发者云中游再声明:热酷涉嫌严重违约发布侵权竞品 柴可:大姨吗的轻应用抉择 代人提问:请问.dcu文件是干什么的?如何才能生成该类型文件。 怎么响应Enabled属性 asp.net做网页,运行后,<asp;....></asp:...>字段仍然存在?? 请教VB高手们一个高难问题! 请问,存储过程在VC如何调用,用ADO,ODBC。 怎么实现这个SQL? 没事瞎问~~~黑客软件能走向海外吗?(比如扫描器,键盘记录器,木马等) windows protect --error ,我装不了系统啊 DbEdit里的数据用adoquery如何更新才好? 有没有办法调试存储过程? 我是个菜鸟,请教大家,VC++和C++ Builer的优点和缺点。 请问如何改变显示文本的颜色? delphi 6 的补丁包 浏览器为NS6时如何获取屏幕分辨率? 如何控制 ValueListEditor ?有一个Help这样写道: 各位斑竹请进来,紧急求救呀!!!!! 是否可以把用asa建的数据库转变为access? 在java中如何压缩和解压文件夹? 如何在运行期把最大化,最小化按钮灰掉!? 求一句广告词 请教一个毕业设计的问题,关于在c++buileder中OLe对象调用:怎么样把word中的表格导入到数据库 请问如果在首页中加入一个论坛的登陆对话框? 这样的IIS错误信息,是什么意思,怎么解决? 问一下,vb怎么连接数据库呀`~(access)有代码吧~~给分呀` 如何画箭头? C#进行嵌入式开发,方便吗? 她为什么看上我??! 如何用BCB从mp3文件中得到歌名,歌手名,唱片集,流派等! 各位知道有关于ORACLE系统管理实例方面的书籍吗? ADO访问access数据库,怎样编辑一条记录啊? 请教各位关于win2000默认共享的问题 喜欢德国队的进来,坚韧不拔的意志和不到最后一刻不放弃的精神!!!! 如何判断图像大小 com的参数传递问题 请问:如何将pb数据库中的表倒入vf数据库中???急!!!!!! 大家好,关于数据库的问题请,大家帮忙。 一个关于button的简单问题 有没有将图片设为桌面的api函数,若有怎样用?若没有,怎样实现该功能? 我在adotable中删除数据它老是报错:”键列信息在最后读取中改变“(急用) 如何将CString类型转换为int型? wyx病毒的所有症状表现、危害性、解决方法。 在线等待--100分(很简单的问题) 急急急!! 隐藏任务栏的问题 急急急 我配置的cgi为什么不能访问? 实在不知哪里有问题,csdn....,帮忙up一下好吗。50分捧送。 具体怎样实现对FSO(FileSystemObject)文件系统对象的禁止 为什麽我在netscape下<input type="file" name="file2">什么都没有显示 一个简单的关于运行和关闭的问题 怎样用asp实现声音留言? 在金属活动顺序中H之后的金属都不和酸反应,那么硫酸铜、硝酸银怎么制作出来的?什么叫强氧化性的酸? 形成溶液中水合与分解过程的能量变化如何表现为吸热与放热 电煤是什么煤 是怎么形成的? 下列物质可以由相应的金属和稀酸发生置换反应而制得的是A cuso4 B alcl3(说明理下列物质可以由相应的金属和稀酸发生置换反应而制得的是A cuso4 B alcl3(说明理由,急…给好评呦) 间甲基苯酚可不可以与浓溴水反应产生白色沉淀? 2Al+2NaoH+2H2O===2NaAlO2+3H2 水有参加反应吗?NaOH和水都是氧化剂吗?请解析为什么? 下列物质中,能直接用金属与稀酸反应制取的是A.Agcl B.Feso4C.Fecl3 D .Cuso4哪个正确呢,思路是怎样的,能告诉吗 Fe、H2SO4、Fe2O3、CuCl2、KOH、KCl在常温下两两混合能发生化学反应的个数为 物质电离生成水合离子时放热还是吸热 如果利用金属与酸来制取FeCl3或CuSo4是否可以?为什么? NaH是离子化合物,与水反应可生成碱和氢气,现有NaH与Al粉混合物共M克,和足量水反应共收集到H2的质量N克 则原混合物中铝的质量可能是A 12n-m B24m-5n C36n-4m Dm-24n\m 铝和氢氧化钠反应2Al + 2NaOH + 2H2O = 2NaAlO2 + 3H2↑求铝,氢氧化钠和水的准确比例?本人不想浪费原材料,请老师们精确回答! 马上就要!硫酸钾与氯化钡反应方程式 关于水合离子和水和分子.水合和电离有什么关系?氢氧化钠溶解于水电离出氢氧根离子和钠离子 哪有水合离子? 2Al+2NaOH+2H2O=2NaAlO2+3H2↑ NAOH不做氧化剂也不做还原剂吗?为什么还有特例吗?NAOH的H 的化合价不是有变化吗? 求 硫酸钾与硝酸钡反应的方程式 水合离子分子带水分子个数与什么有关? 铝和氢氧化钠溶液反应:2Al+2NaOH+2H2O=2NaAlO2+3H2 氧化剂是水.为什么N铝和氢氧化钠溶液反应:2Al+2NaOH+2H2O=2NaAlO2+3H2氧化剂是水.为什么NaOH不是氧化剂? 盐酸与硫酸钾反应方程式互滴法鉴别的......用互滴法鉴别是硫酸钾和盐酸 什么是水合离子? 琼脂糖电泳能检测50bp的DNA吗?能用琼脂糖电泳检测的50bpDNA条带吗?我用过2%的胶,80V电泳.Mark是PBR322/Mspl,电泳了90分钟,Mark还没跑开.我都先后看了30分钟,60分钟,90分钟的电泳效果图,都没有目的条 细菌吸收紫外线最快的波长是 溶质的分子或离子和水分子作用,形成水合分子或水合离子.这里的分子离子水合分子水合离子是什么意思 描绘了春雨的特征的诗句是什么? 水在直流电作用下分解成氢气和氧气属于化学性质还是化学变化 亚硫酸钾加盐酸中和再加浓溴水的离子方程式是 描写春雨缠绵,细的特点的诗句 水在直流电的作用下分解成氢气和氧气,此过程是将——能转化为——能. 亚硫酸钾和浓溴水怎么反应谢谢! 细致地描绘春雨的特征的古诗有哪些? b.在常温下,水可以变成水蒸气 c.水在直流电作用下能分解成氢气和氧气 哪个是化b.在常温下,水可以变成水蒸气c.水在直流电作用下能分解成氢气和氧气哪个是化学性质 NaH是离子化合物,与水反应可生成碱和氢气,现有NaH与Al粉混合物共M克,和足量水反应共收集到H2的质量N克,则原混合物中铝粉的质量为A(12N-M)B(24M-5N)C(36N-3M)D(M-24N/5) 如何鉴别硫酸钾和硫酸铵 电解铜现在价格? 硼砂、硼酸属于什么行业 把下列四组物质分别溶于水,得到的四组水溶液中,哪几组含有的离子种类完全相同1.NH4CI KNO3 Na2SO42.K2SO4 NaNO3 NH4CI3.NH4NO3 K2CO3 NACI 4.NaCI (NH4)2SO4 K2SO4 NaNO3 电解铜价格多少一吨 硫酸铜溶液中提取硫酸铜粉末? 340gNH4所含的原子数与多少摩尔的O2所含的分子数相同? 电解铜现在什么价格 向苯酚里面滴加溴水会有沉淀生成吗? 沼气燃烧产生什么气体.有没有毒 谁知道2004年7月电解铜价格?准确点的! 酸度和PH值有什么区别?表征实验中什么时候适宜测量酸度,什么时候该测量PH?还是二者皆可呢? O2分子的质量和O2的摩尔质量有什么区别? 物体重30N,用F=50N的力垂直压在墙上静止不动,物体所受的摩擦力是=?N 哪些蛋白质可用紫外吸收法测浓度 大气中含有甲烷吗?或者是可燃烧的气体现在全球变暖,大气中如果含有可燃气体的话;一旦发生气体自燃,会发生什么样的情况呢?到那时候会不会真的是世界末日呢? 亚硫酸钠的水溶液和二氧化硫生成什么 蛋白质中存在着哪三种氨基酸具有紫外吸收特性? 如何理解甲烷燃烧前后气体体积不变 环保甲醇燃料对身体有害吗 Phe、Tyr、Try(p)对紫外吸收峰在多少nm?蛋白质的最大吸收波长为多少nm? 化肥硫酸钾是何种物质?对人体有何影响?长期被人体吸入该物质会有什么后果? 我们怎样保护环境的理由 298K ,1大气压下.气态水的标准摩尔生产焓减去液态水的差值大约是44KJ/MOL,而水的气化热是40KJ/MOL .求之间的关系! 如何鉴别碳酸钙,碳酸氢铵,硫酸钾三种化肥如题 A物体重30N.用F50的力垂直压在墙上静止不动则A受到多少摩擦力.物体B重30N.受20N力.水平推力静止不动.物体B受多少摩擦力. 298K,OsO4(S)标准摩尔生成焓为-391,OsO4(s)的标准摩尔升华焓为56,反应OsO4(g)=Os(s)+2O2(g)标准摩尔焓变?这是热化学反应里的一道题,看来下面多数是来混分数的. 如何鉴别真假硫酸钾镁肥料
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘