怎样用vb读取本机名

Question

RT

Answer 1

窗体加一cmmand，label。添加代码运行Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Command1_Click()
Dim Name As String, Length As LongLength = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = NameEnd Sub

Answer 2

Private Sub Command1_Click()
MsgBox Environ("COMPUTERNAME")
End Sub

Answer 3

//MsgBox Environ("COMPUTERNAME")
cool～～!!！

Answer 4

两个都不错的,用API 可靠些Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Command1_Click()
Dim Name As String, Length As LongLength = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
Label1.Caption = NameEnd SubPrivate Sub Command1_Click()
   MsgBox Environ("COMPUTERNAME")
End Sub

Answer 5

还有一种方法是在form 上加一个Winsock控件
然后
Private Sub Command1_Click()
   MsgBox Winsock1.LocalHostName
End Sub

Answer 6

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Sub Command1_Click()
MsgBox Environ("computername")
MsgBox Environ("UserName")
MsgBox user_name
End Sub
Private Function user_name() As String
    Dim str As String
    Dim res As Long
    str = String(1024, 0)
    res = GetUserName(str, 1024)
    If res <> 0 Then
        user_name = Mid(str, 1, InStr(1, str, Chr(0)) - 1)
    Else
        user_name = ""
    End If
End Function