Imports System Imports System.Text Imports Microsoft.VisualBasic
Public Class Form3Class Form3 Declare Function GetUsername()Function GetUsername Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpbuffer As String, ByRef nSize As Integer) _ As Integer
Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim RV As Integer Dim UserName As String Dim Buffer As String Buffer = New String(CChar(" "), 25) RV = GetUsername(Buffer, 25) UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer, Chr(0)) - 1) MsgBox(UserName) End Sub End Class
您现在的位置： 
