[VB.NET] โค้ดโปรแกรมการแปลง DNS ให้เป็น IP Address
http://www.g2gsoft.com/webboard/images/VBNet/dns2ipaddress.pngโค้ดโปรแกรมการแปลง DNS (Domain Name System) ให้เป็น IP Address ...
มาดูโค้ดกันเถอะ ...
Imports System.Net
Public Class frmDnsToIPAddress
Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnDnsToIP_Click(sender As System.Object, e As System.EventArgs) Handles btnDnsToIP.Click
Dim Host As IPHostEntry
Try
Host = Dns.GetHostEntry(txtDNS.Text.Trim)
For Each ip As IPAddress In Host.AddressList
If ip.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then txtIPAddress.Text = ip.ToString()
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub frmDnsToIPAddress_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
txtDNS.Text = "www.g2gnet.com"
End Sub
End Class
ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...
หน้า:
[1]