กระบวนงาน Visual Basic เพื่อรับชื่อผู้ใช้ปัจจุบัน

ตัวอย่าง

1. พิมพ์รหัสต่อไปนี้ลงในโมดูลใหม่:

       ' Makes sure all variables are dimensioned in each subroutine.     Option Explicit     ' Access the GetUserNameA function in advapi32.dll and     ' call the function GetUserName.     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _     (ByVal lpBuffer As String, nSize As Long) As Long     ' Main routine to Dimension variables, retrieve user name     ' and display answer.     Sub Get_User_Name()     ' Dimension variables     Dim lpBuff As String * 25     Dim ret As Long, UserName As String     ' Get the user name minus any trailing spaces found in the name.     ret = GetUserName(lpBuff, 25)     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)     ' Display the User Name     MsgBox UserName     End Sub

2. เรียกใช้แมโค Get_User_Name โปรดสังเกตว่า ชื่อผู้ใช้ปัจจุบันจะปรากฏในกล่องข้อความ