怎样用vb读取本机名

guofu1070 2005-11-29 02:26:34

...全文

125 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

舍南舍北 2005-11-29

打赏
举报

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

Private 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

南山明月 2005-11-29

打赏
举报

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

南山明月 2005-11-29

打赏
举报

两个都不错的,用API 可靠些

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 Command1_Click()
MsgBox Environ("COMPUTERNAME")
End Sub

Summer006 2005-11-29

打赏
举报

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

northwolves 2005-11-29

打赏
举报

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

Summer006 2005-11-29

打赏
举报

窗体加一cmmand，label。添加代码运行

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