۰۳-آذر-۱۳۹۱, ۱۶:۵۲:۰۱
سلام
من با کد زیر میتونم یک پیام ( 70 کاراکتری ) فارسی و یک پیام ( 160 کاراکتری ) انگلیسی رو ارسال کنم اما برای ارسال 2 و بیشتر مشکل دارم و اجازه نمیدهد و با خطا مواجه میشوم.
نام PDUConverter.dll :
من با کد زیر میتونم یک پیام ( 70 کاراکتری ) فارسی و یک پیام ( 160 کاراکتری ) انگلیسی رو ارسال کنم اما برای ارسال 2 و بیشتر مشکل دارم و اجازه نمیدهد و با خطا مواجه میشوم.
نام PDUConverter.dll :
کد php:
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, number, "")
Else
Dim dcs As Byte
If Not (alert OrElse Not [unicode]) Then
dcs = DataCodingScheme.NoClass_16Bit
ElseIf Not (Not alert OrElse [unicode]) Then
dcs = DataCodingScheme.Class0_7Bit
ElseIf (alert AndAlso [unicode]) Then
dcs = DataCodingScheme.Class0_16Bit
Else
dcs = DataCodingScheme.NoClass_7Bit
End If
pdu = New SmsSubmitPdu(sms, number, "", dcs)
End If
pdu.RequestStatusReport = True
CommSetting.comm.SendMessage(pdu)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try