تعديل على نموذج ارسال واتس

[tiger wanted]

مرفق لكم قاعدة بيانات ارسال رسائل على الواتس يقوم بفتح تطبيق الواتس المطلوب عند فتح المتصفح المطلوب عمل كود على زر الامر يقوم بالضغط على مفتاح tab عدد 11 مرة ثم مفتاح enter ثم مفتاح tab عدد 2 مرة ثم enter ثم enter مع ملاحظة اننى لا امتلك تطبيق الواتس على الجهاز لانه اصدار قديم 

كما اريد التعديل وجعل النموذج يقوم بعمل ارفاق ملفات pdf  مع عمل تكرار للامر باستخدام دالة for next وعمل توقيت زمنى بالثوانى بين كل اجراء ارجو ان اكون قد اوضحت الصورة ولكم منا جزيل الشكر والتقدير والعرفان لهذا المنتدى الكبير الذى تعلمنا منه الكثير 

ارسال على الواتس.accdb

تم تعديل نوفمبر 21, 2023 بواسطه tiger wanted
خطأ

[Foksh]

43 دقائق مضت, tiger wanted said:

عند فتح المتصفح المطلوب

أخي الكريم عند فتح المتصفح فإنك ستكون خارج بيئة مايكروسوفت آكسيس ، ولن يكون للكود في الزر الذي اقترحته أي وظيفة على المتصفح ، هذا من وجهة نظري طبعاً ، وإن كان هناك أحد الإخوة والأساتذة له رأي آخر فليتفضل 

[tiger wanted]

انا لم اقل ان الامر سهل ولكن رأيت امثله على ارسال ملفات من الاكسس باستخدام sendkeys tab وهناك امثلة كثيرة لو رايت ذلك وفى انتظار الرد 

تم تعديل نوفمبر 21, 2023 بواسطه tiger wanted

[tiger wanted]

نرجو متابعة الموضوع 

[tiger wanted]

ونرجو افادتنا كيفية استخدام اكسس مع موقع ultramsg

[tiger wanted]

للرفع 

[tiger wanted]

بسم الله الرحمن الرحيم 

لقد قمت بتجربة امر Call SendKeys("{TAB}", True) واستطاع تنفيذ الامر من خلال المتصفح ارجو افادتنا بكيفية التنقل داخل المتصفح بمفتاح Enter وكذلك مفتاح alt+f4 لانه يمكن ذلك ارجو افادتنا وفى انتظار ردكم الكريم واعلم ان عمالقة هذا الموقع لن يبخلوا علينا بعلمهم 

مرفق لكم نموذج اكسل به الاكواد التى توضح ما اقصده واعتذر على انه اكسل لم استطع تنفيذ بنفس الكيفية فى الاكسس 

ملوحظة يرجى كتابة رقم التليفون بدون 0 بمعنى 125545554 مثلا والضغط على مفتاح button   وان يكون رقم التليفون موجود فى الواتس الخاص بالمبرمج 

whats (Autosaved).xlsm

تم تعديل نوفمبر 23, 2023 بواسطه tiger wanted
هناك خطأ

[Moosak]

28 دقائق مضت, tiger wanted said:

ارجو افادتنا بكيفية التنقل داخل المتصفح بمفتاح Enter وكذلك مفتاح alt+f4

انت صاحب همة أخي @tiger wanted تبارك الله 🙂

تابع هذا الموضوع من مايكروسوفت فيه جميع اختصارات خاصية إرسال المفاتيح SendKeys :

SendKeys statement (VBA) - Microsoft Learn https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement

[tiger wanted]

اشكرك على الرد وارجو كيفية كتابة امر sleep لاعطاء فترة زمنية بين كل امر ولكم جزيل الشكر 

[محمد احمد لطفى]

تفضل بالتوفيق 

 

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub TestSleep()
    ' انتظار لمدة 1000 مللي ثانية (واحدة ثانية)
    Sleep 1000
End Sub

 

[tiger wanted]

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

 

[VictoriaDickinson]

شكر على مشاركة المووضوع

[safaa salem5]

On 11/23/2023 at 6:00 PM, tiger wanted said:

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

 

ممكن نسخه من المثال بعد ماتم التعديل عليه لو امكن للاستفاده

علشان محتاجه ابعت نتايج عالواتس

تم تعديل ديسمبر 15, 2023 بواسطه safaa salem5