ASP.NET根據域名查IP（VB.Net）
近幾日安裝一視頻會議系統，各個參會人員用ASDL上網通過寬帶連接到服務器，但服務器又沒有固定IP，所以每次連接都要查一下IP，告訴大家才能連上！
後用花生殼軟件將動態的服務器IP轉為固定的域名，發現挺好，大家只要記一個***.vicp.Net的域名就可以連接到視頻會議了，但開始連視頻就有問題了，凡是用域名上的，都無法在會議裡發送視頻信號，不知是何原因，也沒有仔細查花生殼的工作方式，估計是花生殼只提供網頁和FTP的服務吧，視頻所用的UDP連接可能不支持！但改為用IP上就可以了！
所以想了個笨辦法 ，因為花生殼所提供的域名連接有問題，但還能連上，而且最關鍵的一點，我們可以使用花生殼的服務，將我們的IP轉為域名，然後我再在服務器的公告裡做一個頁面，把****.vicp.Net轉為IP顯示在公告欄裡，這樣，開會時大家就可以通過公告看到服務器的真實IP，然後通過這個IP連接視頻會議，一發就OK了 ^_^
現將域名轉IP的方法介紹如下：
先寫一類庫，提供轉換函數
''clsNet.VB
''*******************************************************************
Public Class clsNet
''根據域名取得IP地址
''HE 20051217
Public Function GetIPbyDomain(ByVal pDomain As String) As String
Dim Host As System.Net.IPHostEntry
Host = System.Net.Dns.Resolve(pDomain)
Dim IP As New System.Net.IPEndPoint(Host.AddressList(0), 0)
Return IP.Address.ToString
End Function
End Class
''*******************************************************************
在頁面中用如下方法調用
''*******************************************************************
Private Sub btnGetIP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetIP.Click
Dim o As New lcxx.Net.clsNet
txtGetIP.Text = o.GetIPbyDomain(txtGetIP.Text)
End Sub
''*******************************************************************
做過視頻會議，有共同經歷的，有好的建議或方法的朋友一定告我一聲
QQ: 36149522
