VB获取本地IP、计算机名、用户名代码

最新推荐文章于 2024-09-01 15:09:57 发布

cncco

最新推荐文章于 2024-09-01 15:09:57 发布

阅读量1.1w

点赞数 5

分类专栏： VB 文章标签： vb 本地IP 计算机名内网ip 局域网IP

VB 专栏收录该内容

82 篇文章 3 订阅

订阅专栏

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

很简单的哈？