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

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

【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果&#183;巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 vb.net的打包问题 很小的程序,出问题~ 我遍了一个简单的ODBC实现,怎么不能通过? &&为何意? sql安全问题 在jsp中有哪个函数可以得到ping一个IP的时间,还有怎样得到从查询到得到结果所发费的时间? 谁有关于sql数据库开发的论文,题目是学生档案管理,相关的也可以。(给500) 请教思归!!asp.net中弹出对话框的问题 怎样设置权限。 很简单的一个关于在文本框中换行的问题 急求VB+sqlserver开发学生档案管理方面的论文。高分(500) 还是多表问题 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问,ConnectionString 属性尚未初始化? 爱上一朵有主之花,郁闷ing,请各位出出注意。 为何我没法将贴子发出去?! 爱上一朵有主之花,郁闷ing,请各位出出注意。 请问全局对象为什么先赋值为NULL? 急急急急!!急死我了!大哥们帮帮忙,打印不正确走纸问题! 硬汉对照:一位计算机大师,LISP语言的创造者之人生感悟。看者玩呗。[zt] 爱上一朵有主之花,郁闷ing,请各位出出注意。 请看这段JDBC代码 ./ 是什么意思? 如何把WEB Method指定为用GET方法传递常数? 像MSN那种有邮件时就提示的那个小窗口要怎么做? 用什么API函数可以实现big5转换为gb 关于文件上传问题,大家都使用htmlcontrols.htminputfile控件吗? 各位大虾,关于扫描仪的错误2800:0000是指什么错误?急!!! 请问如何在载入页面前,跳出一个询问用户名和密码的窗口,然后验证用户身份? MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 关于上网的问题 关于图片的循环移动问题 寻求共同创业的伙伴! 关于Keil C51的编译问题 谁有《 Inside The C++ Object Model》英文版电子版 请教《深入浅出MFC》中有关“动态创建”的一个问题。 图像缩放和居中显示的问题 请教如何用DDraw实现屏幕随鼠标移动而滚动,就象星际中的地图比屏幕大,但可以滚动显示。 水稻稻叶发黄是什么病底叶先黄逐渐向上发展,此时稻已抽稻穗缺肥是肯定的,不只是缺肥,两个综合吧! 帮忙给下面的句子找找错误首先使我们养成良好习惯 to begin with to make people form good habits.其次树立正确的人生观 then set up the correct outlook on life.我们将努力做好这件事 we will try our best to do thing 简述经典力学的发展过程,举例其中重要人物的贡献.结合牛顿自然哲学思想谈谈自己的体会. 使用玉米苗后 除草剂的土水稻育苗有要害吗我们家想用玉米地里的土席稻苗.玉米地去年打的玉米苗后除草剂【玉飞】牌的,用这样的土育苗会有药害吗? 这个句子有3处错误,暑假的一天中午,黎明正在家里看“西游记”.正当他看的津津有味的时候,居然听到妈妈在屋外大声喊道:“下雨啦,快收衣服!”他急忙赶快向屋外跑去. 椭圆到相离直线的最短距离怎么求? 养殖场养了黑猪和白猪共4头,黑猪每头重108千克,白猪每头重124千克,4头猪可能共重多少千克? 帮助找找句中的错误.They can not put up with that the west culture destroys our traditional culture .The travelers hoping to enjoy Chinese traditional culture will not feel our culture exactly. 子弹的速度 c什么时候念音标k什么时候念音标sC在英语单词中,什么时候念音标/k/什么时候念音标/s/ 半径为R的光滑半圆环轨道固定在竖直平面内,从与半圆环相吻合的光滑斜轨道上高h=3R处,释放一个质量为m的小球,求在A.B点时的速度大小 视你如命表示我的宿命 翻译成英文怎么说? 棉花烂根、死苗的原因谁能帮着找找棉花前期烂根、死苗、枯黄萎病、中后期落叶、落桃等病症的发病原因?最好能有详细、对路的回答,不是在网上拷贝过来的!或者帮着找一个这方面的专业 如图所示,一光滑斜面连接着一光滑竖直圆轨道轨道半径为R,现有一质量为m的小球从h=3R的高度由静止滑下,试通过计算说明质点能否滑过轨道的最高点?求对轨道的压力 数学椭圆上的电到直线的最短距离问题.椭圆X^2/16+y^2/9上的电到直线l:x+y-9=0的距离最小值.答案是2√2用三角函数什么的.我用直线系算的平行与直线做椭圆切线.求切线与直线距离得4啊.求大神 故事关于黑猪白猪的要搞笑!有分~关于黑猪白猪的要最搞笑的要它们两只猪的故事要同时出现 哪些牌子的手机有英语字典,具体型号是什么? 蜜蜂、蟋蟀、萤火虫、青蛙、知了同大灯笼、弹琴、跳舞、唱歌、敲鼓连线 人们生活交往和公共生活中应当遵守的最基本道德准则是什么 英语词典哪些牌子比较好买电子词典主要是为了发音,帮忙推荐个价格便宜的.音标我没学会,买的那一本新英汉大词典第四版单词都不读 漂白粉受潮了,会影响出厂水的余氯吗?请各位大虾帮帮偶的忙哦!偶要晕死鸟 ```谢谢鸟哈`` 公民在公共生活领域应当遵守的道德准则是什么? 吊扇怎么固定在%吊扇怎么固定在天花板上面呀!用什么东西固定的 自来水工艺中,余氯偏低是什么原因? 深度技术系统下载要具有哪些特点的比较好呢? 英语读书机中哪个牌子最实用?教材最全面 功能最齐全 售后服务有保障 价格最合理的读书机是哪个牌子的>? 在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?Why?在2HgO=2Hg+O2中,谁是氧化剂?谁是还原剂?为什么?.在2Na+Cl2=2NaCl中,为什么钠失去两个电子? ()是做人的基本准则,是人们古往今来的交往中产生的最根本的道德规范,也是会计职业道德的精髓.A 爱岗敬业 B 诚实守信 C 坚持准则 D 奉献社会 溶解CuS或SnS2沉淀应该选用HCl或HNO3? 并写出其反应式 历史上最杰出的十位物理学家是谁 家庭文明公约的交往与生活怎么写 CuS能不能溶解在H2SO4中? 历史上最牛的物理学家是谁? 鄂鱼用什么呼吸的.. 如何用氧化还原法溶解CuS 洗衣机因长期使用会粘上很多污物和细菌如何消毒 鳄鱼的双重呼吸不需要了.在2010年的一项研究,发现美国短吻鳄有独特呼吸方式.[2]这项研究发现,当美国短吻鳄吸气时,吸进的空气会进入第二支气管,流经交换气体的第三支气管,最后进入第一 第6小题填时间单位? 凸(艹皿艹)用搜狗怎么打 鳄鱼皮很粗糙,为什么在水里那么灵活?一般鱼类的皮都很光滑,虽然鳄鱼是爬行动物,但是他也是在水里扑出来捕捉猎物,按道理说鳄鱼皮不应该这么粗糙的. 如图所示,一质量为m的小球由足够高的h处沿光滑轨道由静止开始滑入环形轨道,则 配制溶液时,用生锈的砝码称重,会导致P%变大还是变小? 又麻烦大家帮忙看看这几个字是什么字 谢谢了. 碱式碳酸锌制备活性氧化锌的化学方程式 彡用搜狗怎么打? 麻烦帮忙想两个词语.可以把黛雪,这个名字放进去,最好一共八个字.谢谢 中国古代《庖丁解牛》的故事反映的职业道德精神是 在配制一定浓度的溶液中,称量时 如果天平砝码沾有其他物质或生锈了.它的浓度会有什么影响? 半径为R的竖直圆轨道,一质量为M的球从轨道最低点以v=根号6RG开始沿圆形轨道运动,求通过最高点v 新装修房能使用什么药剂处理? 艹灬●用搜狗怎么打 别董大 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君?1.解释诗句意思 2.这首诗是( )时期著名诗人( )的作品,他的诗歌语言质朴,( ),( ),风格十分鲜明,这也是一首 麻烦帮忙找找句子中的错误All what I know is that I'm thinking of you almost all the time.I want to know you,touch you.I can't image how I'll feel when I can see one of you standing right in face of me.I even don't know what you're like exa 水厂过滤添加药剂,二氧化氯,氯气,氯片有什么区别啊? 水稻幼苗烂根,不长,怎么办 饲养场里有黑猪和白猪共180头,其中黑猪比白猪少3分之1,黑猪有多少头? 哪里的水质处理药剂最好!是游泳池的水质处理药剂,现在的游泳池水质都太差啦,池水有的很浑浊,水质颜色有发黄的,有发白的,还有水质颜色是绿色的! 为什么土猪养殖的时间比白猪比较长? 碳酸钾和碳酸氢钾水溶液都呈碱性是否就意味着都是碱式盐? 1.小车与货物的质量为50kg,沿踏板将其匀速推上汽车.若车厢离地面的高度为1.0m,踏板的长度为4.0m,求在在个过程中人做了多少功,人的推力有多大?如果直接把小车与货物搬上去呢?不计摩擦阻力 李源潮会见欧洲客人李源潮会见欧洲客人全面深化改革 再创体制机制新优势“染缸”绍兴重手遏制纺织行业三大污染日本拟将钓鱼岛海域列入重点防御“灰色“刀锋战士”将面临检方提出的两项新指南非副总统希望更多中国企业参与非洲交巴基斯坦称美无人机5年来打死两千余人复旦投毒案嫌犯被控以投毒方式故意杀人中储粮人士:目前国内进口菜籽油基本上中国成为韩国中小企业最重要海外市场韩国高官吁国际社会为实现半岛无核化加美国能源部长:美中应加强清洁能源合作南非副总统希望更多中国企业参与非洲交中国商务部敦促欧盟执行WTO中欧紧固中国外长敦促日方严肃对待阻碍中日关系浙江省第六届金锤奖结果揭晓 300多国际晚班车:驻韩美军邮局成\"毒品仓中国外交官在朝鲜参加支农活动埃及穆兄会又一高级领导人被捕杨澜提问郎朗被指语意不善 晒合影澄清新型装备助力城市反恐 无人机拐弯枪齐互联客全国招商启动 汇金在线签北京代【故事】有一种金靴叫做38岁的卢卡·1256场131球!这位历史上最会进世俱杯最新夺冠赔率:巴萨居首 恒大位曾亦:亲亲与尊尊 论儒家思想中的“普如何在party上1秒找到酒友福利社 | 海淘经验足 只选平价货中国环保部满意北京启动重污染红色预警行业发展充满不确定性 无人机该何去何别喊冷,看11月车企销量回暖抗寒冬!营销|2015年汽车行业十大优秀营销父母给不起8000元捞尸钱 儿子遗体菜品新鲜,必定让你爱不释手黑龙江龙江县政府“特事特办”违规审批美国留学熬到毕业才发现就业难?还是早E租宝 何以成为众矢之的终于完工的新家,电视墙绝对让你眼前一龙凯锋:非洲是中国崛起的根据地冬天竟敢这么用车?那真离报废也不远了欧冠前瞻:曼联不赢或出局 曼城马竞已
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘