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

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

DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 如何处理float型的长度问题? 请大家帮忙这个存储过程该怎样设计?呵呵,不好意思!第一次发贴发错了^_^ 在线请教,找错 请高手门帮我解决一个问题! 请问如何把一个form的关闭按钮屏蔽掉而只留下标题栏? 高手::::请教一个简单的问题???? 还是.net连oracle的问题 急救!VB访问Linux服务器上的Oracle8i的问题 如何在没有安装.net的机子上运行C#程序阿?? 在模板实参推演中,数组的长度是如何得知的呢??? asp作提交表单 自动发到指定邮箱里。 急哭了!在线等待!!!!!! 为何我的sql服务管理器停止不了,一直为“正在停止”,而一旦停止了却又启动不起来? 怎样调用IE的一些功能??? 求教,急! 初学asp,问个简单的问题吧:怎么样知道客户端的时间? strus的配置和使用,我用jdevelop, ADO+MSSQL对DataSet中Record定位 欢迎讨论,关于水晶报表实现:折线图,或者柱形图问题 在线求助:如何读取B端操作系统信息和浏览器信息? 系統用戶使用權限的設計 combox 问题 急寻MAYA编程高手 服务器端有一个很大的XML(10M)文件,怎样从client端读取? CMainFrame 的窗口句柄怎么得到 从数据库读出文本如何保持原来格式 ? 在winform中,请教关于combobox的一个小问题 Stream Write error??????????? 存储过程的and和or连用 谁有新浪或网易等的短信网关接口? 请问如何在水晶报表里面定义一个全局变量?谢谢 如何配置SMTP服务 使用触发器时想到的 为什么要实现双接口 求DOM(DOMAIN OBJECT MODEL)的详细资料,顶着有分 winxp 在重启时总是提示:"此媒体的类型产品号无效请用正确的cd重新安装",系统进不去! 那位老大给仍一个visual assist 6.0的key,等待中。。。。 请问哪儿有类似于TDBchart数据显示的图形控件? 服务器端有一个很大的XML(10M)文件,怎样从client端读取? 业务导肮? 安全操作系统,谁能用? delphi7中怎么关闭一个子窗体,然后又能正常创建 急!请问怎样把SimensSDK和CodeWarrior整合起来? 江湖救急! 还是关于两个时间之间的处理的问题,大家看看! 高分求助:关于OPENFORM的问题! <秦>(全本) :am(酒徒) 强烈推荐 安全操作系统,谁能用? 高手助我!!!如何从数据库中的日期格式中分别取得年、月、日??? 关于拦截文件操作的API的钩子程序求教:qq:55020921(再问) 我用asp.net开发的网站。客户机没装。net框架,能不能访问网站。 跨年的问题 在线等 谢谢 椭圆中的abc是什么意思就是c\a啊什么的 如图所示,在正三棱锥A-BCD中,E、F分别为BD、AD的中点,EF⊥CF,AB=AC=AD=1,则该正三棱锥的体积等于? 正三棱锥A-BCD中,EF分别是AB,BC中点,EF⊥DE,BC=1,则正三棱柱A-BCD体积? 用图表示椭圆的abc,F1F2RT 在正三棱锥A-BCD中,E、F分别是AB、BC的中点,EF垂直DE,且BC=1,则正三棱锥A-BCD的体积为多少? 椭圆中abc关系 赋值法在解答题赋值法可以在解答题里用么?我看着到选择题里很快的 请问基尼系数的公式是? 母亲老花眼了怎么办 1.Oh,you hurt me!Sorry,but I didn't mean ____.A.to do B.to C.doing D.doing so2.Tom was not quite himself at the meeting.I was chocked that he___ have said such a thing to you.A.should B.might C.can D.must3.Could we make it on May ______________A.You 在正三棱锥A-BCD中,E、F分别是AB、BC的中点,EF⊥DE,且BC=1,则正 三棱锥A-BCD的体积是 韩媒抱怨中国雾霾为“人类历史上最严重英国一医院误诊流产百例 议员促彻查温州五岁男童无故头部遭陌生男子砍两刀伊媒:中伊就220亿石油欠款达成协议“变形”却不“金刚”英汉患病被迫宅居日本调查发现:口腔护理有利癌症治疗最贵钻石亮相纽约 估价超六千万美元(空气污染最严峻季节将来临 浙中北多地武林商圈将新增1000个停车位法国两名记者命丧马里(图)韩媒:中国雾霾为“人类历史上最严重污农业三项补贴改革今年全面推开:多种粮海关总署:前4月我国进出口总值同比下16-05-09 新闻和报纸摘要全文16-05-09 新闻和报纸摘要简讯【劳动者之歌】王阳:为航天事业多做贡福建泰宁山体滑坡41人失联 救援行动北京市属12家医院与小汤山医院签约 南方暴雨天气仍将持续 有关部门提醒防海军持续搜救失事鲁荣渔58398号渔福建三明山体滑坡袭工地 习近平要求全人民日报:全面从严治党是治国理政的根
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘