HM2020
یک شنبه 05 آذر 1391, 18:36 عصر
سلام
من با کد زیر مشکل دارم برای ارسال پیامک فقط یه پیام میتونم ارسال کنم و برای ارسال پیامک بیشتر نمیشه و خطا میده و میگه که بیش از 70 کاراکتر فارسی و 160 کاراکتر انگلیسی مجاز نیست.
من از دی ال ال ( PDUConverter.dll ) و مودم gsm
Dim pdu As SmsSubmitPdu
Dim alert As Boolean = False
Dim unicode As Boolean = True
If Not (alert OrElse [unicode]) Then
pdu = New SmsSubmitPdu(sms, Phone_number, "")
Else
Dim dcs As Byte
If Not (alert OrElse Not [unicode]) Then
dcs = ReservedCodingGroup.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, Phone_number, dcs)
pdu.RequestStatusReport = True
End If
CommSetting.comm.SendMessage(pdu)
لطفا کسایی که در این زمینه تجربه دارن کمکم کنن
من با کد زیر مشکل دارم برای ارسال پیامک فقط یه پیام میتونم ارسال کنم و برای ارسال پیامک بیشتر نمیشه و خطا میده و میگه که بیش از 70 کاراکتر فارسی و 160 کاراکتر انگلیسی مجاز نیست.
من از دی ال ال ( PDUConverter.dll ) و مودم gsm
Dim pdu As SmsSubmitPdu
Dim alert As Boolean = False
Dim unicode As Boolean = True
If Not (alert OrElse [unicode]) Then
pdu = New SmsSubmitPdu(sms, Phone_number, "")
Else
Dim dcs As Byte
If Not (alert OrElse Not [unicode]) Then
dcs = ReservedCodingGroup.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, Phone_number, dcs)
pdu.RequestStatusReport = True
End If
CommSetting.comm.SendMessage(pdu)
لطفا کسایی که در این زمینه تجربه دارن کمکم کنن