[new_programer]

السلام عليكم 

 كل وانتم يخير جميعا 

لدي كود ارسال نص الى الواتس  اريد ارسال مرفق او صورة مع النص ارجو التعديل على الكود 

او ارفاق كود اخر يعمل     

كود :

 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 Try

[عبدالله الدوسري]

وعليكم السلام

لا يمكنك أبداً أرسال صورة بهذة الطريقة
كما انه لا يوجد كود بسيط لإرسال مرفقات

تحتاج إلى عمل أو إستخدام وسيط يقوم بهذة الأمور
1 - أما أن تستخدم الـ API الخاصة بـ Whatsapp المدفوعة والحصرية بفئة الـ ( business )
2 - أو أن تستخدم محاكي لبيئة الـ Web بواسطة ( client / Server )

لدي مشروع أقوم حالياً بتطويرة وهو غير مكتمل،
يرسل جميع أنواع الرسائل ( النصية - الصور - الوثائق - الفيديو - الصوت - الاستيكرات - الإيموجي - الصور المتحركة - VCard )
ويستقبل أيضا الرسائل وجميع أنواع المرفقات الواردة
كما يمكنك جلب جميع جهات الإتصال - وأيضاً اسماء ومعرفات القروبات
وإرسال رسائل ( Broadcast ) لمجموعة من جهات الإتصال
وإرسال للقروبات

المشروع يعمل بشكل جيد، ولكن احتاج إلى وقت لإنهاء بعض الأمور - مثل أن يكون جاهز للإستخدام مع أي مشروع بطريقة سهلة

المشروع يستخدم أمور كثيرة مثل :
MySQL - javascript - nodejs - Owin - SignalR - websocket

إن شاء الله بعد الإنتهاء سأضع هنا نسخة وشرح طريقة التثبيت والإستخدام للفائدة العامة

[new_programer]

استاذنا الكبير
عبدالله الدوسري

شكرا لك على ما تقدمه لافاداة ومساعدة الغير

وفقك الله
ربنا يذيدك من علمه - جعله الله في ميزان حسناتك