vb.net显示用户ip 地址代码

获取当前电脑名：system.net.dns.gethostname()

根据电脑名取出全部ip地址：system.net.dns.resolve(电脑名).addresslist 或

者 system.net.dns.gethostbyname(电脑名).addresslist根据ip地址取出电脑名

：system.net.dns.resolve(ip地址).hostname 下面我们就用一个实例来看如何获

取本机的ip地址，并获得我们的主机名称。

<%@ page language=vb debug=true %>

<asp教程:label
    id="lblmessage"
    font-size="12pt"
    font-name="tahoma"
    runat="server"
/>

应用实例

在form_load事件中加入如下代码：

private sub form1_load(byval sender as system.object, byval e as

system.eventargs) handles mybase.load

dim address() as system.net.ipaddress

dim i as integer

address = system.net.dns.gethostbyname(system.net.dns.gethostname

()).addresslist

textbox1.text = system.net.dns.gethostname().tostring()

for i = 0 to ubound(address)

textbox2.text = textbox2.text & address(i).tostring() & chr(13) + chr

(10)

next

end sub