Question

VB如果获取电脑的名称

我们默认的电脑名称为Adminstrator现在我想在VB的一个TEXTBOX控件中获取我的另一个电脑名称就是我的计算机名称 注意：不是获取默认计算机名称(Administrator)

Answer 1

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就驻留在内存中特定的写保护区域，使别的程序无法占用这个内存区域。

Answer 2

使用GetComputerName API就可以了。声明：Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load()
Dim n As String * 255 ''声明一个字符型变量，长度255
GetComputerName n, 255 '调用函数,这里的n是数据缓冲区
Text1.Text = Trim(n) ''删掉多余的空格
End Sub 以下效果图：

Answer 3

Label1.Text = System.Environment.MachineName VB.NET中可以使用environment类实现很多计算机信息的操作

Answer 4

加个Winsock控件。Text1.Text = CStr(Winsock1.LocalHostName)