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

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

قام بنشر

السلام عليكم 

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

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

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

 

قام بنشر

 

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

قام بنشر

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

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

 

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

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", "السلام عليكم")

 

  • Like 1
قام بنشر

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

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

 

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

:rol:



 

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

  • Like 2
قام بنشر
2 hours ago, محمد احمد لطفى said:

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

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

 

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

:rol:



 

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

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

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

pdf مع الرساله

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

قام بنشر (معدل)

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

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

تم تعديل بواسطه محمد احمد لطفى
  • 3 weeks later...
قام بنشر
في 17‏/11‏/2023 at 06:52, محمد احمد لطفى said:

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

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

 

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

:rol:



 

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

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

  • Like 1
قام بنشر
7 دقائق مضت, محمد احمد لطفى said:

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

 

 

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

 

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

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

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

 

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

:rol:



 

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

 

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

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

 

 

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

  • Like 1
قام بنشر
الان, محمد احمد لطفى said:

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

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

  • Thanks 1

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