Click here to Skip to main content
Rate this: bad
Please Sign up or sign in to vote.
See more: VB.NET
Can I have the following code
I send 70 characters Farsi
What should I do to send a long SMS?
Excuse me weak Anglysym.
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, "")
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
dcs = DataCodingScheme.NoClass_7Bit
End If
pdu = New SmsSubmitPdu(SMS_TEXT, MOBILE, dcs)
End If

pdu.RequestStatusReport = True
Catch ex As Exception
End Try

Sample from the same site:[^]
Posted 26-Nov-12 13:10pm

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

  Print Answers RSS
0 OriginalGriff 5,380
1 Sergey Alexandrovich Kryukov 4,693
2 Peter Leow 2,939
3 DamithSL 2,465
4 Maciej Los 2,230

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