الملخص
يمكنك إجراء مكالمة Windows API (واجهة برمجة التطبيقات) إلى Microsoft Windows DLL (مكتبة الارتباط الحيوي) للحصول على اسم المستخدم الحالي. يمكن الحصول على اسم المستخدم الحالي باستخدام الدالة جيتوسيرناميا في ADVAPI32. DLL.
مزيد من المعلومات
لم يكن Microsoft Excel وظائف مضمنة الوصول إلى جهاز الكمبيوتر اسم المستخدم الحالي. ومع ذلك، يمكنك استخدام عبارة Declare في Visual Basic for Applications الماكرو لاستدعاء دالة Microsoft Windows يقوم بإرجاع اسم المستخدم الحالي. تقدم Microsoft أمثلة Visual Basic للتطبيقات إجراءات للتوضيح فقط، دون أي ضمان صريح أو ضمني، تشمل، على سبيل المثال لا الحصر الضمانات الضمنية الخاصة بالتسويق و/أو الملاءمة لغرض معين. يتم توفير إجراءات Visual Basic في هذه المقالة "كما هي" ولا تضمن Microsoft أن يمكن استخدامه في كافة الحالات. بينما تساعد أخصائيو الدعم لدى Microsoft شرح وظيفة ماكرو معين, لن يقوموا بتعديل هذه الأمثلة لتوفير وظائف إضافية، ولا هي سيساعدك بناء الماكرو لتلبية احتياجاتك الخاصة. إذا كانت لديك خبرة محدودة في البرمجة، قد تحتاج إلى مراجعة أحد موفري حلول Microsoft. موفري الحلول تقدم مجموعة واسعة من الخدمات مقابل رسوم، بما في ذلك إنشاء وحدات الماكرو المخصصة. لمزيد من المعلومات حول موفري حلول Microsoft استدعاء خدمة معلومات العملاء Microsoft (800) 426-9400.
المثال
-
اكتب التعليمات البرمجية التالية إلى وحدة نمطية جديدة:
' 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
-
تشغيل الماكرو Get_User_Name. لاحظ أن اسم المستخدم الحالي سيظهر في مربع رسالة.
