تشخیص "کد تایید" رسیده در مسیج از پنل اس ام اس

[arastooms 1,046]

سلام به همه دوستان 
اگر دیده باشید در برنامه هایی مثل تلگرام یا واتس اپ یا وایبر وقتی درخواست کد تایید توسط مسیج میرسه دیگه منتظر نمیشه کاربر کد رو از مسیج بخونه و دستی وارد کنه و برنامه رو فعال کنه 
بلکه خود برنامه محتوای مسیج رسیده رو مورد بررسی قرار میده و اگر درست بود برنامه رو فعال میکنه 

فرض کنید من پیام رو ارسال کردم وبه گوشی میرسه 
از این مرحله به بعد چطور باید محتوای مشیج رسیده رو بررسی کنم ؟
با تشکر

[hojjatborohan 56]

خوب خیلی راحته ک شما میخوای توی متن پیامکت ک حاوی کد هستش یه متن هم میذاری و میای توی سرویس چک میکنی و پیامکت رو بررسی میکنی اگه اون متن داخلش بود فقط کد داخل پیامک رو بر میداری 

[arastooms 1,046]

در 13 ساعت قبل، hojjatborohan گفته است :

خوب خیلی راحته ک شما میخوای توی متن پیامکت ک حاوی کد هستش یه متن هم میذاری و میای توی سرویس چک میکنی و پیامکت رو بررسی میکنی اگه اون متن داخلش بود فقط کد داخل پیامک رو بر میداری 

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

متن پیامک 

" کد فعالسازی شما هست 253851 "

 

با تشکر از شما

[hojjatborohan 56]

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
	Dim sms1 As SmsInterceptor

	
Dim tell2 As String 
End Sub
Sub Service_Create
	sms1.Initialize2("sms1",999)

end sub

Sub sms1_MessageReceived (From As String, Body As String) As Boolean
	If From.Contains("شماره فرستنده کد") Or Body.Contains("کد فعالسازی شما هست") Then''inja miyai check mikoni bebini payami ke daryaft shude ferestandash hamun shumare panele sms khodete ya age matni ke hamrahe code hast toye paymak vojod dare ya na
	Dim code As String 
	
		code = Body.Replace("کد فعالسازی شما هست","")'inja code taeed ro az dakhele sms bar midari
	End If
	
End Sub