Click here to Skip to main content
11,478,896 members (64,325 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
hello

Can I have the following code
I send 70 characters Farsi
What should I do to send a long SMS?

Excuse me weak Anglysym.

Try
Dim pdu As SmsSubmitPdu

Dim alert As Boolean = False
Dim unicode As Boolean = True
If Not (alert OrElse [unicode]) Then
pdu = New SmsSubmitPdu(SMS_TEXT, MOBILE, "")
Else
Dim dcs As Byte
If Not (alert OrElse Not [unicode]) Then
dcs = DataCodingScheme.NoClass_16Bit
TextBox4.Text = dcs
ElseIf Not (Not alert OrElse [unicode]) Then
dcs = DataCodingScheme.DataCoding.Class0.ToString
ElseIf (alert AndAlso [unicode]) Then
dcs = DataCodingScheme.Class0_16Bit
Else
dcs = DataCodingScheme.NoClass_7Bit
End If
pdu = New SmsSubmitPdu(SMS_TEXT, MOBILE, dcs)
End If

pdu.RequestStatusReport = True
CommSetting.comm.SendMessage(pdu)

Catch ex As Exception
MsgBox(ex.Message)
End Try


Sample from the same site: http://uploadkon.ir/?file=SMS_SEND.rar[^]
Posted 26-Nov-12 14:10pm
shbhm159

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 200
1 F-ES Sitecore 195
2 Frankie-C 120
3 OriginalGriff 105
4 DamithSL 95
0 Sergey Alexandrovich Kryukov 7,880
1 OriginalGriff 7,341
2 Sascha Lefèvre 3,064
3 Maciej Los 2,491
4 Richard Deeming 2,335


Advertise | Privacy | Mobile
Web02 | 2.8.150520.1 | Last Updated 26 Nov 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100