ASP.NET根据域名查IP（VB.NET）

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