Click here to Skip to main content
13,045,019 members (44,123 online)
Rate this:
 
Please Sign up or sign in to vote.
See more:
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<br />
            Dim pdu As SmsSubmitPdu<br />
<br />
            Dim alert As Boolean = False<br />
            Dim unicode As Boolean = True<br />
            If Not (alert OrElse [unicode]) Then<br />
                pdu = New SmsSubmitPdu(SMS_TEXT, MOBILE, "")<br />
            Else<br />
                Dim dcs As Byte<br />
                If Not (alert OrElse Not [unicode]) Then<br />
                    dcs = DataCodingScheme.NoClass_16Bit<br />
                    TextBox4.Text = dcs<br />
                ElseIf Not (Not alert OrElse [unicode]) Then<br />
                    dcs = DataCodingScheme.DataCoding.Class0.ToString<br />
                ElseIf (alert AndAlso [unicode]) Then<br />
                    dcs = DataCodingScheme.Class0_16Bit<br />
                Else<br />
                    dcs = DataCodingScheme.NoClass_7Bit<br />
                End If<br />
                pdu = New SmsSubmitPdu(SMS_TEXT, MOBILE, dcs)<br />
            End If<br />
          <br />
            pdu.RequestStatusReport = True<br />
            CommSetting.comm.SendMessage(pdu)<br />
<br />
        Catch ex As Exception<br />
            MsgBox(ex.Message)<br />
        End Try


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

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

  Print Answers RSS
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web02 | 2.8.170713.1 | Last Updated 26 Nov 2012
Copyright © CodeProject, 1999-2017
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