تشغيل تطبيق بواسطة مسؤول النظام بالكود

[mr steev]

هل يمكن تشغيل تطبيق بالكود بواسطة مسؤول النظام 

يرجى تصحيح الكود لتشغيل التطبيق بواسطة مسؤول النظام

"ShellExcutive 0, "runas", "cmd.exe

[أبو عبدالله الحلوانى]

السلام عليكم 

جرب هذا المرفق

 

OpenExelFile.rar

[mr steev]

جزاك الله خير هل يمكن تنفيذ هذا الأمر والتعديل على المرفق التالي

وهو تسجيل أداة تفعيل كاميرا الويب بواسطة مسؤول النظام

OpenExelFile.rar

[صالح حمادي]

السلام عليكم

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

كل ما عليك فعله هو وضع الأداة في مجلد system32

ثم افتح البرنامج و اضغط على زر تسجيل الأداة

تسجيل أداة أكيف أكس.rar

[mr steev]

أستاذنا الكريم صالح حمادي جزاك الله خيرا

لقد بحثت لمدة يوم تقريباً قبل أن أطرح هذا الموضوع وأصبح لدي خلفية بسيطة لما يحدث عند تنفيذ الكود

سبحان الله في الأمس كنت قد حصلت على نفس الكود من الرابط التالي ولكن لم أحسن استخدامه

https://social.msdn.microsoft.com/Forums/en-US/0ff2f4a2-dba6-4fdd-a055-4fe0d2a07fbd/how-to-run-regsvr32-as-administrator-with-vba?forum=isvvba

وهذه إضافة للإيضاح

كيف لنا أن نعرف بعد تسجيل الأداة أن الكود نفذ بشكل صحيح يجب أن يكون هناك رسالة من نظام الويندوز تفيد بأنه تم تسجيل الأداة بنجاح

وسبب عدم ظهور الرسالة هو أنك في الكود المنشأ لتسجيل الأداة قمت بوضع حرف S بعد Regsvr32 /s أي (silent) مع عدم ظهور مربع الرسالة

لذلك نقوم بإزالة s/ لتظهر معنا رسالة النظام وتأكيد أن الكود تم تنفيذه بشكل صحيح 

على العموم جزاك الله خيراً

تم تعديل فبراير 24, 2019 بواسطه mr steev

[mr steev]

سامحونا لقد أثقلت عليكم

الآن كيف يمكن أن نقوم بتسجيل الأداة دون عملية نقل الملف إلى مجلد system32 

إذا كان الملف المراد تسجيله موجود بنفس مسار قاعدة البيانات

وهذا هو الحل

Private Sub أمر6_Click()
sFileName = CurrentProject.Path & "\YsVedPic.OCX"
RegisterFile (sFileName)
End Sub

 

 

تسجيل أداة أكيف أكس.rar

تم تعديل فبراير 24, 2019 بواسطه mr steev

[صالح حمادي]

الحمد لله الذي تتم بنعمته الصالحات

أحسنت بهذا الشكل سوف تتعلم بسرعة إن شاء الله