VB6.0怎么获取电脑的名字？

【方法一——最简单】在 工程菜单的部件里找到 Microsoft Winsock Control 然后添加。。它就显示在工具栏上winsock1.LocalHostName 【方法二——最正统】Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

为正安等地区用户提供了全套网页设计制作服务，及正安网站建设行业解决方案。主营业务为网站设计制作、成都网站建设、正安网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

Public Function GetComputer() As String

Dim strCompName As String

Dim intHandle As IntegerstrCompName = String(256, " ")

intHandle = GetComputerName(strCompName, 256)

strCompName = Left(strCompName, InStr(1, strCompName, Chr(0)) - 1)

GetComputer = Trim(strCompName)

End Function然后调用这个函数即可

用VB如何获取当前用户的用户名和计算机名、工作组名称？

Private Sub Command1_Click()

Dim a As Object

Set a = CreateObject("Wscript.Network")

Print a.ComputerName

Print a.UserName

Print a.UserDomain

End Sub

vb.net的获取计算机名称问题

My功能可以替代很多API，因为CLR已经封装了大量系统函数，不建议使用API，那样会限制程序的可移植性。（微软声称.NET FRAMEWORK是跨平台的，但是迄今都没看见在Linux上的.NET 程序）

多翻翻MSDN就知道东西怎么用了

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

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

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

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

'取计算机型号暂时不会

VB如何获取远程计算机的名称？

利用winsock控件就可以了：

获得主机名称：

Winsock1.LocalHostName

获得主机IP地址：

Winsock1.LocalIP

获得主机端口号：

Winsock1.LocalPort

VB知道局域网计算机名，ping是否在线。

知道对方ip查看对方的计算机名

方法： 开始-运行-cmd-nbtstat -a 对方ip

开始-运行-cmd-net view 对方ip

知道对方计算机名查看对方ip

方法：开始-运行-cmd-ping 对方计算机名

或者 开始-运行-cmd-nbtstat -a 对方计算机名

本文标题：vb.net知道计算机名,VB计算机
当前链接：http://kswjz.com/article/dsscdjo.html