ارسال sms گروهی

[mobah 132]

سلام

یک تایپیک دیدم قدیمی بود   از آقای مهدی ایزدی

https://answercenter.ir/topic/1065-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-sms-%DA%AF%D8%B1%D9%88%D9%87%DB%8C-%D8%A8%D9%87-500-%D9%86%D9%81%D8%B1/?do=findComment&comment=6511

 

salmana

سورس پیوست شد

sms-group.zip

 

خیلی خوبه ولی آخر ش خطا میده و مدادم تکرار میشه

عکس خطا رو ضمینه میکنم

[مهدی ایزدی 9,203]

سلام  

این تاپیک از کجا اومد

تاریخش 9 دی سال 93 

روحش شاد و یادش گرامی

رفع مشکل شما کد تایمر تیک رو به این تغییر بدید :

Sub timer1_tick
If i2 = 0 Then
ToastMessageShow("end",False)
timer1.Enabled = False
Else
ToastMessageShow(ListView1.GetItem(i1),False)
 p.Send2(ListView1.GetItem(i1),"تست ارسال مسج گروهی",False,False)	
Label1.Text = ListView1.Size - 1
i2 = ListView1.Size - 1
ListView1.RemoveAt(i1)
End If
End Sub 

 

در ضمن : عکس هاتون رو فقط و فقط توی سایت PicoFile.com اپلود کنید... دفعات بعد پاسخ داده نمیشه تا زمانی که حتما روی پیکوفایل آپلودش کنید