[ناجي إبراهيم]

السلام عليكم....

مقتطفات برمجية أخري...

= الحصول على اسم الحاسوب و اسم المستخدم الحالي:

ضع التصريحات و الدوال التالية في Module:

كود :

Private Const MAX_COMPUTERNAME_LENGTH As Long = 32&

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

' دالة الحصول على اسم الكمبيوتر
Public Function GetMyComputerName() As String
    Dim BufferSize As Long
    Dim Buffer As String
    
    GetMyComputerName = ""
    
    Buffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
    BufferSize = Len(Buffer)
    If GetComputerName(Buffer, BufferSize) Then
        GetMyComputerName = Left$(Buffer, BufferSize)
    End If
End Function

' دالة الحصول على اسم المستخدم
Public Function GetCurrentUserName()
    Dim BufferSize As Long
    Dim Buffer As String
    
    GetCurrentUserName = ""
    
    Buffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
    BufferSize = Len(Buffer)
    If GetUserName(Buffer, BufferSize) Then
        GetCurrentUserName = Left$(Buffer, BufferSize)
    End If
End Function

* عندما تريد الحصول على اسم الحاسوب (الكمبيوتر) استعمل الدالة GetMyComputerName، مثلاً:

كود :

MsgBox GetMyComputerName()

* عندما تريد الحصول على اسم المستخدم استعمل الدالة GetCurrentUserName، مثلاً:

كود :

Dim UN As String
UN = GetCurrentUserName()
Text1.Text = UN

نرجو الاستفادة و السلام.