Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Click() Dim StrT As String * 255 GetComputerName StrT, 255 Print StrT End Sub
用API获取用户名:
Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Click() Dim StrT As String * 255 GetUserName StrT, 255 Print StrT End Sub