[ناجي إبراهيم]

السلام عليكم...

هذا يحدث بسبب القيود الأمنية لـ 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

نرجو الاستفادة و السلام.