کد صحیح برای گرفتن پیام ارسالی

[hojjatborohan 56]

خوب من توی انجمن گشتم و چیز خوبی برای استخراج  متن و شماره پیام ارسالی پیدا نکردم و برای همین درسترین کد رو براتون قرار میدم شاید به دردتون بخوره

 

 

#Region Module Attributes
	#StartAtBoot: False
	#ExcludeFromLibrary: True
		#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region


Sub Process_Globals
	Dim smsins As SmsInterceptor
	Dim date1 As String = "0"
	Dim id1 As Int : id1 = 0
End Sub

Sub Service_Create
		smsins.Initialize2("smsins",998)
End Sub

Sub smsins_MessageSent (MessageId As Int)
Try
	Dim sm As SmsMessages
	Dim res As List = sm.GetByMessageId(MessageId)
	If res.Size > 0 Then
		Dim msg As Sms
		msg = res.Get(0)
		Log(msg)
		If msg.id = id1 Then
			id1 = 0
			Log("0")
		Else
			If msg.Date > date1 Then
				date1 = msg.Date
ToastMessageshow(msg.body & msg.adress,false)
end if
end if
end if

End Sub