詳見下面代碼
十載的上城網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。營(yíng)銷型網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整上城建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“上城網(wǎng)站設(shè)計(jì)”,“上城網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
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
我來說說...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
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
文章標(biāo)題:vb.net使用ping的簡(jiǎn)單介紹
文章轉(zhuǎn)載:http://muchs.cn/article18/doeiogp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、域名注冊(cè)、網(wǎng)站導(dǎo)航、網(wǎng)站排名、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站改版
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)