نموذج senkey

[tiger wanted]

مرسل لكم نموذج يقوم بفتح المفكرة من الاكسس وكتابة داخل المفكرة وحفظ المفكرة المطلوب تنفيذ مثل هذا الامر الامر لفتح متصفح whatswep حيث حاولت تطبيق الامر وكلما احاول التنقل داخل المتصفح بمفتاح ,true sendkey({tab}) يفتح صفحة الثانية ولاتنقل بين قوائم المتصفح هل من شرح مع توضيح خظوات الكود اللازمة ولكم منا جزيل الشكر

[ابوخليل]

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

[tiger wanted]

اشكرك جدا ولكن نرجو شرح الكود الخاص 

  If Not RS.BOF And Not RS.EOF Then
    RS.MoveLast: RS.MoveFirst
    While (Not RS.EOF)
phone = RS!jawal
Call SendKeys("^%/", True)
Sleep 2000
Call SendKeys(phone, True)
Sleep 2000
SendKeys "~"
Sleep 2000
Call SendKeys(message, True)
Sleep 2000
SendKeys "~"
Sleep 7000

ولكم منا جزيل الشكر 

[ابوخليل]

' دوران على السجلات
If Not RS.BOF And Not RS.EOF Then
'الذهاب لآخر سجل ثم العودة لأول سجل   
RS.MoveLast: RS.MoveFirst
' بينما لم تنتهي السجلات   
While (Not RS.EOF)
المتغير phone 
يساوي رقم الجوال في الجدول
phone = RS!jawal

ارسل مفتاح كنترول + الت + السلاش
وهنا يقف المؤشر على مربع البحث في المتصفح
Call SendKeys("^%/", True)
غفوة ثانيتين
Sleep 2000
ارسل قيمة المتغير التي تمثل رقم الجوال
Call SendKeys(phone, True)
ارقد ثانيتين
Sleep 2000
ارسل انتر
SendKeys "~"
نوم
Sleep 2000
ارسل نص الرسالة
Call SendKeys(message, True)
ثانيتين
Sleep 2000
انتر وهنا يقوم الواتس بارسال الرسالة
SendKeys "~"
نوم سبع ثواني من اجل يلتقط انفاسه وينتقل الى اعلى الكود ليبدأ العملية نفسها مع رقم جوال آخر
Sleep 7000

 

[tiger wanted]

شرح اكثر من رائع لكم جزيل الشكر