LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

VB怎么判断网络不通

admin
2014年3月6日 23:38 本文热度 5478
------解决方案--------------------
方法一:
Const INADDR_NONE As Long = &HFFFFFFFF
Const PING_TIMEOUT As Long = 500
Type icmp_echo_reply
Address As Long
Status As Long
RoundTripTime As Long
DataSize As Long
DataPointer As Long
Data As String * 250
End Type

Declare Function inet_addr Lib "WSOCK32.DLL " (ByVal s As String) As Long
Declare Function IcmpCreateFile Lib "icmp.dll " () As Long
Declare Function IcmpSendEcho Lib "icmp.dll " (ByVal IcmpHandle As Long, _
ByVal DestinationAddress As Long, ByVal RequestData As String, _
ByVal RequestSize As Long, ByVal RequestOptions As Long, _
ReplyBuffer As icmp_echo_reply, ByVal ReplySize As Long, _
ByVal TimeOut As Long) As Long
Declare Function IcmpCloseHandle Lib "icmp.dll " (ByVal IcmpHandle As Long) As Long

Function Ping(ip As String) As Boolean
Dim Echo As icmp_echo_reply
Dim Mystr As String
Dim hPort As Long
Mystr = inet_addr(ip)
If Mystr <> INADDR_NONE Then
hPort = IcmpCreateFile()
If hPort Then
Call IcmpSendEcho(hPort, Mystr, 0, 0, 0, Echo, Len(Echo), PING_TIMEOUT) '發送回響請求報文
Call IcmpCloseHandle(hPort)
End If
If Echo.Status = 0 Then Ping = True Else Ping = False
End If
End Function

Sub Command1_Click()
If Ping( "172.16.17.175 ") Then MsgBox "ping成功 " Else MsgBox "ping失敗 "
End Sub

该文章在 2014/3/6 23:38:04 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved