How to use ctrl-z in vb to send SMS

hello friends i m a newbie
i used
AT+CMGS="+targetno" CRLF  command to send SMS using nokia 5110 with nds2.0
once issued then the mobile respond by a ">" 
then Message text with CTRL-Z as terminating text.
now here i am using VB and can any one guide me that for ctrl-z what should i have to append with my message i use chr(17) for ctrl but it does not work, means the message did not send.
Who is Participating?
_nn_Connect With a Mentor Commented:
More precisely, the combination "CTRL-Z" is chr(26).
CTRL-Z should rather be chr(26)
Hello Friends,

I am new to this group.
I am using the AT+CMGS at command to send sms in ttcn script. i am using in the following format:

 "AT+CMGS=""+498911111""<CR>""Hello World""<ctrl-Z>"

But the format of <ctrl-Z> doesn't seems to work. Could somebody suggest me in which i can use the ctrl-z in ttcn script.

Your help would highly appriciable.


WEBINAR: GDPR Implemented - Tips & Lessons Learned

Join the WatchGuard team on Thursday, March 29th as we recount some valuable lessons learned in weighing the needs of a business against the new regulatory environment, look ahead at the two months left before implementation, and help you understand the steps you can take today!

I'd like to help, but
- you should ask this in a separate question, see for details
- I hate ISO and I don't want to waste CHF 258 for that TTCN thingie. I think you'd better purchase that "standard" and check yourself.
Hi I am giving you a Sample code here of mine you can just take whatever you wish mainly the CTRL Z problem. you can directly copy this CTRL Z from here. Sure it will work

The part of code is given below.

Dim rs As New ADODB.Recordset
    cmdok.Enabled = False
    FrmMain.lblhead = "Sending SMS"
    FrmMain.lbldata = "To :" + txtno.Text + vbCrLf + "Message :" + txtmessage.Text
    rs.Open "insert into smssent values ('" + Trim(txtno.Text) + "','" + Trim(txtmessage.Text) + "',#" + Format(Date, "MM/dd/yyyy") + "#,'" + Format(Time, "hh:mm:ss AM/PM") + "')", conn, 3, 2
    FrmMain.MSComm1.Output = "AT+CMGS=" & Chr(34) & Trim(txtno.Text) & Chr(34) & vbCr
    send = txtno.Text + " : " + txtmessage.Text + vbCrLf
    FrmMain.MSComm1.Output = Trim(txtmessage.Text) + vbCrLf + "<MobiMouse>" & ""
    Unload Me
    delay 3

The sqare is the control Z  


var charstring command:= "AT+CMGS=" & int2char(34) & "+498911111" & int2char(34) & int2char(13 ) & "Hello World" & int2char(26);
MSComm1.Output = Message_ + chr(26)  works for me.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.