ارسال sms گروهی به 500 نفر

[salmana 174]

من یک دیتابیس دارم که یک شاخه اش شماره موبایل داخلشه. میخاستم یک sms گروهی با متن مشخص براشون ارسال کنم. خوب بگم که کدهای پایین رو نوشتم و واسه اینکار هیچ مشکلی ندارم. فقط ترسم اینه که همزمان به تعداد 500 نفر sms بدم گوشیم یا سیمکارتم بسوزه.خخخخخخ

1- آیا اشکال نداره( منظورم سوختن نیستا . منظورم اینه که راحت و بدون مشکل به 500 نفر sms میرسه)

2- اگه اشکال داره یک تایمر براش بزارم که مثلا هر چند دقیقه چنتا sms بره

3- راه دیگه دارین بگین

    
For i=0 To 499


cursor1.Position = i    
p.Send2(""&cursor1.GetString("number"),"www.Basic4Android.org",False,False)    


Next

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

آخرین ویرایش salmana; امروز در 10:34 PM. دلیل: کار خاصی نکردم

*rofl**rofl**rofl**rofl**rofl**rofl*

تا دلیل رو روشن نکنی من نظر نمیدم *خنده*

شوخی میکنم *خنده*

خب بدون هیچ شکی باید تایمر داشته باشی. مثلا هر 5 ثانیه یکی رو بفرسته !

چون روی گوشی هست زمان میبره برای 500 نفر .

اگه کارت روی همین هست بهتره یک پنل ارسال اس ام اس بخری و برنامت رو به اون پنل ربط بدی(قبل از خرید با پشتیبانی صحبت کن)

اینجوری هم هزینت خیلی پایین تر میاد و هم سرعتت بالاتر میره و هم گوشیت هی نمیگه ارسال شد،شارژ کم شد، دریافت شد *خوشمزه*

پنل های ارسال اس ام اس هم اصلا گرون قیمت نیستند. خیلی راحت میتونید تهییه کنید *همینه*

این نظر بنده بود

[ارمین رمضانی دلیجانی 381]

تنها مشکلی که داره بعضی اوقات نمیفرسته واسه همه

[salmana 174]

1-گوشیم نوت 3 میباشد و پیغام هم نمیده که ارسال شد و ...

2- مدت زمان برای من اهمیت نداره مثلا توی یک روز هم ارسال بکنه اشکال نداره

3- میشه کاری کرد که پیغامی که ارسال میشه توی قسمت پیام هام نرن. چون دیگه قسمت پیغام هام بانک اسپم میشه.خخخخ

4- پنل ارسال اس ام اس بر اساس رنج شماره ای sms میفرستن. آیا از بانکی که من دارم میتونن بفرستن؟

[salmana 174]

میخام با تایمر از خود گوشیم ارسال کنم. وحالا میخام هر 10 ثانیه 2 تا sms ارسال بشه. حالا باید چجوری کد نوشت*اشک کوچک*

این کد پایین رو باید چجوری تغییر داد

Sub 
Process_Globals

Dim
 sql1 As SQL

Dim
 timer1 As Timer

End Sub


Sub 
Globals

Dim
 cursor1 As Cursor

Dim
 p As PhoneSms

End Sub


Sub 
Activity_Create(FirstTime As Boolean)


Activity.LoadLayout("rf")


timer1.Initialize("Timer1", 10000) ' 1000 = 1 second


timer1.Enabled = True


If sql1.IsInitialized=False Then


sql1.Initialize(File.DirRootExternal, "/folder/bank.db",False)


End If


cursor1 = sql1.ExecQuery("SELECT * FROM main")


For i=0 To 499


cursor1.Position = i    


p.Send2(""&cursor1.GetString("number"),"www.Basic4Android.org",False,False)    


Next

End Sub

Sub 
timer1_Tick


End Sub

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

ببین بیا توی Designer یک ListView1 تعریف میکنی خب؟

بعدش هم که :

Private ListView1 As ListView

حالا توی همون حلقه For که تعریف کردی بیا بگو:

<code><code> For i=0 To <code><code>cursor1</code></code>.RowCount - 1

cursor1.Position = i

ListView1.AddSingleLine(<code><code>cursor1</code></code>.GetString("<code><code>number</code></code>"))

Next

<code><code>cursor1</code></code>.Close

خب تا اینجا اومدی کل شماره هارو توی یک ListView اضافه کردی...

حالا یک Label هم بالای اون ListView تعریف میکنی که تعداد کل رو بگیری(توی Create):

Label1.Text = ListView1.Size - 1

دو تا متغیر از نوع int هم تعریف میکنیم(توی Create):

Dim i1,i2 As Int

یک کلید داری برای شروع ارسال. توی اون کلید اینجوری کد تعریف میکنی :

Sub Button1_Click
i1 = 0
i2 = ListView1.Size
timer1.Initialize("timer1",10000)
timer1.Enabled = True
End Sub

تایمر هم :

Sub timer1_tick
If i2 = 0 Then
ToastMessageShow("end",False)
timer1.Enabled = False
Else
ToastMessageShow(ListView1.GetItem(i1),False)
ListView1.RemoveAt(i1)
' اینجا هم کد ارسال اس ام اس رو مینویسی.به جای شماره می نویسی ListView1.GetItem(i1)
Label1.Text = ListView1.Size - 1
i2 = i2 - 1
End If
End Sub

تست کن تموم که شد سورس رو هم پیوست کن بقیه هم استفاده کنند.

موفق باشی

</code></code>

[salmana 174]

ماشالله از بس قشنگ توضیح دادین که دیگه نیاز به سورس نیست. دمت بیست

سورس پیوست شد

sms-group.zip