11-12-13, 10:31 PM
السلام عليكم...
هذا يحدث بسبب القيود الأمنية لـ Windows 7 لأن الدالة SendKeys يمكن استعمالها لإرسال بيانات إلى برامج أخرى غير برنامجنا.
لديك واحد من ثلاثة حلول:
أ. بعد تحويل المشروع إلى ملف تنفيذي (EXE) انقر على الملف التنفيذي بالزر الأيمن للفأرة ثم اختر خصائص (Properties) من القائمة. و في نافذة الخصائص بدل إلى الصفحة "التوافق" (Compatibiliy) و حدد الخيار "تشغيل هذا البرنامج في وضع التوافق لـ" و اختر Windows XP.
ب. قم بتعطيل "إعدادات التحكم في حسابات المستخدمين" (User Access Contol settings) من خلال برنامج حسابات المستخدمين (User Accounts) في لوحة التحكم (Control Panel) التابعة لـ WIndows.
ج. الحل الثالث ربما الأفضل: اكتب الدالة التالية في Module:
نرجو الاستفادة و السلام.
هذا يحدث بسبب القيود الأمنية لـ Windows 7 لأن الدالة SendKeys يمكن استعمالها لإرسال بيانات إلى برامج أخرى غير برنامجنا.
لديك واحد من ثلاثة حلول:
أ. بعد تحويل المشروع إلى ملف تنفيذي (EXE) انقر على الملف التنفيذي بالزر الأيمن للفأرة ثم اختر خصائص (Properties) من القائمة. و في نافذة الخصائص بدل إلى الصفحة "التوافق" (Compatibiliy) و حدد الخيار "تشغيل هذا البرنامج في وضع التوافق لـ" و اختر Windows XP.
ب. قم بتعطيل "إعدادات التحكم في حسابات المستخدمين" (User Access Contol settings) من خلال برنامج حسابات المستخدمين (User Accounts) في لوحة التحكم (Control Panel) التابعة لـ WIndows.
ج. الحل الثالث ربما الأفضل: اكتب الدالة التالية في Module:
كود :
Public Sub Sendkeys(text$, Optional wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject("wscript.shell")
WshShell.Sendkeys text, wait
Set WshShell = Nothing
End Subنرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
