ارقام الواتساب

[ابو فتحى]

السلام عليكم 

استخدام ملف ارسال رسايل الواتساب من هذا المنتدى العظيم حتى الارقام غير مسحل عندى 

و الان لا يرسال الارقام غير مسجلة 

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

 

[ابو فتحى]

up

[safaa salem5]

 

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

[دروب مبرمج]

لإرسال رسالة واتس اب

اولاً / يجب تثبيت الواتس اب على الكبيوتر الخاص بك

 

ثانياً / هذه هي الشفرة الأساسية للإرسال

whatsapp://send?phone=" & "" & "&text=" & ""

ثالثاً انشئ موديول جديد و الصق فيه الشفرة التالية

Public Function SendMsg(Phon_Number As Variant, TexTMag As String)
Dim StrURL As Variant
Dim StrToNumber As Variant
Dim StrMsg As Variant

StrToNumber = Phon_Number
StrMsg = EncodeQP2(TexTMag)

StrURL = "whatsapp://send?phone=" & StrToNumber & "&text=" & StrMsg
CreateObject("WScript.Shell").Run StrURL, 1, False

Call StartTimer(3)
Call SendKeys("{ENTER}")

End Function

Public Function EncodeQP2(s As String) As String
    Dim i As Long
    Dim p1 As Long
    Dim p2 As Long
    Dim r As String
    Dim n As Long
    For i = 1 To Len(s)
        n = AscW(Mid(s, i, 1))
        If n < 128 Then
            r = r & "%" & Hex(n)
        ElseIf n < 2048 Then
            p1 = n \ 64
            r = r & "%" & Hex(p1 + 192)
            p2 = n Mod 64
            r = r & "%" & Hex(p2 + 128)
        Else
           
        End If
    Next i
    EncodeQP2 = r
End Function

Public Function StartTimer(NumberOfSeconds As Variant)
On Error Resume Next
Dim PauseTime, Start, Finish, TotalTime
    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
End Function

ثم في النموذج الخاص بك و في ازرار الارسال

Call SendMsg("966590000000", "السلام عليكم")

 

[ابو فتحى]

اخى العزيز دروب مبرمج

اولا : شكرا غلى الاهتمام و الرد

ثانيا : ممكن شرح هذا الكود 

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

هذا برنامج أستاذ موسى تم تطويره للعمل على واتساب أخر نسخة ( الويندوذ)  يعمل لدى يقوم بالارسال رسالة لعدة اشخاص حتى التى غير مسجلة بالهاتف  و يتجاهل الارقام غير المسجلة بالواتس

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

المشكلة الوحيدة أن الواتس بعد مدة يحدث نفسه فيجب التعلم ضبط مفاتيح الارسال 




 

مرسال الواتسأب.rar

[safaa salem5]

2 hours ago, محمد احمد لطفى said:

هذا برنامج أستاذ موسى تم تطويره للعمل على واتساب أخر نسخة ( الويندوذ)  يعمل لدى يقوم بالارسال رسالة لعدة اشخاص حتى التى غير مسجلة بالهاتف  و يتجاهل الارقام غير المسجلة بالواتس

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

المشكلة الوحيدة أن الواتس بعد مدة يحدث نفسه فيجب التعلم ضبط مفاتيح الارسال 




 

مرسال الواتسأب.rar 146.16 kB · 3 downloads

شكرا استاذ محمد جزاك الله خيرا 

هل ممكن إرفاق ملفات

pdf مع الرساله

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

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

لارسال ملف pdf 
اختيار نوع المرفق مستند و اختيار ملف pdf  الذى سنرسله و الضغط على ارسال 

اما مفاتيح الارسال يجب معرفة كيف يعمل الواتس عندما يتحدث  و نقوم بتجريب خطوة خطوة  عن طريق sendkey ( زراير الكيبورد )
 

تم تعديل نوفمبر 17, 2023 بواسطه محمد احمد لطفى

[ابو فتحى]

ممكن نسخة 2003 بعد اذنك و شكرل

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

[ابو فتحى]

الف شكرا على تعبك معى 

[UserUser2]

في 17‏/11‏/2023 at 06:52, محمد احمد لطفى said:

هذا برنامج أستاذ موسى تم تطويره للعمل على واتساب أخر نسخة ( الويندوذ)  يعمل لدى يقوم بالارسال رسالة لعدة اشخاص حتى التى غير مسجلة بالهاتف  و يتجاهل الارقام غير المسجلة بالواتس

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

المشكلة الوحيدة أن الواتس بعد مدة يحدث نفسه فيجب التعلم ضبط مفاتيح الارسال 




 

مرسال الواتسأب.rar 146.16 kB · 47 downloads

هل من الممكن استخدام واتساب ويب بدلاً من برنامج الديسك توب الخاص بالواتساب 
@محمد احمد لطفى

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

نعم يوجد فى المنتدى تفضل

 

اقتباس

 

 

[UserUser2]

7 دقائق مضت, محمد احمد لطفى said:

نعم يوجد فى المنتدى تفضل

 

 

من فضلك ممكن تطبيقه علي هذا المثال 
لانى حاولت ولم تفلح 

 

في 17‏/11‏/2023 at 06:52, محمد احمد لطفى said:

هذا برنامج أستاذ موسى تم تطويره للعمل على واتساب أخر نسخة ( الويندوذ)  يعمل لدى يقوم بالارسال رسالة لعدة اشخاص حتى التى غير مسجلة بالهاتف  و يتجاهل الارقام غير المسجلة بالواتس

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

المشكلة الوحيدة أن الواتس بعد مدة يحدث نفسه فيجب التعلم ضبط مفاتيح الارسال 




 

مرسال الواتسأب.rar 146.16 kB · 48 downloads

 

9 دقائق مضت, محمد احمد لطفى said:

نعم يوجد فى المنتدى تفضل

 

 

وفي هذا المثال لازم الارقام تكون مسجل لها دردشه سابقه للاسف

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

واتساب ويب يجب ان تكون الارقام مسجلة لديك و ان تكون مسجلة ايضا فى الواتس حتى لا يتوقف البرنامج

[UserUser2]

الان, محمد احمد لطفى said:

واتساب ويب يجب ان تكون الارقام مسجلة لديك و ان تكون مسجلة ايضا فى الواتس حتى لا يتوقف البرنامج

لو من التطبيق نفسه يشتغل عادى بدون تسجيل الاسماء 
وارسال رساله لاكثر من رقم دفعه واحده 

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

هذا صحيح