看流星社区

 找回密码
 注册账号
查看: 3257|回复: 3

[VB] 用VB 6.0怎样获得本机IP地址?

[复制链接]

该用户从未签到

发表于 2014-7-30 09:07:13 | 显示全部楼层 |阅读模式
请教怎样用VB6.0获得本机IP地址,写上注释,最好代码简单易懂.
谢谢,很着急,在线等
不用第一楼方法不可行,第二楼不用控件,请问谁有别的办法获取本机IP,最好写上注释,

该用户从未签到

发表于 2014-7-30 09:07:23 | 显示全部楼层
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("MSWinsock.Winsock")
strLocalIP = winIP.localip
MsgBox aa & "本机IP:" & strLocalIP
End Sub

该用户从未签到

发表于 2018-10-23 19:31:29 | 显示全部楼层
做做看哦,谢谢提供

该用户从未签到

发表于 2018-11-26 21:08:45 | 显示全部楼层
支持楼主,支持看流星社区,以后我会经常来!
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 09:44

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表