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 = objWMIExecQuery _

 ("Select  from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

  For Each IP In colIP

    If Not IsNull(IPIPAddress) Then

      For I = LBound(IPIPAddress) To UBound(IPIPAddress)

        MsgBox "IP  地址:" & IPIPAddress(I) & Chr(10) & _

        Next

    End If

  Next

End Sub

这是开机DHCP寻找网关和DNS的问题：我们的机器和Modem直接的连接是形成了一个虚拟的局域网络。这时候DHCP就会去寻找他。默认情况下系统会自动通过DHCP来获得IP地址。寻找到网关和DNS总需要那么一块时间。所以就会造成开机慢。

右键单击网上邻居——属性（打开网络连接）——本地连接——在本地连接上点属性——Internet协议（TCP/IP）——属性

点选“使用下面IP地址”：

IP地址一栏目填：19216812

子网掩码一栏点一下就自动出来了

默认网关一栏填：19216811

那个手动设置DNS就不用填了。

重启电脑看看效果。

步骤如下，以windows7系统为例。

方法1：

点击左下角的“开始”菜单，在搜索栏中输入“cmd”，点击回车键。

出现命令行界面，输入命令：ipconfig /all, 然后点击回车键。

注意：如果你是本地连接，也就说你是插着网线上网，就找本地连接的；

我这里是无线连接为例的，可以看到IPV4地址：1921680102，这个就是本机在局域网内的IP地址。

方法2：

点击桌面上“网络”，右键点击“属性”。

d出“网络和共享中心”，点击用红框标注的“本地连接”。

d出“本地连接状态”，点击“详细信息”。

出现“网络连接详细信息”界面，可以找到IP地址，如图：

IP地址：19216846

子网掩码：2552552550

默认网关：19216841

DNS服务器：19216841

在运行里边，用ipconfig命令即可。具体步骤是：打开开始菜单“运行”，输入“cmd”，然后再输入“ipconfig”即可在窗口中显示出对应的ip配置信息和物理地址，如图：

以上就是关于vb中如何获取本机ip地址全部的内容，包括:vb中如何获取本机ip地址、如何让本地连接获取IP更快速、如何获取自己电脑的局域网IP地址等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！