+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود ارسال صورة الى الواتس (/showthread.php?tid=48076)
تعديل كود ارسال صورة الى الواتس - new_programer - 12-03-24
السلام عليكم
كل وانتم يخير جميعا
لدي كود ارسال نص الى الواتس اريد ارسال مرفق او صورة مع النص ارجو التعديل على الكود
او ارفاق كود اخر يعمل
كود :
Try
Dim web As New WebBrowser
web.Navigate("whatsapp://send?phone=" & txtmob.Text & "&text=" & txtmessage.Text.Replace(" ", "+") & "")
'web.Navigate("whatsapp://send?phone=" & txtmob.Text & "&text=" & txtmessage.Text = "D:/99.pdf")
Timer1.Start()
Catch ex As Exception
Timer1.Stop()
End TryRE: تعديل كود ارسال صورة الى الواتس - عبدالله الدوسري - 21-03-24
وعليكم السلام
لا يمكنك أبداً أرسال صورة بهذة الطريقة
كما انه لا يوجد كود بسيط لإرسال مرفقات
تحتاج إلى عمل أو إستخدام وسيط يقوم بهذة الأمور
1 - أما أن تستخدم الـ API الخاصة بـ Whatsapp المدفوعة والحصرية بفئة الـ ( business )
2 - أو أن تستخدم محاكي لبيئة الـ Web بواسطة ( client / Server )
لدي مشروع أقوم حالياً بتطويرة وهو غير مكتمل،
يرسل جميع أنواع الرسائل ( النصية - الصور - الوثائق - الفيديو - الصوت - الاستيكرات - الإيموجي - الصور المتحركة - VCard )
ويستقبل أيضا الرسائل وجميع أنواع المرفقات الواردة
كما يمكنك جلب جميع جهات الإتصال - وأيضاً اسماء ومعرفات القروبات
وإرسال رسائل ( Broadcast ) لمجموعة من جهات الإتصال
وإرسال للقروبات
المشروع يعمل بشكل جيد، ولكن احتاج إلى وقت لإنهاء بعض الأمور - مثل أن يكون جاهز للإستخدام مع أي مشروع بطريقة سهلة
المشروع يستخدم أمور كثيرة مثل :
MySQL - javascript - nodejs - Owin - SignalR - websocket
إن شاء الله بعد الإنتهاء سأضع هنا نسخة وشرح طريقة التثبيت والإستخدام للفائدة العامة
RE: تعديل كود ارسال صورة الى الواتس - new_programer - 21-03-24
استاذنا الكبير
عبدالله الدوسري
شكرا لك على ما تقدمه لافاداة ومساعدة الغير
وفقك الله
ربنا يذيدك من علمه - جعله الله في ميزان حسناتك