怎樣在VB.net中獲得ping命令的結(jié)果

首先添加一模塊，代碼如下

創(chuàng)新互聯(lián)長期為1000+客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為肅寧企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)，肅寧網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

Option Explicit

Private Const IP_SUCCESS As Long = 0

Private Const IP_STATUS_BASE As Long = 11000

Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)

Private Const IP_DEST_NET_UNREACHABLE As Long = (11000 + 2)

Private Const IP_DEST_HOST_UNREACHABLE As Long = (11000 + 3)

Private Const IP_DEST_PROT_UNREACHABLE As Long = (11000 + 4)

Private Const IP_DEST_PORT_UNREACHABLE As Long = (11000 + 5)

Private Const IP_NO_RESOURCES As Long = (11000 + 6)

Private Const IP_BAD_OPTION As Long = (11000 + 7)

Private Const IP_HW_ERROR As Long = (11000 + 8)

Private Const IP_PACKET_TOO_BIG As Long = (11000 + 9)

Private Const IP_REQ_TIMED_OUT As Long = (11000 + 10)

Private Const IP_BAD_REQ As Long = (11000 + 11)

Private Const IP_BAD_ROUTE As Long = (11000 + 12)

Private Const IP_TTL_EXPIRED_TRANSIT As Long = (11000 + 13)

Private Const IP_TTL_EXPIRED_REASSEM As Long = (11000 + 14)

Private Const IP_PARAM_PROBLEM As Long = (11000 + 15)

Private Const IP_SOURCE_QUENCH As Long = (11000 + 16)

Private Const IP_OPTION_TOO_BIG As Long = (11000 + 17)

Private Const IP_BAD_DESTINATION As Long = (11000 + 18)

Private Const IP_ADDR_DELETED As Long = (11000 + 19)

Private Const IP_SPEC_MTU_CHANGE As Long = (11000 + 20)

Private Const IP_MTU_CHANGE As Long = (11000 + 21)

Private Const IP_UNLOAD As Long = (11000 + 22)

Private Const IP_ADDR_ADDED As Long = (11000 + 23)

Private Const IP_GENERAL_FAILURE As Long = (11000 + 50)

Private Const MAX_IP_STATUS As Long = (11000 + 50)

Private Const IP_PENDING As Long = (11000 + 255)

Private Const PING_TIMEOUT As Long = 500

Private Const WS_VERSION_REQD As Long = H101

Private Const MIN_SOCKETS_REQD As Long = 1

Private Const SOCKET_ERROR As Long = -1

Private Const INADDR_NONE As Long = HFFFFFFFF

Private Const MAX_WSADescription As Long = 256

Private Const MAX_WSASYSStatus As Long = 128

Public PingTime As Long

Private Type ICMP_OPTIONS

Ttl As Byte

Tos As Byte

Flags As Byte

OptionsSize As Byte

OptionsData As Long

End Type

Private Type ICMP_ECHO_REPLY

Address As Long

status As Long

RoundTripTime As Long

DataSize As Long

DataPointer As Long

Options As ICMP_OPTIONS

Data As String * 250

End Type

Private Type WSADATA

wVersion As Integer

wHighVersion As Integer

szDescription(0 To MAX_WSADescription) As Byte

szSystemStatus(0 To MAX_WSASYSStatus) As Byte

wMaxSockets As Long

wMaxUDPDG As Long

dwVendorInfo As Long

End Type

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Declare Function WSAStartup Lib "wsock32" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long

Private Declare Function WSACleanup Lib "wsock32" () As Long

Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long

Private Declare Function inet_addr Lib "wsock32" (ByVal s As String) As Long

Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As Long

Private 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

'Private Declare Function WSAGetLastError Lib "wsock32" () As Long

'Private Declare Function gethostname Lib "wsock32" (ByVal szHost As String, ByVal dwHostLen As Long) As Long

'Private Declare Function gethostbyname Lib "wsock32" (ByVal szHost As String) As Long

'Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (xDest As Any, xSource As Any, ByVal nbytes As Long)

Private Function GetStatusCode(status As Long) As String

On Error GoTo ErrLine

Dim Msg As String

GetStatusCode = ""

Select Case status

Case IP_SUCCESS: Msg = "ip success"

Case INADDR_NONE: Msg = "inet_addr: bad IP format"

Case IP_BUF_TOO_SMALL: Msg = "ip buf too_small"

Case IP_DEST_NET_UNREACHABLE: Msg = "ip dest net unreachable"

Case IP_DEST_HOST_UNREACHABLE: Msg = "ip dest host unreachable"

Case IP_DEST_PROT_UNREACHABLE: Msg = "ip dest port unreachable"

Case IP_DEST_PORT_UNREACHABLE: Msg = "ip dest port unreachable"

Case IP_NO_RESOURCES: Msg = "ip no resources"

Case IP_BAD_OPTION: Msg = "ip bad option"

Case IP_HW_ERROR: Msg = "ip hw_error"

Case IP_PACKET_TOO_BIG: Msg = "ip packet too_big"

Case IP_REQ_TIMED_OUT: Msg = "ip req timed out"

Case IP_BAD_REQ: Msg = "ip bad req"

Case IP_BAD_ROUTE: Msg = "ip bad route"

Case IP_TTL_EXPIRED_TRANSIT: Msg = "ip ttl expired transit"

Case IP_TTL_EXPIRED_REASSEM: Msg = "ip ttl expired reassem"

Case IP_PARAM_PROBLEM: Msg = "ip param_problem"

Case IP_SOURCE_QUENCH: Msg = "ip source quench"

Case IP_OPTION_TOO_BIG: Msg = "ip option too_big"

Case IP_BAD_DESTINATION: Msg = "ip bad destination"

Case IP_ADDR_DELETED: Msg = "ip addr deleted"

Case IP_SPEC_MTU_CHANGE: Msg = "ip spec mtu change"

Case IP_MTU_CHANGE: Msg = "ip mtu_change"

Case IP_UNLOAD: Msg = "ip unload"

Case IP_ADDR_ADDED: Msg = "ip addr added"

Case IP_GENERAL_FAILURE: Msg = "ip general failure"

Case IP_PENDING: Msg = "ip pending"

Case PING_TIMEOUT: Msg = "ping timeout"

Case Else: Msg = "unknown msg returned"

End Select

GetStatusCode = Msg

Exit Function

ErrLine:

End Function

Private Function Ping(sAddress As String, sDataToSend As String, ECHO As ICMP_ECHO_REPLY) As Long

On Error GoTo ErrLine

Dim hPort As Long

Dim dwAddress As Long

dwAddress = inet_addr(sAddress)

If dwAddress INADDR_NONE Then

hPort = IcmpCreateFile()

If hPort Then

Call IcmpSendEcho(hPort, dwAddress, sDataToSend, Len(sDataToSend), 0, ECHO, Len(ECHO), PING_TIMEOUT)

Ping = ECHO.status

Call IcmpCloseHandle(hPort)

End If

Else

Ping = INADDR_NONE

End If

Exit Function

ErrLine:

Ping = INADDR_NONE

End Function

Public Function PingIP(ByVal szIp As String) As Boolean

On Error GoTo ErrLine

Dim WSAD As WSADATA

Dim ECHO As ICMP_ECHO_REPLY

Dim ret As Long

'Delay 150

PingIP = False

PingTime = Empty

If WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS Then

ret = Ping(Trim(szIp), "tanaya", ECHO)

PingTime = ECHO.RoundTripTime

If InStr(1, GetStatusCode(ret), "success") 0 Then

WSACleanup

PingIP = True

PingTime = ECHO.RoundTripTime

Exit Function

End If

End If

Exit Function

ErrLine:

End Function

然后建立一窗體，一command

Private Sub Command1_Click()

If PingIP("你需要訪問的ip") = True Then

'你自己增加需要執(zhí)行的代碼

else

'增加不聯(lián)網(wǎng)時(shí)需要執(zhí)行的代碼

end if

VB.net 如何ping一個(gè)ip地址并獲取延遲值？

Dim?b?As?Boolean?=?My.Computer.Network.Ping("192.168.1.1",?1000)?'返回ping結(jié)果，true表示通，false表示不通，1000表示1000毫秒內(nèi)返回結(jié)果?

If?b?=?True?Then?'指定時(shí)間內(nèi)ping通

Shell("cmd?/c?ping?192.168.1.1??C:\time.txt")?'在C盤time.txt文件中保存ping的結(jié)果

Else?'超時(shí)

MsgBox("999")?'彈出999提示

End?If

在vb.net里 ping域名得到ip地址 怎么弄

我來說說...i試試看行不行。Option Explicit

Const SYNCHRONIZE = H100000

Const INFINITE = HFFFF

Const WAIT_OBJECT_0 = 0

Const WAIT_TIMEOUT = H102

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub cmdClear_Click()

txtIP.Text = ""

txtNumber.Text = ""

Open "C:\log.txt" For Output As #1

Close #1

txtOutPut.Text = ""

End Sub

Private Sub cmdPing_Click()

Dim ShellX As String

Dim lPid As Long

Dim lHnd As Long

Dim lRet As Long

Dim VarX As String

frmMain.MousePointer = 11

If txtIP.Text "" Then

DoEvents

ShellX = Shell("command.com /c ping -n " txtNumber.Text " " txtIP.Text " C:\log.txt", vbHide)

lPid = ShellX

If lPid 0 Then

lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)

If lHnd 0 Then

lRet = WaitForSingleObject(lHnd, INFINITE)

CloseHandle (lHnd)

End If

Beep

frmMain.MousePointer = 0

Open "C:\log.txt" For Input As #1

txtOutPut.Text = Input(LOF(1), 1)

Close #1

End If

Else

frmMain.MousePointer = 0

VarX = MsgBox("You have not entered an ip address or the number of times you want to ping.", vbCritical, "Error has occured")

End If

End Sub

求大神指點(diǎn)vb.net 怎么判斷 網(wǎng)絡(luò)是否連接 和取本機(jī)局域網(wǎng)IP和互聯(lián)網(wǎng)IP

你這段代碼可以獲得該主機(jī)名下的所有ip，每個(gè)ip地址都是有類型簇的，可以區(qū)別本地地址和網(wǎng)絡(luò)地址、ip6地址。

你獲取索引為0的ip，不一定是正確的網(wǎng)絡(luò)地址，它有時(shí)順序在中間，在后面。

應(yīng)該獲取所有ip，再通過ip地址簇類型區(qū)分

判斷連接本身有一個(gè)函數(shù)，不過有時(shí)沒聯(lián)網(wǎng)也是真。

可以用ping，ping百度、ping訪問速度快、不經(jīng)常維護(hù)斷線的網(wǎng)絡(luò)主機(jī)。

用VB.NET怎么編一個(gè)ping的程序

詳見下面代碼

Dim m_ping As New System.Net.NetworkInformation.Ping

Dim m_PingReply As System.Net.NetworkInformation.PingReply = m_ping.Send("192.168.1.1", 1000)'設(shè)置為自己要ping的ip地址

If m_PingReply.Status = Net.NetworkInformation.IPStatus.Success Then

MsgBox(m_PingReply.RoundtripTime)'返回網(wǎng)絡(luò)延遲

Else'返回不通的原因

MsgBox(m_PingReply.Status.ToString)

End If

如何在VB中使用PING命令

'標(biāo)準(zhǔn)模塊

Option?Explicit

Public?Const?IP_STATUS_BASE?=?11000

Public?Const?IP_SUCCESS?=?0

Public?Const?IP_BUF_TOO_SMALL?=?(11000?+?1)

Public?Const?IP_DEST_NET_UNREACHABLE?=?(11000?+?2)

Public?Const?IP_DEST_HOST_UNREACHABLE?=?(11000?+?3)

Public?Const?IP_DEST_PROT_UNREACHABLE?=?(11000?+?4)

Public?Const?IP_DEST_PORT_UNREACHABLE?=?(11000?+?5)

Public?Const?IP_NO_RESOURCES?=?(11000?+?6)

Public?Const?IP_BAD_OPTION?=?(11000?+?7)

Public?Const?IP_HW_ERROR?=?(11000?+?8)

Public?Const?IP_PACKET_TOO_BIG?=?(11000?+?9)

Public?Const?IP_REQ_TIMED_OUT?=?(11000?+?10)

Public?Const?IP_BAD_REQ?=?(11000?+?11)

Public?Const?IP_BAD_ROUTE?=?(11000?+?12)

Public?Const?IP_TTL_EXPIRED_TRANSIT?=?(11000?+?13)

Public?Const?IP_TTL_EXPIRED_REASSEM?=?(11000?+?14)

Public?Const?IP_PARAM_PROBLEM?=?(11000?+?15)

Public?Const?IP_SOURCE_QUENCH?=?(11000?+?16)

Public?Const?IP_OPTION_TOO_BIG?=?(11000?+?17)

Public?Const?IP_BAD_DESTINATION?=?(11000?+?18)

Public?Const?IP_ADDR_DELETED?=?(11000?+?19)

Public?Const?IP_SPEC_MTU_CHANGE?=?(11000?+?20)

Public?Const?IP_MTU_CHANGE?=?(11000?+?21)

Public?Const?IP_UNLOAD?=?(11000?+?22)

Public?Const?IP_ADDR_ADDED?=?(11000?+?23)

Public?Const?IP_GENERAL_FAILURE?=?(11000?+?50)

Public?Const?MAX_IP_STATUS?=?11000?+?50

Public?Const?IP_PENDING?=?(11000?+?255)

Public?Const?PING_TIMEOUT?=?200

Public?Const?WS_VERSION_REQD?=?H101

Public?Const?WS_VERSION_MAJOR?=?WS_VERSION_REQD?\?H100?And?HFF

Public?Const?WS_VERSION_MINOR?=?WS_VERSION_REQD?And?HFF

Public?Const?MIN_SOCKETS_REQD?=?1

Public?Const?SOCKET_ERROR?=?-1

Public?Const?MAX_WSADescription?=?256

Public?Const?MAX_WSASYSStatus?=?128

Public?Type?ICMP_OPTIONS

Ttl?As?Byte

Tos?As?Byte

Flags?As?Byte

OptionsSize?As?Byte

OptionsData?As?Long

End?Type

Dim?ICMPOPT?As?ICMP_OPTIONS

Public?Type?ICMP_ECHO_REPLY

Address?As?Long

status?As?Long

RoundTripTime?As?Long

DataSize?As?Integer

Reserved?As?Integer

DataPointer?As?Long

Options?As?ICMP_OPTIONS

Data?As?String?*?250

End?Type

Public?Type?HOSTENT

hName?As?Long

hAliases?As?Long

hAddrType?As?Integer

hLen?As?Integer

hAddrList?As?Long

End?Type

Public?Type?WSADATA

wVersion?As?Integer

wHighVersion?As?Integer

szDescription(0?To?MAX_WSADescription)?As?Byte

szSystemStatus(0?To?MAX_WSASYSStatus)?As?Byte

wMaxSockets?As?Integer

wMaxUDPDG?As?Integer

dwVendorInfo?As?Long

End?Type

Public?Declare?Function?IcmpCreateFile?Lib?"icmp.dll"?()?As?Long

Public?Declare?Function?IcmpCloseHandle?Lib?"icmp.dll"?(ByVal?IcmpHandle?As?Long)?As?Long

Public?Declare?Function?IcmpSendEcho?Lib?"icmp.dll"?(ByVal?IcmpHandle?As?Long,?ByVal?DestinationAddress?As?Long,?ByVal?RequestData?As?String,?ByVal?RequestSize?As?Integer,?ByVal?RequestOptions?As?Long,?ReplyBuffer?As?ICMP_ECHO_REPLY,?ByVal?ReplySize?As?Long,?ByVal?Timeout?As?Long)?As?Long

Public?Declare?Function?WSAGetLastError?Lib?"WSOCK32.DLL"?()?As?Long

Public?Declare?Function?WSAStartup?Lib?"WSOCK32.DLL"?(ByVal?wVersionRequired?As?Long,?lpWSADATA?As?WSADATA)?As?Long

Public?Declare?Function?WSACleanup?Lib?"WSOCK32.DLL"?()?As?Long

Public?Declare?Function?gethostname?Lib?"WSOCK32.DLL"?(ByVal?szHost?As?String,?ByVal?dwHostLen?As?Long)?As?Long

Public?Declare?Function?gethostbyname?Lib?"WSOCK32.DLL"?(ByVal?szHost?As?String)?As?Long

Public?Declare?Sub?RtlMoveMemory?Lib?"kernel32"?(hpvDest?As?Any,?ByVal?hpvSource?As?Long,?ByVal?cbCopy?As?Long)

Public?Function?GetStatusCode(status?As?Long)?As?String

Dim?msg?As?String

Select?Case?status

Case?IP_SUCCESS:?msg?=?"ip?success"

Case?IP_BUF_TOO_SMALL:?msg?=?"ip?buf?too_small"

Case?IP_DEST_NET_UNREACHABLE:?msg?=?"ip?dest?net?unreachable"

Case?IP_DEST_HOST_UNREACHABLE:?msg?=?"ip?dest?host?unreachable"

Case?IP_DEST_PROT_UNREACHABLE:?msg?=?"ip?dest?prot?unreachable"

Case?IP_DEST_PORT_UNREACHABLE:?msg?=?"ip?dest?port?unreachable"

Case?IP_NO_RESOURCES:?msg?=?"ip?no?resources"

Case?IP_BAD_OPTION:?msg?=?"ip?bad?option"

Case?IP_HW_ERROR:?msg?=?"ip?hw_error"

Case?IP_PACKET_TOO_BIG:?msg?=?"ip?packet?too_big"

Case?IP_REQ_TIMED_OUT:?msg?=?"ip?req?timed?out"

Case?IP_BAD_REQ:?msg?=?"ip?bad?req"

Case?IP_BAD_ROUTE:?msg?=?"ip?bad?route"

Case?IP_TTL_EXPIRED_TRANSIT:?msg?=?"ip?ttl?expired?transit"

Case?IP_TTL_EXPIRED_REASSEM:?msg?=?"ip?ttl?expired?reassem"

Case?IP_PARAM_PROBLEM:?msg?=?"ip?param_problem"

Case?IP_SOURCE_QUENCH:?msg?=?"ip?source?quench"

Case?IP_OPTION_TOO_BIG:?msg?=?"ip?option?too_big"

Case?IP_BAD_DESTINATION:?msg?=?"ip?bad?destination"

Case?IP_ADDR_DELETED:?msg?=?"ip?addr?deleted"

Case?IP_SPEC_MTU_CHANGE:?msg?=?"ip?spec?mtu?change"

Case?IP_MTU_CHANGE:?msg?=?"ip?mtu_change"

Case?IP_UNLOAD:?msg?=?"ip?unload"

Case?IP_ADDR_ADDED:?msg?=?"ip?addr?added"

Case?IP_GENERAL_FAILURE:?msg?=?"ip?general?failure"

Case?IP_PENDING:?msg?=?"ip?pending"

Case?PING_TIMEOUT:?msg?=?"ping?timeout"

Case?Else:?msg?=?"unknown?msg?returned"

End?Select

GetStatusCode?=?CStr(status)??"?[?"??msg??"?]"

End?Function

Public?Function?HiByte(ByVal?wParam?As?Integer)

HiByte?=?wParam?\?H1?And?HFF

End?Function

Public?Function?LoByte(ByVal?wParam?As?Integer)

LoByte?=?wParam?And?HFF

End?Function

Public?Function?Ping(szAddress?As?String,?ECHO?As?ICMP_ECHO_REPLY)?As?Long

Dim?hPort?As?Long

Dim?dwAddress?As?Long

Dim?sDataToSend?As?String

Dim?iOpt?As?Long

sDataToSend?=?"Echo?This"

dwAddress?=?AddressStringToLong(szAddress)

hPort?=?IcmpCreateFile()

If?IcmpSendEcho(hPort,?dwAddress,?sDataToSend,?Len(sDataToSend),?0,?ECHO,?Len(ECHO),?PING_TIMEOUT)?Then

'the?ping?succeeded,

'.Status?will?be?0

'.RoundTripTime?is?the?time?in?ms?for?the?ping?to?complete,

'.Data?is?the?data?returned?(NULL?terminated)

'.Address?is?the?Ip?address?that?actually?replied

'.DataSize?is?the?size?of?the?string?in?.Data

Ping?=?ECHO.RoundTripTime

Else

Ping?=?ECHO.status?*?-1

End?If

Call?IcmpCloseHandle(hPort)

End?Function

Function?AddressStringToLong(ByVal?tmp?As?String)?As?Long

Dim?i?As?Integer

Dim?parts(1?To?4)?As?String

i?=?0

'we?have?to?extract?each?part?of?the

'123.456.789.123?string,?delimited?by

'a?period

While?InStr(tmp,?".")??0

i?=?i?+?1

parts(i)?=?Mid(tmp,?1,?InStr(tmp,?".")?-?1)

tmp?=?Mid(tmp,?InStr(tmp,?".")?+?1)

Wend

i?=?i?+?1

parts(i)?=?tmp

If?i??4?Then

AddressStringToLong?=?0

Exit?Function

End?If

AddressStringToLong?=?Val("H"??Right("00"??Hex(parts(4)),?2)??_

Right("00"??Hex(parts(3)),?2)??_

Right("00"??Hex(parts(2)),?2)??_

Right("00"??Hex(parts(1)),?2))

End?Function

Public?Function?SocketsCleanup()?As?Boolean

Dim?X?As?Long

X?=?WSACleanup()

If?X??0?Then

MsgBox?"Windows?Sockets?error?"??Trim$(Str$(X))??"?occurred?in?Cleanup.",?vbExclamation

SocketsCleanup?=?False

Else

SocketsCleanup?=?True

End?If

End?Function

Public?Function?SocketsInitialize()?As?Boolean

Dim?WSAD?As?WSADATA

Dim?X?As?Integer

Dim?szLoByte?As?String,?szHiByte?As?String,?szBuf?As?String

X?=?WSAStartup(WS_VERSION_REQD,?WSAD)

If?X??0?Then

MsgBox?"Windows?Sockets?for?32?bit?Windows?"??"environments?is?not?successfully?responding."

SocketsInitialize?=?False

Exit?Function

End?If

If?LoByte(WSAD.wVersion)??WS_VERSION_MAJOR?Or?(LoByte(WSAD.wVersion)?=?WS_VERSION_MAJOR?And?HiByte(WSAD.wVersion)??WS_VERSION_MINOR)?Then

szHiByte?=?Trim$(Str$(HiByte(WSAD.wVersion)))

szLoByte?=?Trim$(Str$(LoByte(WSAD.wVersion)))

szBuf?=?"Windows?Sockets?Version?"??szLoByte??"."??szHiByte

szBuf?=?szBuf??"?is?not?supported?by?Windows?"??"Sockets?for?32?bit?Windows?environments."

MsgBox?szBuf,?vbExclamation

SocketsInitialize?=?False

Exit?Function

End?If

If?WSAD.wMaxSockets??MIN_SOCKETS_REQD?Then

szBuf?=?"This?application?requires?a?minimum?of?"??Trim$(Str$(MIN_SOCKETS_REQD))??"?supported?sockets."

MsgBox?szBuf,?vbExclamation

SocketsInitialize?=?False

Exit?Function

End?If

SocketsInitialize?=?True

End?Function

'窗體代碼

Dim?ECHO?As?ICMP_ECHO_REPLY

Dim?pos?As?Integer

Private?Sub?Command1_Click()

Call?Ping(Text2.Text,?ECHO)

Text1(0)?=?GetStatusCode(ECHO.status)

Text1(1)?=?ECHO.Address

Text1(2)?=?ECHO.RoundTripTime??"?ms"

Text1(3)?=?ECHO.DataSize??"?bytes"

If?Left$(ECHO.Data,?1)??Chr$(0)?Then

pos?=?InStr(ECHO.Data,?Chr$(0))

Text1(4)?=?Left$(ECHO.Data,?pos?-?1)

End?If

Text1(5)?=?ECHO.DataPointer

End?Sub

分享標(biāo)題：vb.net中ping vb和net
文章來源：http://aaarwkj.com/article44/hhhdee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、、電子商務(wù)、網(wǎng)頁設(shè)計(jì)公司、搜索引擎優(yōu)化、虛擬主機(jī)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)