shbhm
24-11-12, 05:06
سلام
من با کد زیر فقط میتونم یک پیام ( 70 کاراکتری فارسی و 160 کاراکتر انگلیسی ) و بیش از یک پیام نمیتونم ارسال کنم.
در ضمن من با مودم USB GSM پیام رو ارسال میکنم.
Cursor.Current = Cursors.WaitCursor Try Dim pdu As SmsSubmitPdu Dim alert As Boolean = CheckBox1.Checked Dim unicode As Boolean = CheckBox2.Checked If Not (alert OrElse [unicode]) Then pdu = New SmsSubmitPdu(TextBox2.Text, TextBox1.Text, "") 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(TextBox2.Text, TextBox1.Text, "", dcs) End If pdu.RequestStatusReport = True Dim times As Integer = If(CheckBox3.Checked, Integer.Parse(TextBox3.Text), 1) Dim i As Integer For i = 0 To times - 1 CommSetting.comm.SendMessage(pdu) Me.Output("Message {0} of {1} sent.", New Object() {(i + 1), times}) Me.Output("") Next i Catch ex As Exception MessageBox.Show(ex.Message) End Try Cursor.Current = Cursors.Default
من با کد زیر فقط میتونم یک پیام ( 70 کاراکتری فارسی و 160 کاراکتر انگلیسی ) و بیش از یک پیام نمیتونم ارسال کنم.
در ضمن من با مودم USB GSM پیام رو ارسال میکنم.
Cursor.Current = Cursors.WaitCursor Try Dim pdu As SmsSubmitPdu Dim alert As Boolean = CheckBox1.Checked Dim unicode As Boolean = CheckBox2.Checked If Not (alert OrElse [unicode]) Then pdu = New SmsSubmitPdu(TextBox2.Text, TextBox1.Text, "") 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(TextBox2.Text, TextBox1.Text, "", dcs) End If pdu.RequestStatusReport = True Dim times As Integer = If(CheckBox3.Checked, Integer.Parse(TextBox3.Text), 1) Dim i As Integer For i = 0 To times - 1 CommSetting.comm.SendMessage(pdu) Me.Output("Message {0} of {1} sent.", New Object() {(i + 1), times}) Me.Output("") Next i Catch ex As Exception MessageBox.Show(ex.Message) End Try Cursor.Current = Cursors.Default