اجراء Visual Basic للحصول علي اسم المستخدم الحالي

الملخص

يمكنك اجراء مكالمة في Windows API (واجهه برمجه التطبيقات) إلى Microsoft Windows DLL (مكتبه الارتباطات الديناميكية) للحصول علي اسم المستخدم الحالي. يمكن الحصول علي اسم المستخدم الحالي باستخدام الدالة جيتوسيرناميا في ADVAPI32. الوظيفة.

مزيد من المعلومات

لا يتضمن Microsoft Excel الوظائف المضمنة للوصول إلى اسم المستخدم الحالي للكمبيوتر. ومع ذلك ، يمكنك استخدام جمله Declare في ماكرو Visual Basic for Applications للاتصال بوظيفة Microsoft Windows التي سترجع اسم المستخدم الحالي. توفر Microsoft أمثله علي إجراءات Visual Basic for Applications للحصول علي التوضيح فقط ، بدون ضمان اما التعبير عنه أو تضمينه ، بما في ذلك الضمانات الضمنية لخاص و/أو الملاءمة لغرض معين. يتم توفير إجراءات Visual Basic في هذه المقالة ' كما هو ' ولا تضمن Microsoft انه يمكن استخدامها في كل الحالات. علي الرغم من انه بإمكان مسؤولي الدعم في Microsoft ان يساعدوا علي شرح وظائف ماكرو معينه ، الا انها لن تعدل هذه الامثله لتوفير الوظائف الاضافيه ، ولن تساعدك علي إنشاء وحدات ماكرو لتلبيه احتياجاتك الخاصة. إذا كان لديك تجربه برمجه محدوده ، فقد ترغب في مراجعه أحد موفري حلول Microsoft. يوفر موفرو الحلول مجموعه واسعه من الخدمات المستندة إلى رسوم ، بما في ذلك إنشاء وحدات ماكرو مخصصه. للحصول علي مزيد من المعلومات حول موفري حلول Microsoft ، اتصل بخدمه معلومات العملاء في Microsoft في (800) 426-9400.

مثال

  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. لاحظ ان اسم المستخدم الحالي سيظهر في مربع رسالة.

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة الترجمة؟

ما الذي أثّر في تجربتك؟

هل لديك أي ملاحظات إضافية؟ (اختياري)

نشكرك على ملاحظاتك!

×