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

来源:互联网 发布:linux mount nfs目录 编辑:程序博客网 时间:2024/05/18 11:24
Dim aa As StringDim strLocalIP As StringDim winIP As Objectaa = aa & "本机电脑名称:" & Environ("computername") & vbCrLfaa = aa & "本机用户名称:" & Environ("username") & vbCrLfSet winIP = CreateObject("MSWinsock.Winsock")strLocalIP = winIP.localipMsgBox aa & "本机IP:" & strLocalIP

很简单的哈?吐舌头
0 0
原创粉丝点击