通过visual basic6发送乌尔都语的短信 [英] send sms in urdu language through visual basic6

问题描述

我想创建一个通过visual basic6以urdu语言发送短信的项目。为此，我使用Urdu Textbox（用于编写乌尔都语的工具）和以下代码。

 MSComm1.CommPort =  6  
 如果 MSComm1.PortOpen =  False  然后 
 MSComm1.PortOpen =  True  
 使用 MSComm1 
 
。输出=   AT& Chr $（ 13 ）
 .Output =   AT + CMGF = 1& Chr $（ 13 ）& Chr（ 10 ）
 .Output =   AT + CMGS =& Chr $（ 34 ）& Text1.Text& Chr $（ 34 ）& Chr（ 13 ）& Chr（ 10 ）
。输出= text2.Text& Chr（ 26 ）
 MsgBox  消息已有发送 
`` 结束 使用 
 结束 如果 

当我点击command1按钮时，短信已发送但我的手机显示消息为???? ??? ??????我的代码有什么问题。

解决方案

（ 13 ）
.Output = < span class =code-string> AT + CMGF = 1& Chr

（ 13 ）& Chr（ 10 ）
.Output = AT + CMGS =& Chr

（ 34 ）& Text1.Text&字符

I want to make a project that send sms in urdu language through visual basic6. For this purpose , i am using Urdu Textbox(A tool for writing Urdu Language) and Following code.

MSComm1.CommPort = 6
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
With MSComm1

    .Output = "AT" & Chr$(13)
    .Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
    .Output = "AT+CMGS=" & Chr$(34) & Text1.Text & Chr$(34) & Chr(13) & Chr(10)
    .Output = text2.Text & Chr(26)
    MsgBox "Message has send"
    ``      End With
    End If

When i click command1 button, sms has send but my mobile show me message as ???? ??? ?????? What is the wrong with my code.

解决方案

(13) .Output = "AT+CMGF=1" & Chr

(13) & Chr(10) .Output = "AT+CMGS=" & Chr

(34) & Text1.Text & Chr

这篇关于通过visual basic6发送乌尔都语的短信的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！