رفتن یا نرفتن پیام

[ezraiil 20]

این هم آموزش رفتن یا نرفتن اس ام اس

و ارسال اس ام اس

 

موفق باشید

#Region  Project Attributes 
	#ApplicationLabel: SMS
	#VersionCode: 1
	#VersionName: 
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals


End Sub

Sub Globals
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private Button1 As Button
	Dim king As PhoneSms
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("sms")
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	king.Send(EditText1.Text , EditText2.Text)
End Sub

Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
If Success=False Then
Msgbox("اس ام اس نرفت" & ErrorMessage,"ارور")
Else
Msgbox("اس ام اس رفت","موفق شدی ))")
End If
End Sub