请问在VB6.0中怎样获取本机IP

现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡 。

软件方面有 *** 作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组

等等。利用WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很

麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。

下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：

Private Function MACAddress() As String

Set objs = GetObject("winmgmts:")ExecQuery( _

"SELECT MACAddress " & _

"FROM Win32_NetworkAdapter " & _

"WHERE " & _

"((MACAddress Is Not NULL) " & _

"AND (Manufacturer <> " & _

"‘Microsoft‘))")

For Each obj In objs

MACAddress = objMACAddress

Exit For

Next obj

End Function

上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回

网卡的MAC地址。

Private Sub Command1_Click()

Dim aa As String

Dim strLocalIP As String

Dim winIP As Object

aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf

aa = aa & "本机用户名称:" & Environ("username") & vbCrLf

Set winIP = CreateObject("MSWinsockWinsock")

strLocalIP = winIPlocalip

MsgBox aa & "本机IP:" & strLocalIP

End Sub

DOS获取本机IP(括号内的为注释，输命令时别复制进去)。

方法1：arp -a (Interface:后面的就是你自己的IP地址)

方法2:ipconfig/all (IP Address后面的就是你自己的IP地址)

DOS重新获取IP

cmd /c ipconfig /release (释放IP,不执行这步下一步命令将无效)

cmd /c ipconfig /renew (重新获得IP)

上不了网或IP冲突时可以在记事本里贴入如下代码保存为如下文件名并执行：

重新获取IPbat

@echo off

@echo 正在重新获取IP，请稍候

cmd /c ipconfig /release > nul

cmd /c ipconfig /renew > nul

arp -a

@echo "Interface:后面的就是你自己的IP地址"

@echo "按任意建测试网络联通(不断跳说明网络正常)"

pause

ping >

我以前也被这个问题困扰过，后来想了一个办法，就是用winsock控件直接用tcp协议和一个网站建立链接，因为和网站建立链接用的都是广域网的ip所以当链接成功后只需要查看winsock的本地ip属性就知道了，为了保证网站长期有效要挑大型的网站，我特意挑了百度的首页地址就是就断掉链接不用管>

以上就是关于请问在VB6.0中怎样获取本机IP全部的内容，包括:请问在VB6.0中怎样获取本机IP、vb代码用机器名获取ip地址、（200分）VB 获取本机IP和重新获取IP问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！