مساعدة في كود تكرار الكود في الوتساب

[Mohameddd200300]

سلام عليكم ورحمة الله وبركاته

كيف حالكم جميعا  ( بخير انشالله )

في كود الوتساب لما يرسل رسيل جماعي  وحبيت تسوي رسيل تسويقيه وا لعملاء كثير  احتمال كبير الوتساب  يحضر رقمك اذا كان رقمك جديد او انك ارسلتهم بسرعه  

ابغا امسك مسالت السرعه هذا  يعني ابغا  في كود تكرار الكود لما يعيد تكرار الكود 10 مرات يوقف 15 ثانية  بعدين يكمل 10 سجلات ثانية بعدين يوقف 15 ثانية  بعدين يستمر 10 سجلات فهتم علي وقدر  احدد عدد السجلات وكم الوقت الي ابغها  بسيط  الجز الاخير  اتمنا فهمت علي  يعني تكون فترت راحه للقاعدة وعلشان مايعلق البرنامج  ولا يكون في خطر على رقم العميل من الحضر   شكرا لكم انا مبغا كود الوتساب انا ابغا دالة التكرار وكيف اقدر اعطيها شرط توقف كل 10 سجلات او 5 عملاء بعدين تكمل  لين تخلص كل السجلات الي موجوده  وشكرا لكم

تم تعديل أغسطس 15, 2023 بواسطه Mohameddd200300

[Moosak]

وعليكم السلام ورحمة الله الله وبركاته 🙂 

باستخدام دالة Sleep نفسها المستخدمة للإنتظار في كود الواتسأب

ضع هذه الأسطر من ضمن كود الإرسال لديك ( يفضل أن يكون تحت جملة For مباشرة ) :

Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم
If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم
    Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية)
    W = 1
Else
    W = W + 1
End If

 

وهذا مثال للتجربة :

Sub SendToWhatsApp()

Dim x As Integer

For x = 1 To 50

    Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم
    If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم
        Debug.Print "================================(إنتظار)"
        Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية)
        W = 1
    Else
        W = W + 1
    End If



' هنا كود إرسال الواتسأب

Debug.Print "جار الإرسال للمستخدم رقم: ", x
Sleep 500
DoEvents
Next x

End Sub

والنتيجة :