如何使用命令从Vb.Net向移动号码发送阿拉伯语短信？ [英] How I Can Send Arabic Sms From Vb.Net To Mobile Number Using At Command ?

问题描述

我可以用英语发送短信但是当我使用阿拉伯语时我会解除????

请帮帮我>>>

这是我毕业设计的一部分...谢谢



代码...

尝试

使用SerialPort1

.PortName = ComboBox1.Text

.BaudRate = 9600

.Parity = Parity.None

.DataBits = 8

.DtrEnable = True

.RtsEnable = True

.Handshake = Handshake.RequestToSend

.DtrEnable = True

.RtsEnable = True

.NewLine = vbCrLf

。打开（）

结束

Catch ex As Exception

MsgBox（ex.Message）

结束尝试



'发送短信....





尝试

如果SerialPort1.IsOpen那么

使用SerialPort1

。写（AT和vbCrLf）

。写（AT + CMGF = 1&vbCrLf）

。写（AT + CMGS =&Chr（34）&+ 249919203867&Chr（34）&vbCrLf）

。写（مرحبا&ChrW（26））

MsgBox（发送）

结束

否则

MsgBox（不发送）

结束如果

Catch ex As Exception

MsgBox（ex.Message）

结束尝试

i can send sms in English but when i use arabic language i resieve ????
please help me >>>
this is a part of my graduation project ... thanks

code...
Try
With SerialPort1
.PortName = ComboBox1.Text
.BaudRate = 9600
.Parity = Parity.None
.DataBits = 8
.DtrEnable = True
.RtsEnable = True
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
.Open()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try

'send sms ....


Try
If SerialPort1.IsOpen Then
With SerialPort1
.Write("AT" & vbCrLf)
.Write("AT+CMGF=1" & vbCrLf)
.Write("AT+CMGS=" & Chr(34) & "[phone]" & Chr(34) & vbCrLf)
.Write("مرحبا" & ChrW(26))
MsgBox("send")
End With
Else
MsgBox("not send")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

推荐答案

嗨

如果你找到解决方案发送阿拉伯语文本可以请你提供给我们

提前谢谢你

hi
please if u have found solution to send arabic text could u please provide it to us
thank u in advance

这篇关于如何使用命令从Vb.Net向移动号码发送阿拉伯语短信？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！