vb.net 获取局域网计算机的当前用户名和计算机型号等信息

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

创新互联专注为客户提供全方位的互联网综合服务，包含不限于做网站、成都网站制作、海盐网络推广、重庆小程序开发公司、海盐网络营销、海盐企业策划、海盐品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供海盐建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub GetName()

Dim sJM As String

Dim sMC As String

Dim sIP As String

Dim s As String

s = String(128, Chr(0))

GetComputerName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sJM = s'计算机名称

s = String(128, Chr(0))

GetUserName s, Len(s)

s = UCase(Left(s, InStr(1, s, Chr(0)) - 1))

sMC = s‘当前用户名称

End Sub

'用这种方法在远程获得再发回本机就可以吧

'取计算机型号暂时不会

Visual Studio 2012中的Visual basic是不是VB.net？

VS中的VB就是vb.net

我也是从VB6.0转到vb.net的，刚转了一年。如果楼主用VS2012，不建议再看.net2003了，.net 4以前的版本都是有较大区别的，可以直接上当当网搜索vb.net，销量前几位的书都可以看。

我转过来也没怎么看书，只是觉得vb.net比vb6好用了，碰到不会的地方百度下，或看看msdn，很容易上手。不是高手，经验仅供参考，呵呵

VB如果获取电脑的名称

VB获取计算机名称的方法如下：

说明：计算机名就是打开控制面板-系统-网络标识-完整的计算机名称

Private Declare Function GetComputerName Lib "kernel32"

Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()

Dim Name As String, Length As Long

Length = 225

Name = String(Length, Chr(0))

GetComputerName Name, Length

Name = Left(Name, Length)

Label1.Caption = Name

End Sub

Private Sub Form_Load()

End Sub

注意：该方法是通过kernel32.dll来获取的，chr(0)返回的就是计算机名。

kernel32.dll是Windows9x/Me中非常重要的32位动态链接库文件，属于内核级文件。它控制着系统的内存管理、数据的输入输出操作和中断处理，当Windows启动时，kernel32.dll就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。

VB.NET2010 怎么获取IP

1.获取当前电脑名：System.Net.Dns.GetHostName()

2.根据电脑名取出全部IP地址：System.Net.Dns.Resolve(电脑名).AddressList

或者 System.Net.Dns.GetHostByName(电脑名).AddressList

3.根据IP地址取出电脑名：System.Net.Dns.Resolve(IP地址).HostName

分享题目：vb.net电脑名称 net vb
转载来源：http://njwzjz.com/article/ddoscje.html