معرفة اسم المستخدم

بسم الله الرحمن الرحيم

يمكنك استخدام الكود التالي لمعرفة يوزر الموندوز كما يمكنك استخدام أكواد أخرى و كذلك توجد طرق لتحديد كود الشبكة و الإنترنت و خلافه و الله الموفق

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



Private Sub Form_Load()

    Dim strUserName As String



    strUserName = String(100, Chr$(0))

    GetUserName strUserName, 100

    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)



    MsgBox strUserName + "  :  " + "أهلا  يا عزيزي "

End Sub