سورس ارسال پیامک گروهی در بیسیک فور اندروید

[MR.B4A 252]

بااستفاده از این سورس، میتوانید به شماره های دلخواه پیامک خودتان را ارسال کنید

توجه، این سورس احتمالا روی اندرویدهای جدید جواب ندهد و برای استفاده روی اندرویدهای جدید باید از اینتنت استفاده کنید.

سورس:

Sub Globals
	Private run As RuntimePermissions
	Private sms As PhoneSms
	
	Private phoneNumbers As List
	
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private EditText3 As EditText
	Private EditText4 As EditText
	Private EditText5 As EditText
	Private EditText6 As EditText
	Private pnl_adv As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	If phoneNumbers.IsInitialized=False Then
		phoneNumbers.Initialize
	End If
	
	run.CheckAndRequest(run.PERMISSION_SEND_SMS)
End Sub

Private Sub activity_PermissionResult (Permission As String, Result As Boolean)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub Button1_Click
	Private text_mess As String=EditText6.Text
	
	phoneNumbers.Add(EditText1.Text.Trim)
	phoneNumbers.Add(EditText2.Text.Trim)
	phoneNumbers.Add(EditText3.Text.Trim)
	phoneNumbers.Add(EditText4.Text.Trim)
	phoneNumbers.Add(EditText5.Text.Trim)
	
	For Each number As String In phoneNumbers
		sms.Send2(number,text_mess,True,True)
		Sleep(1000)
	Next
End Sub

تهیه و تنظیم   
مرتضی صباغی  
MR.B4A