ارسال اس ام اس گروهی با حلقه

[farhad85]

سلام دوستان من یه بانک دارم که حدود 2000 نفر داخلش ثبت شدن ومی خوام با استفاده از کامپوننت mcore به فیلد شماره موبایلم با استفاده از حلقه For Each به همه یک پیام خاص بدم باید چکارکنم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟

[sehm67]

سلام دوستان من یه بانک دارم که حدود 2000 نفر داخلش ثبت شدن ومی خوام با استفاده از کامپوننت mcore به فیلد شماره موبایلم با استفاده از حلقه For Each به همه یک پیام خاص بدم باید چکارکنم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟
سلام

روش پیشنهادی من

اطلاعات جدول مورد نظر رو داخل یه گرید بایند کنید

و با یه حلقه For پیام رو ارسال نمایید

دستور رو داخل یه ترد انجام بدید تا فرم هنگ نکنه


Dim t1 As New Threading.Thread(AddressOf Fo)




Dim SQL As String = "SELECT* FROM Table1"
DA.SelectCommand = New OleDbCommand(SQL, conn)
DS = New DataSet
DA.Fill(DS, "Table1")
KryptonDataGridView1.DataBindings.Add(New Binding("datasource", DS, "Table1"))
KryptonDataGridView1.DataBindings.Clear()
conn.Close()



Private Sub Fo()
For i = 0 To DataGridView1.RowCount - 1
objSMS.SendSMSToQueue("شماره تلفن", "متن پیامک", CType(cboSMSQPriority.SelectedIndex + 1, mCore.QueuePriority), False)
Next
' شماره تلفن
'DataGridView1.Rows(i).Cells(0).Value
End Sub


ارسال پیامک :



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Control.CheckForIllegalCrossThreadCalls = False
t1.Start()
End Sub


توقف در حین اجرا :


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
t1.Suspend()
End Sub

ادامه :


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
t1.Resume()
End Sub

ایست :


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
t1.Abort()
End Sub

موفق باشید

[sehm67]

راستی یادم رفت شما از کدوم نسخه Mcore استفاده میکنید؟