[الزوي]

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

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

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

كود :

Imports System.IO.Ports


Public Class Form1
   Dim SerialPort1 As New System.IO.Ports.SerialPort()
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.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 System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim message As String
       message = RichTextBox1.Text

       SerialPort1.Open()
       If SerialPort1.IsOpen() Then
           SerialPort1.Write("AT" & 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


End Class

[Null]

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

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


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

كود :

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

[الزوي]

(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

[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

[الزوي]

(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

[mero5000]

كمان قال الاخ 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

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

[محمد كريّم]

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