获取本机ip地址计算机名用户名 vb源码

温总 · 发表于 2014-4-15 10:30

获取计算机名、ip地址、用户名，代码很简单；可在窗体的加载事件中获取按钮的单击事件中写入以下代码；

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

OllyDbg丶 · 发表于 2014-4-15 10:44

谢谢楼主分享源码

fanyu · 发表于 2014-4-15 10:51

看看，，，，

魔龙之杺 · 发表于 2014-4-15 11:09

干啥用地啊啊啊

Q602560097 · 发表于 2014-4-15 11:14

魔龙之杺发表于 2014-4-15 11:09
干啥用地啊啊啊

+10086+10086+10086

manbajie · 发表于 2014-4-15 14:11

楼主强大

小歆 · 发表于 2014-4-15 15:24

论坛里的vb又来好多资源…

xiaobajie0809 · 发表于 2014-6-26 05:43

多谢，学习了，

苏烟式 · 发表于 2014-7-20 19:51

提示: 作者被禁止或删除内容自动屏蔽

色彩不全白 · 发表于 2014-7-25 20:08

初学VB，看看

帐号		自动登录	找回密码
密码			注册[Register]

苏烟式苏烟式当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽	苏烟式发表于 2014-7-20 19:51 提示: 作者被禁止或删除内容自动屏蔽
苏烟式苏烟式当前离线好友阅读权限 0 听众最后登录 1970-1-1 头像被屏蔽
	回复支持举报

[其他转载] 获取本机ip地址 计算机名 用户名 vb源码

[其他转载] 获取本机ip地址计算机名用户名 vb源码