[milad.coder]

من برای دریافت sms یه سرویس ماژول اضافه کردم . اما کار نمیکنه . اینم کدی که برای سرویس نوشتم : 

کد:

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

s.Initialize2("s",2147483647) ' (Az inam Estefade kardam ama nashod ---> s.Initialize("s") )

End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy
s.StopListening
End Sub

Sub s_MessageReceived(From As String, Body As String) As Boolean
Dim frm,bdy As String
frm = From
bdy = Body
ToastMessageShow(From & " : " & Body , True)
End Sub

و در بلوک اصلی برنامه سرویس رو فراخوانی کردم : StartService(MyService)

دسترسی زیر هم به برنامه دادم : AddPermission("android.permission.RECEIVE_SMS")

 اس ام اس که میاد اصلا هیچ کاری نمیکنه . میشه بگید اشکال کار من چیه ؟ 

 ---------------------------------------------------------------------------------------------
رفع شد : 
این دستورات با نرم افزار هایی مانند Go SMS Pro مشکل داره . تا زمانی که این نوع برنامه ها بروی گوشی نصب باشند این دستورات کار نمیکنه !!! حالا اگه راهی دیگه پیدا کردید حتما بگید ما هم استفاده کنیم.