+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=48001)
محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب - new_programer - 03-03-24
السلام عليكم
محتاج كود او طريقة لارسال نص رسالة بالنتسيق
الرسالة المرسلة بتوصل بالشكل دة
[attachment=29434]
RE: محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب - new_programer - 04-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 Tryكما حاولت ادراج مرفق مع الرسالة - لم اتكمن من الوصول الى الطريقة
---- محتاج ارسل الرسلة بالشكل دة
RE: محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب - new_programer - 04-03-24
الحمد لله
توصلت للتنسيق افضل من السابق
بفضل هذا الكود
كود :
strMessage = LblCompany.Text & "%0a" & "Invoice Number : " & txtInvoiceno.Text & "%0a" & "Invoice Date : " & DtInvdate.Value.ToString("MM/dd/yyyy") & ""
web.Navigate("whatsapp://send?phone=" & txtcontact.Text & "&text=" & strMessage & "")