دوستان من برنامه ای نوشتم که میاد و از یک شماره که تو دیتابیس ثبت میکنم پیاماشو تو برنامه نشون بده ولی اصلا هیچی نمیاره
تو انجمن همه موضوعاتو دیدم سورس ها رو امتحان کردم دقیقا همون سورسیه که اینجا بود و دسترسی ها رو هم اضافه کردم
کدامو الان میذارم بگین مشکلش جیه
اینا مال سرویس
Sub Process_Globals
Dim p As SmsInterceptor
Dim sms1 As String
End Sub
Sub Service_Create
p.Initialize("p")
End Sub
Sub p_MessageReceived (From As String, Body As String) As Boolean
If From = Main.cu.GetString("phone") Then
sms1 = Body
StartActivity(menu)
End If
End Sub
من خودم واقعا مشکلی نمیبینم تو کدا فقط به نظرم تو شماره اشتباهی هست مثلا باید شماره رو بدون صفر وارد کنم یا 98 بذارم چون اینا رو هم استفاده کردم ولی نمیاره
یکیم میخوام وقتی از همین شماره ثبت شده پیام اومد تو پیامک گوشی حذف بشه
سوال
ehsan20000 16
با سلام خدمت اساتید عزیز
دوستان من برنامه ای نوشتم که میاد و از یک شماره که تو دیتابیس ثبت میکنم پیاماشو تو برنامه نشون بده ولی اصلا هیچی نمیاره
تو انجمن همه موضوعاتو دیدم سورس ها رو امتحان کردم دقیقا همون سورسیه که اینجا بود و دسترسی ها رو هم اضافه کردم
کدامو الان میذارم بگین مشکلش جیه
اینا مال سرویس
Sub Process_Globals Dim p As SmsInterceptor Dim sms1 As String End Sub Sub Service_Create p.Initialize("p") End Sub Sub p_MessageReceived (From As String, Body As String) As Boolean If From = Main.cu.GetString("phone") Then sms1 = Body StartActivity(menu) End If End Subاینام مال اکتیویتی
StartService("sms_s") t2.Text = sms_s.sms1 LogMessage(settings.you, t2.Text)من خودم واقعا مشکلی نمیبینم تو کدا فقط به نظرم تو شماره اشتباهی هست مثلا باید شماره رو بدون صفر وارد کنم یا 98 بذارم چون اینا رو هم استفاده کردم ولی نمیاره
یکیم میخوام وقتی از همین شماره ثبت شده پیام اومد تو پیامک گوشی حذف بشه
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
15 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.