运行Windows Task Manager,查看Users标签,可以看到所有登录电脑的用户,现在Insus.NET想命名用VB.NET的WinForm程序去获取当前的用户名.
获取程序简单,可以参考之:
源代码:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
Public Shared Function GetUserName() As String
Dim buffer As String = New String(CChar(" "), )
Dim retVal As Integer = GetUserName(buffer, )
Return Strings.Left(buffer, InStr(buffer, Chr()) - )
End Function