[VB.NET] การใช้คำสั่ง Ping เพื่อตรวจสอบการเชื่อมต่ออุปกรณ์เครือข่าย

thongkorn

โดยปกติเราจะคุ้นเคยกับคำสั่ง Ping ของ DOS Command แต่สำหรับบทความนี้เราจะใช้โค้ดคำสั่งจาก VB.NET มาใช้งานแทนกันครับ โดยที่คลาส Ping ในเนมสเปซ System.Net.NetworkInformation ใช้เพื่อตรวจสอบว่าสามารถเข้าถึงเครื่องระยะไกลผ่านเครือข่ายได้หรือไม่ ในบทความนี้เราจะใช้วิธีการและคุณสมบัติของคลาส Ping เพื่อตรวจสอบความพร้อมใช้งานของเครื่องปลายทาง สำหรับคลาส Ping คล้ายกับคำสั่ง Ping.exe ที่เราใช้ใน DOS Prompt คุณสามารถส่งคำร้องขอ echo Internet Protocol Message Protocol (ICMP) โดยใช้ทั้งวิธีซิงโครนัส และอะซิงโครนัสของคลาส Ping ...

สรุปสาระสำคัญหลักๆ ...
Send() Method เป็นซิงโครนัสเมธอด จะคืนค่า PingReply ตามคำขอของ ICMP
SendAsync() Method เป็นอะซิงโครนัสเมธอด ซึ่งจะใช้เธรดแยกต่างหากเพื่อส่งการร้องขอ
PingCompleted Event จะเกิดขึ้นเมื่อการดำเนินการเสร็จสิ้น และคุณสามารถใช้ PingCompletedEventHandler เพื่อจัดการกับมันได้


มาดูโค้ดกันเถอะ ...

1. #Region "ABOUT"
   
2. ' / --------------------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / MORE: http://www.g2gnet.com/webboard
   
9. ' /
   
10. ' / Purpose: Ping Test with VB.NET (2010).
    
11. ' / Microsoft Visual Basic .NET (2010)
    
12. ' /
    
13. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
14. ' / You can modify and/or distribute without to inform the developer.
    
15. ' / --------------------------------------------------------------------------
    
16. #End Region
    
17. Imports System.Net
    
18. Imports System.Net.NetworkInformation
    
19. Imports System.Globalization
    
20. 
    
21. Public Class frmPingTest
    
22.     Private timer As Timers.Timer
    
23. 
    
24.     Private Sub frmPingTest_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
25.         Call InitListView()
    
26.         txtUrl.Text = "192.168.1.60"
    
27.     End Sub
    
28. 
    
29.     ' / Initailize ListView Control
    
30.     Sub InitListView()
    
31.         With ListView1
    
32.             .Clear()
    
33.             .View = View.Details
    
34.             .GridLines = True
    
35.             .FullRowSelect = True
    
36.             .HideSelection = False
    
37.             .MultiSelect = False
    
38.             ' 1st Column Index = 0
    
39.             .Columns.Add("IP Address", ListView1.Width \ 2 + 50)
    
40.             .Columns.Add("Response Time", ListView1.Width \ 2 - 70)
    
41.         End With
    
42.     End Sub
    
43. 
    
44.     Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
    
45.         If Trim(txtUrl.Text) = "" Then Exit Sub
    
46.         If isConnected(Trim(txtUrl.Text)) Then
    
47.             MessageBox.Show("Connect IP Adress: " & txtUrl.Text, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
48.         Else
    
49.             MessageBox.Show("Can't Connect.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
50.         End If
    
51.     End Sub
    
52. 
    
53.     ''' <summary>
    
54.     ''' check for a existing internet connection to some url.
    
55.     ''' </summary>
    
56.     ''' <returns>True if it's exist</returns>
    
57.     Public Shared Function isConnected(ByVal strURL As String) As Boolean
    
58.         Try
    
59.             Dim addresslist As IPAddress() = Dns.GetHostAddresses(strURL)
    
60.             ' | ' addresslist holds a list of ipadresses to somewhere.
    
61.             ' | ' e.g  173.194.40.112
    
62.             If addresslist(0).ToString().Length > 6 Then
    
63.                 Return True
    
64.             Else
    
65.                 Return False
    
66.             End If
    
67.         Catch ex As Sockets.SocketException
    
68.             ' | ' You are offline
    
69.             ' | ' the host is unkonwn
    
70.             Return False
    
71.         Catch ex As Exception
    
72.             Return False
    
73.         End Try
    
74.     End Function
    
75. 
    
76.     Private Sub btnPing_Click(sender As System.Object, e As System.EventArgs) Handles btnPing.Click
    
77.         Dim p As New Ping
    
78.         If isConnected(txtUrl.Text) Then
    
79.             AddHandler p.PingCompleted, AddressOf PingComplete
    
80.             p.SendAsync(txtUrl.Text, "")
    
81.         End If
    
82.     End Sub
    
83. 
    
84.     Private Sub PingComplete(ByVal s As Object, ByVal ev As System.Net.NetworkInformation.PingCompletedEventArgs)
    
85.         'ev.Reply.Address.ToString()
    
86.         'ev.Reply.RoundtripTime.ToString(CultureInfo.InvariantCulture) + " ms"
    
87.         'System.Net.Dns.GetHostEntry(ev.Reply.Address.ToString()).HostName
    
88.         Dim LV As ListViewItem
    
89.         Dim p As Ping = DirectCast(s, Ping)
    
90.         If ev.Reply.Status = IPStatus.Success Then
    
91.             LV = ListView1.Items.Add(ev.Reply.Address.ToString())
    
92.             LV.SubItems.Add(ev.Reply.RoundtripTime.ToString(CultureInfo.InvariantCulture) + " ms")
    
93.         End If
    
94.         '// Unforce Event Handler
    
95.         RemoveHandler p.PingCompleted, AddressOf PingComplete
    
96.         p.Dispose()
    
97.     End Sub
    
98. 
    
99.     Private Sub txtUrl_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtUrl.KeyPress
    
100.         If e.KeyChar = Chr(13) Then
     
101.             e.Handled = True
     
102.             Call btnPing_Click(sender, e)
     
103.         End If
     
104.     End Sub
     
105. 
     
106.     Private Sub frmPingTest_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
107.         Me.Dispose()
     
108.         Application.Exit()
     
109.     End Sub
     
110. 
     
111. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...