semo.pa3x ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس

[SEMO.Pa3x]

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

من المعروف ان الواتس اب يسمح لك بارسال 5 رسائل فقط في كل مرة

يعني لو كان لدينا 15 شخص نريد ان نرسل له رسالة علينا ان نقوم باعادة توجيه الرسالة 3 مرات كل مرة 5 اشخاص..

قمت بعمل اداة صغيرة في الـ NET. لتقوم بهذه المهمة.

 

صورة مشروع الاكسس:

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

يمكنك شروط البرنامج بحسب ماتراه مناسباً.

النتيجة:

 

ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر

واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال:

 

لتحميل الواتس اب من الرابط الاتي:

https://www.whatsapp.com/download

 

لا تنسوني ووالدي من صالح دعائكم.

تم بحمد الله.

 

Whatsapp-Message-Sender.rar

تم تعديل فبراير 17, 2022 بواسطه SEMO.Pa3x

[مصطفي الفيومي]

حملت الملف وجربت ولكن البرنامج لا يرسل رسائل بالرغم اني فاتح الواتس علي الكمبيوتر 

ممكن شرح تشغيل البرنامج وكيفية استخدامة

جزاك الله خيرا

[Moosak]

أولا أشكرك أخي العزيز .. جهود طيبة إن شاء الله ..

لكن عندي ثلاث ملاحظات ..

الأولى : برنامج الواتسأب يقف عند كتابة الرسالة ولا يقوم بعملية الإرسال :

ثانيا : مربع البحث لايعمل

ثالثا : أنا أعمل على نواة 64 بت فاضررت لإضافة PtrSafe على هذه الجمل :

Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal _
    hHandle As Long, ByVal dwMilliseconds As Long) As Long
    
Private Declare PtrSafe Function CreateProcessA Lib "kernel32" (ByVal _
    lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
    lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
    ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
    ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
    lpStartupInfo As STARTUPINFO, lpProcessInformation As _
    PROCESS_INFORMATION) As Long
    
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal _
    hObject As Long) As Long

 

 

 

تم تعديل فبراير 17, 2022 بواسطه Moosak

[SEMO.Pa3x]

53 دقائق مضت, مصطفي الفيومي said:

حملت الملف وجربت ولكن البرنامج لا يرسل رسائل بالرغم اني فاتح الواتس علي الكمبيوتر 

ممكن شرح تشغيل البرنامج وكيفية استخدامة

جزاك الله خيرا

 

ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر

واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال:

26 دقائق مضت, Moosak said:

أولا أشكرك أخي العزيز .. جهود طيبة إن شاء الله ..

لكن عندي ثلاث ملاحظات ..

الأولى : برنامج الواتسأب يقف عند كتابة الرسالة ولا يقوم بعملية الإرسال :

ثانيا : مربع البحث لايعمل

ثالثا : أنا أعمل على نواة 64 بت فاضررت لإضافة PtrSafe على هذه الجمل :

Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal _
    hHandle As Long, ByVal dwMilliseconds As Long) As Long
    
Private Declare PtrSafe Function CreateProcessA Lib "kernel32" (ByVal _
    lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
    lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
    ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
    ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
    lpStartupInfo As STARTUPINFO, lpProcessInformation As _
    PROCESS_INFORMATION) As Long
    
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal _
    hObject As Long) As Long

 

 

 

 

الأولى: اكتب رقم الموبايل كما شرحت في الأعلى

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

ثالثا: انا ايضا اعمل على ويندوز 10 نواة 64 ولم اضطر لاضافة PtrSafe

[abouelhassan]

حفظك الله وغفر لك ولوالديك وزادك الله من فضله اللهم امين يارب

[Moosak]

8 دقائق مضت, SEMO.Pa3x said:

اكتب رقم الموبايل كما شرحت في الأعلى

بعد التعديل اشتغل تمام 👍🏼🙂 

بارك الله فيك دكتور

[محمد عبد الله ٢]

جزاك الله خيرآ أخي الكريم

و لكن مع الأسف لم يعمل لدى حاسوبي

و قد اتبعت الخطوات بدقة متناهية .. إلا أنه لم يعمل !!

[SEMO.Pa3x]

14 دقائق مضت, محمد عبد الله ٢ said:

جزاك الله خيرآ أخي الكريم

و لكن مع الأسف لم يعمل لدى حاسوبي

و قد اتبعت الخطوات بدقة متناهية .. إلا أنه لم يعمل !!

 

ذكرت المشكلة في الأعلى، تأكد من رقم الهاتف يجب ان تكتب الرقم كما ظاهر لك في الواتس اب مفتاح الدولة ووو

[king5star]

بسم الله ما شاء الله 

وربنا يكرمك على المجهود 

بس من الممكن انك تبعت رسائل من غير برنامج ملحق او باتش او اى مساعدة خارجية ولا يحتاج مكتبات ويعمل على النسختين 32 , 64 

WhatsappMessageSender.accdb

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

ملحوظة هامة :

عند الارسال لأول مره اول مرع على الاطلاق اضغط على زر Alt + Tap

ستجد رسالة بها Allow و Not Allow وباعلاها علامه صح امسح الصح من على التشيك بوكس واضغط Allow ولن تظهر ثانيه وسيتم الارسال ورا بعض بدون ادني مشكلة .

وبرجاء اخذها سكرين شوت ووضعها بالمشاركات لتعم الفائدة للجميع .

ملحوظة اخري :

سواء بالطريقة التى تفضلت بوضعها او التى انا قمت بوضعها اذا كان رقم الموبايل جديد او ارضي بياخد باند ولتفادى المشكلة يجب رفع زمن الانتظار بين الرسائل الى 16 ثانية بحد ادني

والحد الاقصي لارسال رسائل من اى رقم قديم ان لا تتعدي 45 رسالة بالدقيقة .

 

ملحوظة اخري :

غير مشترط وضع اسم الشخص ولكن يجب ان يبدأ رقم الموبايل بكود الدولة .

تم تعديل فبراير 17, 2022 بواسطه king5star
ازاله بيانات شخصية

[محمد عبد الله ٢]

8 دقائق مضت, SEMO.Pa3x said:

ذكرت المشكلة في الأعلى، تأكد من رقم الهاتف يجب ان تكتب الرقم كما ظاهر لك في الواتس اب مفتاح الدولة ووو

تمامآ أستاذي الكريم .. كما تفضلت في ردك , قمت بكتابة الرقم بدقة متناهية

إلا أنني إنتبهت على أن البرنامج الملحق المسمى SWM لا يعمل لدي

قد يكون الويندوز هو سبب في ذلك , أعمل على ويندوز 10 نواة 64

[king5star]

 

 

4 دقائق مضت, محمد عبد الله ٢ said:

تمامآ أستاذي الكريم .. كما تفضلت في ردك , قمت بكتابة الرقم بدقة متناهية

إلا أنني إنتبهت على أن البرنامج الملحق المسمى SWM لا يعمل لدي

قد يكون الويندوز هو سبب في ذلك , أعمل على ويندوز 10 نواة 64

جرب المرفق الذى وضعته بالمشاركة التى قبلك .

[محمد عبد الله ٢]

2 دقائق مضت, king5star said:

جرب المرفق الذى وضعته بالمشاركة التى قبلك .

قمت بتجربته و هو يعمل بشكل صحيح 

جزاك الله خيرآ أستاذي المحترم 

[king5star]

2 دقائق مضت, محمد عبد الله ٢ said:

قمت بتجربته و هو يعمل بشكل صحيح 

جزاك الله خيرآ أستاذي المحترم 

الحمد لله بالتوفيق وفي تعديل ممكن ارفقه غداُ بارسال الصور والملفات .

[محمد عبد الله ٢]

5 دقائق مضت, king5star said:

ممكن ارفقه غداُ بارسال الصور والملفات .

جزاك الله خيرآ  أسأل الله أن يبارك لك في علمك و أعمالك 

[SEMO.Pa3x]

28 دقائق مضت, محمد عبد الله ٢ said:

تمامآ أستاذي الكريم .. كما تفضلت في ردك , قمت بكتابة الرقم بدقة متناهية

إلا أنني إنتبهت على أن البرنامج الملحق المسمى SWM لا يعمل لدي

قد يكون الويندوز هو سبب في ذلك , أعمل على ويندوز 10 نواة 64

 

قم بتشغيل البرنامج المسمى SWM والتقط لي صورة للخطأ الذي يظهر

[محمد عبد الله ٢]

الان, SEMO.Pa3x said:

قم بتشغيل البرنامج المسمى SWM والتقط لي صورة للخطأ الذي يظهر

لا يظهر أي خطأ  , و كأنما نقرتين على سطح المكتب في مكان فارغ , و قمت بتشغيله كمسؤول و كان الأمر كالسابق

 

[SEMO.Pa3x]

11 دقائق مضت, محمد عبد الله ٢ said:

لا يظهر أي خطأ  , و كأنما نقرتين على سطح المكتب في مكان فارغ , و قمت بتشغيله كمسؤول و كان الأمر كالسابق

 

هل يوجد لديك برنامج Teamviewer او AnyDesk ؟

[SEMO.Pa3x]

44 دقائق مضت, king5star said:

بسم الله ما شاء الله 

وربنا يكرمك على المجهود 

بس من الممكن انك تبعت رسائل من غير برنامج ملحق او باتش او اى مساعدة خارجية ولا يحتاج مكتبات ويعمل على النسختين 32 , 64 

WhatsappMessageSender.accdb 896 kB · 4 downloads

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

ملحوظة هامة :

عند الارسال لأول مره اول مرع على الاطلاق اضغط على زر Alt + Tap

ستجد رسالة بها Allow و Not Allow وباعلاها علامه صح امسح الصح من على التشيك بوكس واضغط Allow ولن تظهر ثانيه وسيتم الارسال ورا بعض بدون ادني مشكلة .

وبرجاء اخذها سكرين شوت ووضعها بالمشاركات لتعم الفائدة للجميع .

ملحوظة اخري :

سواء بالطريقة التى تفضلت بوضعها او التى انا قمت بوضعها اذا كان رقم الموبايل جديد او ارضي بياخد باند ولتفادى المشكلة يجب رفع زمن الانتظار بين الرسائل الى 16 ثانية بحد ادني

والحد الاقصي لارسال رسائل من اى رقم قديم ان لا تتعدي 45 رسالة بالدقيقة .

 

ملحوظة اخري :

غير مشترط وضع اسم الشخص ولكن يجب ان يبدأ رقم الموبايل بكود الدولة .

 

شكرا لك، سأجرب واعود

 

تم تعديل فبراير 17, 2022 بواسطه SEMO.Pa3x

[محمد عبد الله ٢]

12 ساعات مضت, SEMO.Pa3x said:

هل يوجد لديك برنامج Teamviewer او AnyDesk ؟

أعتذر عن تأخري في الرد على حضرتك .. نعم يوجد استاذي الكريم

ان كنت حضرتك متفرغآ اليوم مساءً أقوم بتشغيل برنامج Teamviewer 

 

 

[SEMO.Pa3x]

منذ ساعه, محمد عبد الله ٢ said:

أعتذر عن تأخري في الرد على حضرتك .. نعم يوجد استاذي الكريم

ان كنت حضرتك متفرغآ اليوم مساءً أقوم بتشغيل برنامج Teamviewer 

 

 

ارسل الارقام الان ع الخاص

[jjafferr]

14 ساعات مضت, SEMO.Pa3x said:

هل يوجد لديك برنامج Teamviewer او AnyDesk ؟

مع ان هذا يُعتبر مخالف لقوانين المنتدى:

21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم.

 

ولكننا سننظر له على ان نتائج هذه المساعدة سوف تستفيد منها في تنقيح برنامجك ، وستلخص لنا النتيجة هنا ، حتى يستفيد الجميع من ذلك 🙂

 

جعفر

[ابو فتحى]

ممكن نسخة 2003 للتجربة

[at_aziz]

في 17‏/2‏/2022 at 16:28, SEMO.Pa3x said:

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

من المعروف ان الواتس اب يسمح لك بارسال 5 رسائل فقط في كل مرة

يعني لو كان لدينا 15 شخص نريد ان نرسل له رسالة علينا ان نقوم باعادة توجيه الرسالة 3 مرات كل مرة 5 اشخاص..

قمت بعمل اداة صغيرة في الـ NET. لتقوم بهذه المهمة.

 

صورة مشروع الاكسس:

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

يمكنك شروط البرنامج بحسب ماتراه مناسباً.

النتيجة:

 

ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر

واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال:

 

لتحميل الواتس اب من الرابط الاتي:

https://www.whatsapp.com/download

 

لا تنسوني ووالدي من صالح دعائكم.

تم بحمد الله.

 

Whatsapp-Message-Sender.rar 47.83 kB · 31 downloads

بارك الله فيك وجزاك الله خير  استاذنا الفاضل

مثال جدا رائع ومهم  

انا جربه وشغال عندي تمام

اخي هل الارسال مفتوح لاكثر من 15 رقم 

مثلا انا عندي اكثر من 100 رقم  هل يرسل بدون مشاكل  دفعه واحده

بارك الله فيك وبعلمك

تم تعديل فبراير 18, 2022 بواسطه at_aziz

[SEMO.Pa3x]

16 ساعات مضت, at_aziz said:

بارك الله فيك وجزاك الله خير  استاذنا الفاضل

مثال جدا رائع ومهم  

انا جربه وشغال عندي تمام

اخي هل الارسال مفتوح لاكثر من 15 رقم 

مثلا انا عندي اكثر من 100 رقم  هل يرسل بدون مشاكل  دفعه واحده

بارك الله فيك وبعلمك

 

نعم العدد مفتوح لعدد X من المستخدمين

معنى الـ X مثلا لو كان لديك مليون شخص او الف او غيره يمكنك الارسال لهم بدون اي جهد.

فقط حدد الاشخاص المطلوبين واكتب الرسالة ودع الاداة تقوم بالباقي.

[ابو نزار]

غفر الله لك ولولديك وبلغك ما تحب وترجوه ... واعطاك ما تتمناه ..