منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(11-08-18, 02:10 AM)Null كتب : [ -> ]ضع الكود الاول الذي تقول فيه (عند ارسال رسالة الي الجوال تظهر  علي شكل ؟؟؟؟؟؟؟؟؟؟؟)

الارسال من الجوال مكلف،
لماذا لا تستخدم رسائل SMS عن طريق الانترنت، فهي أرخص بكثير
مثل شركة https://www.mobily.ws

في ليبيا لا يوجد مثل شركة https://www.mobily.ws

(11-08-18, 02:14 AM)الزوي كتب : [ -> ]في ليبيا لا يوجد مثل شركة https://www.mobily.ws

ربما هذه الشركة تفيدك في ليبيا
https://smsafrica.co/send-sms-to-libya


جرب هذا التعديل بعد التأكد من المنفذ COM4 فقد يكون المنفذ مختلف

(11-08-18, 02:29 AM)Null كتب : [ -> ]جرب هذا التعديل بعد التأكد من المنفذ COM4 فقد يكون المنفذ مختلف
هكي تمام لكن مكان علامات ؟؟؟؟؟ ارقام 063306270644d وانا كاتب اسم بعربي 

كود :

Imports System.IO.Ports

Public Class Form1

   Dim SerialPort1 As New System.IO.Ports.SerialPort()

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       SerialPort1.PortName = "COM4"
       SerialPort1.BaudRate = 9600
       SerialPort1.Parity = Parity.None
       SerialPort1.StopBits = StopBits.One
       SerialPort1.DataBits = 8
       SerialPort1.Handshake = Handshake.RequestToSend
       SerialPort1.DtrEnable = True
       SerialPort1.RtsEnable = True
       SerialPort1.NewLine = vbCrLf

   End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

       Dim message As String = ConvertUTF8ToCUSD2(RichTextBox1.Text)

       SerialPort1.Open()
       If SerialPort1.IsOpen() Then
           SerialPort1.Write("AT" & vbCrLf)
           SerialPort1.Write("AT+CUSD=2" & vbCrLf)
           SerialPort1.Write("AT+CMGF=1" & vbCrLf)
           SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
           SerialPort1.Write(message & Chr(26))

           MsgBox("يتم الارسال")
       Else
           MsgBox("لم يتم")
       End If
   End Sub

   Public Function ConvertUTF8ToCUSD2(s As String) As String
       Dim code As String = String.Empty
       For Each c As Char In s.ToCharArray
           code &= AscW(c).ToString("X4")
       Next
       Return code
   End Function

End Class

محاول أخيره مني، لآن جهازي لا يمكن التعامل من خلال SerialPort

لاحظ أنني أضفت الامر AT+CUSD=2 لأن أغلب المواقع تتكلم عنه بأنه للدلالة على الترميز
جرب التالي بارسال النص مباشرة مع أمر الترميز الذي ذكرته له

(11-08-18, 03:01 AM)Null كتب : [ -> ]محاول أخيره مني، لآن جهازي لا يمكن التعامل من خلال SerialPort

لاحظ أنني أضفت الامر AT+CUSD=2 لأن أغلب المواقع تتكلم عنه بأنه للدلالة على الترميز
جرب التالي بارسال النص مباشرة مع أمر الترميز الذي ذكرته له
ارجو التوضيح اكثر ان لم يتغير شي في الكود

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
   Dim message As String = RichTextBox1.Text
   SerialPort1.Open()
   If SerialPort1.IsOpen() Then
       SerialPort1.Write("AT" & vbCrLf)
       SerialPort1.Write("AT+CUSD=2" & vbCrLf)
       SerialPort1.Write("AT+CMGF=1" & vbCrLf)
       SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
       SerialPort1.Write(message & Chr(26))
       MsgBox("يتم الارسال")
   Else
       MsgBox("لم يتم")
   End If
End Sub

كمان قال الاخ null استخدم موبايلى
حمل مشروع الويب سيرفس الخاص بهم مجانى واشترك هيعطوك بيانات هتضيفها بالويب سيرفس بمشروعك هيشتغل على طول
https://www.mobily.ws/ar/api-scripts.html
لو تريد خدمات اكتر استخدم خدمات هذا الموقع https://www.twilio.com/
راجع خدمات twilio من هنا
https://www.twilio.com/products

(11-08-18, 03:54 AM)mero5000 كتب : [ -> ]كمان قال الاخ null استخدم موبايلى
حمل مشروع الويب سيرفس الخاص بهم مجانى واشترك هيعطوك بيانات هتضيفها بالويب سيرفس بمشروعك هيشتغل على طول
https://www.mobily.ws/ar/api-scripts.html
لو تريد خدمات اكتر استخدم خدمات هذا الموقع https://www.twilio.com/
راجع خدمات twilio من هنا
https://www.twilio.com/products
شكرا اخي mero5000 لكن ضروري الانسان يتعلم 

شركة ليبيانا لديها خدمة sms gateway

(11-08-18, 10:29 PM)محمد كريّم كتب : [ -> ]شركة ليبيانا لديها خدمة sms gateway

ارجو ارسال رابط الخدمة ان لا توجد هذا الخدمة في ليبيانا

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