Tác giả: VuVanHoanh
Mô tả: Trong API có hàm ping, nhưng nếu ko sử dụng API, liệu có cách nào ping nhanh?
gọi tập tin thực thi ping.exe
Hàm sau trả về True nếu ping thông suốt, False nếu bị gián đoạn hoặc ko ping đc. Thời gian ping tầm chục miligiây.
- Public Sub PingIp(ByVal i As String)
- Dim m As New System.Diagnostics.Process, str As IO.StreamReader
- Dim r
- m.StartInfo.CreateNoWindow = True
- m.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
- m.StartInfo.UseShellExecute = False
- m.StartInfo.RedirectStandardOutput = True
- m.StartInfo.RedirectStandardInput = True
- m.StartInfo.FileName = "ping"
- m.StartInfo.Arguments = "-n 1 -w 1 " & i
- m.Start()
- str = m.StandardOutput
- r = str.ReadToEnd
- If InStrRev(r, "(0% Loss)", , CompareMethod.Text) <> 0 Then
- Return True
- Else
- Return False
- End If
- m.Close()
- End Sub