• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Ping trong VB.NET ko sử dụng API

Các thủ thuật về hệ thống, thư mục, tập tin và mạng

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Bài viết: 1259
Ngày tham gia: T.Năm 03/06/2010 9:23 pm
Đến từ: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 time
Been thanked: 137 time
Liên hệ:

Ping trong VB.NET ko sử dụng API

Gửi bàigửi bởi VuVanHoanh » T.Bảy 15/12/2012 12:52 pm

Thủ thuật: Ping một địa chỉ IP trong VB.NET
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.
  1. Public Sub PingIp(ByVal i As String)
  2.         Dim m As New System.Diagnostics.Process, str As IO.StreamReader
  3.         Dim r
  4.         m.StartInfo.CreateNoWindow = True
  5.         m.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
  6.         m.StartInfo.UseShellExecute = False
  7.         m.StartInfo.RedirectStandardOutput = True
  8.         m.StartInfo.RedirectStandardInput = True
  9.         m.StartInfo.FileName = "ping"
  10.  
  11.         m.StartInfo.Arguments = "-n 1 -w 1 " & i
  12.         m.Start()
  13.         str = m.StandardOutput
  14.         r = str.ReadToEnd
  15.         If InStrRev(r, "(0% Loss)", , CompareMethod.Text) <> 0 Then
  16.             Return True
  17.         Else
  18.             Return False
  19.         End If
  20.         m.Close()
  21.     End Sub



Hình đại diện của người dùng
xuanha
Guru
Guru
Bài viết: 1217
Ngày tham gia: T.Năm 19/08/2010 4:25 pm
Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 time
Been thanked: 377 time
Liên hệ:

Re: Ping trong VB.NET ko sử dụng API

Gửi bàigửi bởi xuanha » T.Ba 05/03/2013 11:29 pm

Để kiểm tra xem một host nào đó có thông mạng không, chỉ cần một dòng lệnh, ví dụ ping đến host 192.168.1.1:

MsgBox(My.Computer.Network.Ping("192.168.1.1", 10))
Xem và download:
Phần mềm Kiểm phiếu Đại hội Đoàn TNCS HCM (Nguyễn Xuân Hà)
---
---


Quay về “[.NET] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách