+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : أريد من البرنامج أن يتحقق من أن Administrator مسئول نسخة الويندوز هو المستخدم (/showthread.php?tid=38585)
طلب : أريد من البرنامج أن يتحقق من أن Administrator مسئول نسخة الويندوز هو المستخدم - hamada salah90 - 06-06-21
السلام عليكم ورحمة الله وبركاته
طلب : أريد من البرنامج أن يتحقق من أن Administrator مسئول نسخة الويندوز هو المستخدم الحالي للبرنامج
و أيضا أريد من البرنامج أن يتحقق من سريال الهارد ديسك درايف عند البدء ويظهره في منربع نص
RE: طلب : أريد من البرنامج أن يتحقق من أن Administrator مسئول نسخة الويندوز هو المستخدم - Fareed - 06-06-21
ضع هذه الداله
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
ثم استدعي الداله
فاذا رجع لك رقم 1 فهو Administrator
If IsUserAnAdmin()=1 Then
MsgBox " Administrator"
Else
MsgBox "User"
End If