网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net获取本机ip的简单介绍

vb.net如何获取IP地址?

做exe程序获取本机IP地址用

创新互联是一家专注于网站制作、成都网站设计与策划设计,金平网站建设哪家好?创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:金平等地区。金平做网站价格咨询:028-86922220

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序获取客户端的IP地址用

HttpContext.Current.Request.ServerVariables("REMOTE_ADDR"])

请问在VB.NET中怎样获取本机IP?

Dim IPAdress As System.Net.IPAddress

HostName = System.Net.Dns.GetHostName '获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP

Me.TextBox1.Text = HostName '本机机器名

Me.TextBox2.Text = IPAdress.ToString '本机的IP

vb中如何获取本机ip地址

定义以下过程即可获取本机ip地址

Sub GetMyIP()

Dim strComputer As String

Dim objWMI      As Object

Dim colIP       As Object

Dim IP          As Object

Dim I           As Integer

strComputer = "."

Set objWMI = GetObject("winmgmts://"  strComputer  "/root/cimv2")

Set colIP = objWMI.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP

If Not IsNull(IP.IPAddress) Then

For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)

MsgBox "IP  地址:"  IP.IPAddress(I)  Chr(10)  _

Next

End If

Next

End Sub

vb.net 自动获取IP 怎么写

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cc() As System.Net.IPAddress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList

Dim str As String = ""

For Each ws In cc

str = str ws.ToString vbCrLf

Next

MsgBox(str)

End Sub


标题名称:vb.net获取本机ip的简单介绍
网站地址:http://bjjierui.cn/article/hopdcc.html

其他资讯