一个关于windows方面的问题！！

Question

用VB吗？我知道用DELPHI的话更简单哦，好象这个要涉及API的~~~~

Answer 1

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function CurrentUserName() As String
    Dim n As String
    n = String(1024, " ")
    GetUserName n, 1024
    n = RTrim(n)
    If Right(n, 1) = Chr$(0) Then n = Left(n, Len(n) - 1)
    CurrentUserName = n
End Function

Answer 2

用 CurrentUserName() 返回当前登录的用户名
同理可以用 GetComputerName 返回计算机名