12-03-24, 03:12 AM
السلام عليكم
كل وانتم يخير جميعا
لدي كود ارسال نص الى الواتس اريد ارسال مرفق او صورة مع النص ارجو التعديل على الكود
او ارفاق كود اخر يعمل
كل وانتم يخير جميعا
لدي كود ارسال نص الى الواتس اريد ارسال مرفق او صورة مع النص ارجو التعديل على الكود
او ارفاق كود اخر يعمل
كود :
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