إظهار أسم المستخدم على الشبكة

قد يكون السبب اختلاف في نظام التشغيل

لانه من الواضح بان هذا الامر تابع لوحدة نمطية بنفس الملف - وليس من الاوامر الدارجه

السلام عليكم

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

حد عنده حل

للرفع لاهمية الموضوع

اخي الفاضل خالد

يوجد لديك نقص في الدالة acbNetworkUserName المسئولة عن ارجاع اسم المستخدم من الشبكة الى مربع النص وهذا هو كود الدالة

Private Declare Function GetUserName Lib "advapi32.dll" Alias  "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function acbNetworkUserName() As String
' إرجاع اسم المستخدم من على الشبكه
  Dim lngLen As Long
  Dim lngX As Long
  Dim strUserName As String

  strUserName = String$(254, 0)
  lngLen = 255
  lngX = GetUserName(strUserName, lngLen)
  If lngX <> 0 Then
	acbNetworkUserName = Left$(strUserName, lngLen - 1)
  Else
	acbNetworkUserName = vbNullString
  End If
End Function

قم بنسخ هذه الدالة وضعها في محرر الفيجول بيسك للنموذج

انظر المثال كيف تم استخدام هذه الدالة في النموذج

acbNetworkUserName.rar

هلا استطيع ان اظهر اكثر من شخص اذا كانوا علة الشبكة 00

يعني اذا كان عند اكثر من شخص يدخلون الشبكة اريد اعرف امنو منهم موجود

كيف اعرف من المتواجد علة البرنامج

acbNetworkUserName.rar

السلام عليكم

هل استطيع انه عملها او لا

انه اعرف المتواجدين على البرنامج

يعني العدد واسماهم