如何使用 VB 6 0 获取本地 IP 地址

您可以在此处使用 winsock 控件获取它：

private sub command1_click()msgbox

end sub

注意：winsock 小部件不是标准工具箱中的控件，使用前应在菜单中使用"工程 - 组件"将"microsoft winsock control "检查一下，你就可以开始了。

private sub command1_click()dim aa as string

dim strlocalip as stringdim winip as object

aa = aa & "本地计算机的名称。

aa = aa & "本机用户的名称。

set winip = createobject("")strlocalip =

msgbox aa & "原生IP：" & strlocalipend sub

支持二楼，那太复杂了，控制是用来用的，如果一切都是自己做的，那还有什么样的集体编程。

imports

imports

imports

public function getip() as stringdim hostname as string =dim ipstring as string = ""

dim ip as

for each ip in

if = then

ipstring =

exit for

end if

nextreturn ipstring

end function

ps：我和你有同样的问题，我之前仍然可以恢复正常，但是安装虚拟机后不起作用，这个功能返回，经过测试，是正确的。

这将返回一个 IPv6 地址，如果计算机上有多个网卡，则会有多个 IP 地址。

将 0 替换为 1,。。

总有一个是。