اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

قام بنشر

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

  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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information