[VB.NET] โค้ดตรวจสอบการเชื่อมต่ออินเทอร์เน็ต พร้อมกับแสดงหมายเลขไอพีแอดเดรส

thongkorn

สำหรับโค้ดชุดนี้ก็ไม่ได้มีความยุ่งยากในการทำความเข้าใจมากมาย แต่แอดมินใส่เทคนิคการเขียนโปรแกรมลงไปอยู่ 2 เรื่อง คือ การให้ ComboBox แสดงผลรายการ (Items) ตามจำนวนที่เรากำหนด และอีกเรื่องที่สำคัญคือ การส่งค่าคืนกลับจากฟังค์ชั่น สามารถคืนค่า (Return) ได้มากกว่า 1 ค่า ...


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.Net
   
2. 
   
3. Public Class frmCheckInternet
   
4. 
   
5.     ''' <summary>
   
6.     ''' check for a existing internet connection to some url.
   
7.     ''' </summary>
   
8.     ''' <returns>True if it's exist and return IP Address.</returns>
   
9.     Public Shared Function isConnected(ByVal strURL As String) As Tuple(Of Boolean, String)
   
10.         Try
    
11.             Dim addresslist As IPAddress() = Dns.GetHostAddresses(strURL)
    
12.             ' | ' addresslist holds a list of ipadresses to google.
    
13.             ' | ' e.g  173.194.40.112
    
14.             If addresslist(0).ToString().Length > 6 Then
    
15.                 Return Tuple.Create(True, addresslist(0).ToString())
    
16.             Else
    
17.                 Return Tuple.Create(False, addresslist(0).ToString())
    
18.             End If
    
19.         Catch ex As Sockets.SocketException
    
20.             ' | ' You are offline
    
21.             ' | ' the host is unkonwn
    
22.             Return Tuple.Create(False, "")
    
23.         Catch ex As Exception
    
24.             Return Tuple.Create(False, "")
    
25.         End Try
    
26.     End Function
    
27. 
    
28.     Private Sub frmCheckInternet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
29.         txtUrl.Text = "www.remotemysql.com"
    
30.         With cmbTimer
    
31.             For i = 1 To 60
    
32.                 .Items.Add(i)
    
33.             Next
    
34.             .SelectedIndex = 0
    
35.             .IntegralHeight = False
    
36.             .MaxDropDownItems = 10
    
37.         End With
    
38.         '// TIMER
    
39.         With Timer1
    
40.             .Interval = 1000 * Val(cmbTimer.Text)
    
41.             .Enabled = True
    
42.         End With
    
43.         '// Initialize
    
44.         Me.ToolStripStatusLabel1.Text = ""
    
45.     End Sub
    
46. 
    
47.     Private Sub frmCheckInternet_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
48.         Me.Dispose()
    
49.         Application.Exit()
    
50.     End Sub
    
51. 
    
52.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
53.         Me.Close()
    
54.     End Sub
    
55. 
    
56.     Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
    
57.         Call CheckInternet()
    
58.     End Sub
    
59. 
    
60.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    
61.         Call CheckInternet()
    
62.     End Sub
    
63. 
    
64.     Private Sub CheckInternet()
    
65.         If Trim(txtUrl.Text) = "" Then Exit Sub
    
66.         '// Declare 2 variables for multiple return value.
    
67.         Dim Connecting As Boolean
    
68.         Dim IP As String
    
69.         With isConnected(Trim(txtUrl.Text))
    
70.             Connecting = .Item1
    
71.             IP = .Item2
    
72.         End With
    
73.         If Connecting Then
    
74.             txtIPAddress.Text = IP
    
75.             Me.ToolStripStatusLabel1.Text = "IP: " & txtIPAddress.Text
    
76.         Else
    
77.             Me.ToolStripStatusLabel1.Text = "Can't Connect URL : " & txtUrl.Text
    
78.         End If
    
79.     End Sub
    
80. End Class

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

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

MrDen

ขอบคุณครับ

thawatchai-sena

ขอบพระคุณมากครับ