Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim strUserName As String strUserName = String(100, Chr$(0)) GetUserName strUserName, 100 MsgBox (strUserName) End Sub
取得密码要administraotrs组的权限啊
请教用哪个API?能在SHELL里用一定有函数吧
Private Sub Form_Load()
Dim strUserName As String strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
MsgBox (strUserName)
End Sub