ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1281|ตอบกลับ: 0

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

[คัดลอกลิงก์]

315

กระทู้

506

โพสต์

6272

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6272




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


มาดูโค้ดกันเถอะ ...
  1. Imports System.Net

  2. Public Class frmDnsToIPAddress

  3.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
  4.         Me.Close()
  5.     End Sub

  6.     Private Sub btnDnsToIP_Click(sender As System.Object, e As System.EventArgs) Handles btnDnsToIP.Click
  7.         Dim Host As IPHostEntry
  8.         Try
  9.             Host = Dns.GetHostEntry(txtDNS.Text.Trim)
  10.             For Each ip As IPAddress In Host.AddressList
  11.                 If ip.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then txtIPAddress.Text = ip.ToString()
  12.             Next
  13.         Catch ex As Exception
  14.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
  15.         End Try
  16.     End Sub

  17.     Private Sub frmDnsToIPAddress_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  18.         txtDNS.Text = "www.g2gnet.com"
  19.     End Sub
  20. End Class
คัดลอกไปที่คลิปบอร์ด


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


ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-7-20 13:42 , Processed in 0.201349 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้