🟡🟢 تحديثات على مرسال الواتسأب ليتوافق مع الاصدار الجديد 🟢🟡

[ابوخليل]

احبتي

ما زلت اعمل على المثال

المشكلة الحاصلة هي بسببين :

1- لوحة المفاتيح والأمر sendkeys .. احيانا وداخل الاجراء تتحول الى off فيختل ترتيب الأوامر

وقد عالجت المشكلة باستخدام كود يجعل لوحة المفاتيح بوضع ON خلال تنفيذ الكود

2-ملاحظة غريبة بعد ترقية واتساب لم اكن اشاهدها في النسخة القديمة وهي ظهور مربع حوار اختيار المرفق  ولصق رابط الصورة ثم اختيار الصورة ثم اسقاطها في واتساب . كل هذا يحدث آليا امام عيني بواسطة الاوامر المتكررة من sendkeys وهذا مزعج وغير احترافي

وقد عالجت المشكلة واستبدلت الأوامر بامر واحد وهو اللصق مباشرة باستخدام  Ctrl+V وقد نجحت الفكرة واختصرنا عدة حركات والتي كانت هي السبب المباشر في هذا الخلل

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

وبحثت عن حلول  فوجدت الحل الشافي ودقة 100% في طريقة الاستاذ جعفر  وهي الاستعانة ببرنامج خارجي مساعد للنسخ

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

لذا سأنتظر لعلي اجد حلا لجودة الصورة المنسوخة ، والا سوف ارفعه حسب الطريقتين 

[Mohameddd200300]

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

__مرسال الواتسأب (2).accdb

[Lamyaa]

في 28‏/4‏/2023 at 19:50, Moosak said:

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

أستاذي الفاضل أنا افتح الوتساب بهذه الطريقة

 

' أولا يتم التعريف
Enum MSStoreAppName
    WhatsApp
End Enum

'ثم يمكن استخدام هذا الكود لتشغيل الوتساب 
CreateObject("WScript.Shell").Run "whatsapp:", 0, False

 

[Lamyaa]

19 ساعات مضت, Mohameddd200300 said:

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

__مرسال الواتسأب (2).accdb 984 kB · 3 downloads

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

 

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

جربت المرفق وللأسف لم يعمل معي بشكل صحيح

 

الصورة يتم إرسالها كمستند مرفق

في أحيان أخرى يتم إرسال ملف غير الملف المحدد !

[Mohameddd200300]

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

[ابوخليل]

ابشروا

وما زلت في محاولة التحسين

كنت اظن انني احكمت العمل

فوجئت بظهور ثغرات ... يجب ان اغلقها تماما .. يجب ان يكون العمل محكم

 

 

 

[ابوخليل]

السلام عليكم

تم انجاز العمل

حقا اخذ الكثير من الوقت ، ولكني تتبعت تفاصيل الارسال واسباب الخلل

يمكنكم الاطلاع على خطوات الارسال بمجرد مشاهدة الشاشة 

اذا قابلتك مشكلة او خلل في الارسال فسيكون حتما من شيء واحد فقط وهو  ( زمن الانتظار بين الأمر والذي يليه )

اخترت اطالة الزمن في بعض الاوامر كمسألة احتياطية ( يمكنكم التجربة بتعديل الزمن .. ولكن لا تنسى اخذ نسخة من الكود للرجوع الى الحالة الاصلية ان استدعى الأمر )

حاليا يرسل الرسائل النصية مع المرفق ( الصور فقط .. ويمكن تطويره  لارسال انواع الملفات الأخرى )

امكانية ارسال نص فقط  بدون مرفقات

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

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

 

 

 

 

sendWa.mdb

[Mohameddd200300]

سلام عليكم  

اخواني الاعزاء  قمت بتعديل الملف مراه اخرا بعد استذا ابو خليل جابلي فكرة لصق المرفق  اتمنا ان ان يفيدكم   ملاحة مديول 4يجب نقله من اجل تغير الغة اذا بتنقل الكود الى بنامجكم 

__مرسال الواتسأب (2).accdb

تم تعديل مايو 3, 2023 بواسطه Mohameddd200300

[Lamyaa]

23 ساعات مضت, ابوخليل said:

ابشروا

وما زلت في محاولة التحسين

كنت اظن انني احكمت العمل

فوجئت بظهور ثغرات ... يجب ان اغلقها تماما .. يجب ان يكون العمل محكم

 

 

 

للأسف لم يعمل معي بشكل صحيح

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

[Lamyaa]

يبدو أن شركة الوتساب حدثت البرنامج

اليوم رجعت إلى مثال الأستاذ موسى الكلباني .. وإذا به يعمل بشكل صحيح ودون مشاكل

[ابوخليل]

30 دقائق مضت, Lamyaa said:

للأسف لم يعمل معي بشكل صحيح

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

هنا يكون امر (  "sendkeys    "^1  ) لم يعمل ... اما ان لوحة المفاتيح مفتوحة او ان الزمن غير كافي

[ابوخليل]

هذا شرح لخطوات الكود .. نسيت ان اوضحه داخل المثال ..  لمن يريد التعديل او الاختصار او التطوير

كما هو ملاحظ تكرار  sleep500 مرتين وهذا خطأ  بدلا من ذلك نضع 1000 .. وهذا راجع الى الاستعجال في رفع المثال لحاجة الاخوة هنا

علما انني سوف استمر في البحث عن الافضل

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

 

[Moosak]

15 ساعات مضت, ابوخليل said:

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

شكرا لك عمي @ابوخليل على هذي الرائعة 🙂 ..

أعتذر عن الغياب وعدم التفاعل خلال هذي الفترة .. بعيد قليلا عن عالم التقنية .. ولي عودة قريبا إن شاء الله .