اذهب الي المحتوي
أوفيسنا

ربط الواتس بالاكسس


hosslom

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

تفضل .....

في ٢٤‏/٩‏/٢٠٢٠ at 21:02, kanory said:

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

طرح في موضوع سابق موضوع رسائل الواتس

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

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

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

هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40  يمكنك تغييرها ليتناسب مع سرعة جهازك ......

 

 

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

أولا : الذهاب للرابط https://www.whatsapp.com/download  وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit

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

ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة )

رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40  ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية ....

 

 

 

3.png

5.png

 

منتظر انطباعاتكم حول البرنامج ؟؟؟؟

 

 

WhatsApp_kan.accdb 596 kB · 275 downloads

هنا تجدون الموضوع السابق ......

 

 

  • Thanks 1
رابط هذا التعليق
شارك

اخي الكريم 

لفتح محادثه مع رقم محدد استخدم الشفرة التالية

 
dIM phone_no, MsgText AS sTRING
phone_no=" رقم الهاتف المحمول"
mSGtEXT="نص الرسالة"

Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & phone_no  & "&text=" & MsgText
    
' الاجراءات بعد فتح الواتس اب سواء عن طريق المتصفح او التطبيق للإرسال 

auseTime = 40
start = Timer
Do While Timer < start + auseTime
DoEvents
Loop
Call SendKeys("~", True)
Call SendKeys("{Enter}", True)
Call SendKeys("^v", True)
Call SendKeys("{Enter}", True)

                      

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم وشهركم مبارك وكل عام وانتم بالف صحه وعافية 

ياريت استاذنا الغالي ارفاق نموذج بسيط للموضوع وبارك الله فيك 

رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

في ٢٠‏/٤‏/٢٠٢١ at 20:27, hosslom said:

جزاك الله كل خير د.كاف يار

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

اتفضل هذا مثال لإرسال المرفقات

لأي استفسار انا في الخدمة

ارسال الصور.rar

في ٢١‏/٤‏/٢٠٢١ at 05:04, Mohameddd200300 said:

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

باقي المرفقات تتم بنفس اسلوب ارفاق الصور 

يتم تحويل المرفق الى بيانات و يتم تخزينها في الذاكرة المؤقته 

و من ثم يتم لصقها في تطبيق الواتساب 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

8 ساعات مضت, hosslom said:

 د.كاف يار شكرا لك اخي الكريم 

ولكن هل يوجد كود  يتم برمجته من داخل نموذج اكسس وليس استدعاء برنامج خارجي

هل يوجد طريقه  ولك جزيل الشكر

 

https://www.officena.net/ib/topic/105324-ارسال-رسائل-whatsapp-وتساب-بدون-حفظ-الرقم/

تم تعديل بواسطه Mohameddd200300
رابط هذا التعليق
شارك

  • 2 months later...

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

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

حاولت افتح المشروف في فيجل بسيك بس مارضي  فتمنا منك الرد وشكرا  @د.كاف يار 

رابط هذا التعليق
شارك

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

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

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

حاولت افتح المشروف في فيجل بسيك بس مارضي  فتمنا منك الرد وشكرا  @د.كاف يار 

اتفضل هذا ملف المشروع

 

WindowsApplication1.zip

  • Like 3
رابط هذا التعليق
شارك

جرب هذا  الملف مجرب مجرد تضع الارقام التي تريدها وتكتب نص الرسالة ، شرط ان تقوم بتنزل برنامج الواتساب للكمبيوتر ,,

 

تحياتي 

الواتس.accdb

  • Like 1
رابط هذا التعليق
شارك

شكرا اخوي  @د.كاف يار

بس في مشكله انا مش متمكن في الفيجل بسيك بزياده 

بس معي كود حق الكيبورد يعني الزراير 

زي كنترول وحرف ال v.  مايشتغل   وكمان في الملف الي عطني ايها  كان فيمشكله في نص الرساله ماكان ياخذ النص  عدلته 

بس في  كم  اختصار مهم كانت لازم تضيفها 

زي كنترول w  منشان تمسح الصفحا الي قبلها 

وكمان اذاانتها من الارقم تضهر رساله تقول تم الإرسال 

 وتقم بإغلاق البرنامج  

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

في مكتبها تفعلها في اكسس. تخلي عملة المتصفحه مخفيه 

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

 

 

رابط هذا التعليق
شارك

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

شكرا اخوي  @د.كاف يار

بس في مشكله انا مش متمكن في الفيجل بسيك بزياده 

بس معي كود حق الكيبورد يعني الزراير 

زي كنترول وحرف ال v.  مايشتغل   وكمان في الملف الي عطني ايها  كان فيمشكله في نص الرساله ماكان ياخذ النص  عدلته 

بس في  كم  اختصار مهم كانت لازم تضيفها 

زي كنترول w  منشان تمسح الصفحا الي قبلها 

وكمان اذاانتها من الارقم تضهر رساله تقول تم الإرسال 

 وتقم بإغلاق البرنامج  

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

في مكتبها تفعلها في اكسس. تخلي عملة المتصفحه مخفيه 

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

 

 

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

الأكسس ضعيف و مخصص للاستخدام البسيط

لكن اعطيني طلبك ايش الهدف الي تحتاج توصله ؟؟

  • Like 2
رابط هذا التعليق
شارك

في ٢٦‏/٤‏/٢٠٢١ at 03:53, د.كاف يار said:

اتفضل هذا مثال لإرسال المرفقات

لأي استفسار انا في الخدمة

ارسال الصور.rar 196.17 kB · 49 downloads

باقي المرفقات تتم بنفس اسلوب ارفاق الصور 

يتم تحويل المرفق الى بيانات و يتم تخزينها في الذاكرة المؤقته 

و من ثم يتم لصقها في تطبيق الواتساب 

 

 

تسلم اخوي @د.كاف يار  طبعا رفعت لك الملف الي كنت اقولك علية  اضغط هنا لتحميل

بنسبة للتصميم .

1 في مشكلة في في البرنامج مايضغط الاختصارت زي ما قلتلك   زي ctrl+v   او  ctrl +w  منشان تكون تسكر الصفحة الي قبلها في المتصف  اذا كنت بتستخدم المتصف بس في النموذج الي رفعتة  هو يستخدم المتصفة القديم  ويكون مخفي  طبعنا يكون ctrl+w  يكون بعد ثاني مره من بدا الارسل منشان يسكر الصفحة الي قبله .

2 يكون في قيمة افتراضية  ماخوذة من قاعدة البينات الي رفعتها في اكسس  .

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

4 بس وبي الاخير  يقومبي اغلاق البرنامج تلاقي  وهذيس بسيطة . ادري طولت عليك يا غالي  بس انت نابغة ولاز نتعلم منك يا عمي  ولله يجزيك خير 

 

رابط هذا التعليق
شارك

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

 

 

تسلم اخوي @د.كاف يار  طبعا رفعت لك الملف الي كنت اقولك علية  اضغط هنا لتحميل

بنسبة للتصميم .

1 في مشكلة في في البرنامج مايضغط الاختصارت زي ما قلتلك   زي ctrl+v   او  ctrl +w  منشان تكون تسكر الصفحة الي قبلها في المتصف  اذا كنت بتستخدم المتصف بس في النموذج الي رفعتة  هو يستخدم المتصفة القديم  ويكون مخفي  طبعنا يكون ctrl+w  يكون بعد ثاني مره من بدا الارسل منشان يسكر الصفحة الي قبله .

2 يكون في قيمة افتراضية  ماخوذة من قاعدة البينات الي رفعتها في اكسس  .

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

4 بس وبي الاخير  يقومبي اغلاق البرنامج تلاقي  وهذيس بسيطة . ادري طولت عليك يا غالي  بس انت نابغة ولاز نتعلم منك يا عمي  ولله يجزيك خير 

 

 

ايش رأيك نتعاون و ننفذ الفكرة على vb.net 

لأن بإختصار راح نعمل محاكاة للواتساب بإستخدام محرر Html

من خلال MSXML2.ServerXMLHTTP

الفكرة ممكن ننفذها في الاكسس و لكني افضل Vb.net  or C#

كذلك ما تضمن ان العميل يكون مثبت تطبيق الواتساب 

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

رابط هذا التعليق
شارك

4 ساعات مضت, د.كاف يار said:

 

ايش رأيك نتعاون و ننفذ الفكرة على vb.net 

لأن بإختصار راح نعمل محاكاة للواتساب بإستخدام محرر Html

من خلال MSXML2.ServerXMLHTTP

الفكرة ممكن ننفذها في الاكسس و لكني افضل Vb.net  or C#

كذلك ما تضمن ان العميل يكون مثبت تطبيق الواتساب 

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

تمام بس زي ما قلتلك ترا لسا مبتدا في فيجل استديو 

بس اتوقع تصميم محاكي الوتساب  صعب شوي 

لي انه يشتغل على عدد متصفحات معين 

رابط هذا التعليق
شارك

في ٤‏/٧‏/٢٠٢١ at 07:03, د.كاف يار said:

 

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

اخوي @د.كاف يار

شوف هذا الفيديو. في شرح لتصميم  البرنامج بدون استخدام برنامجالوتساب 

https://youtu.be/4i4G7GBSgnI

رابط هذا التعليق
شارك

19 دقائق مضت, Mohameddd200300 said:

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

اخوي @د.كاف يار

شوف هذا الفيديو. في شرح لتصميم  البرنامج بدون استخدام برنامجالوتساب 

https://youtu.be/4i4G7GBSgnI

image.png.4baa974c8ac021eaf6f6dd788fbc275e.png

 

لأنه يستخدم API  حساب تجاري مدفوع 

 

image.png.ac44d27579947ee920db806c05a43c6a.png

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

كما يوجد العدد من مزودي الخدمة معتمدين لدى فيس بوكwhatsappAPI

  • Thanks 1
رابط هذا التعليق
شارك

  • 7 months later...

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