[VB.NET] โค้ดโปรแกรมการแปลง DNS ให้เป็น IP Address

thongkorn

โค้ดโปรแกรมการแปลง DNS (Domain Name System) ให้เป็น IP Address ...


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

1. Imports System.Net
   
2. 
   
3. Public Class frmDnsToIPAddress
   
4. 
   
5.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
   
6.         Me.Close()
   
7.     End Sub
   
8. 
   
9.     Private Sub btnDnsToIP_Click(sender As System.Object, e As System.EventArgs) Handles btnDnsToIP.Click
   
10.         Dim Host As IPHostEntry
    
11.         Try
    
12.             Host = Dns.GetHostEntry(txtDNS.Text.Trim)
    
13.             For Each ip As IPAddress In Host.AddressList
    
14.                 If ip.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then txtIPAddress.Text = ip.ToString()
    
15.             Next
    
16.         Catch ex As Exception
    
17.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
18.         End Try
    
19.     End Sub
    
20. 
    
21.     Private Sub frmDnsToIPAddress_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
22.         txtDNS.Text = "www.g2gnet.com"
    
23.     End Sub
    
24. End Class

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

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