رفتن به مطلب
  • 0

ذخیره شماره ارسال کننده پیامک در دیتابیس


dostmobile

سوال

سلام دوستان وقت بخیر

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

و در دیتابیس یه رکورد  جدید اضافه بشه

این سرویس 

Sub Process_Globals
	Dim mtn As String = "سلام"
Dim si As SmsInterceptor

End Sub
Sub Service_Create
si.Initialize("si")
End Sub

Sub Service_Start (StartingIntent As Intent)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

Sub Service_Destroy

End Sub


Sub si_MessageReceived (From As String, Body As String) As Boolean

    If mtn = "سلام" Then
    ToastMessageShow("دریافت شد",True)
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

ممنون میشم راهنمایی کنید

فقط شماره رو میخوام ذخیره کنه

فیلدهای دیتابیس هم 

Id و Number هستن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام دوستم

یه مشکل اول دیدم

بالا mtn ر. مساوری سلام قرار دادید، پایین چک کردید اگه مثدارش سلام بود، فلان کار انجام شه، پس همیشه انجام میشه، چون شما گفتید مقدارش سلام باشه دیگه:)

کدهای زیر رو بررسی کنید

Sub Globals

Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Activity_Create(FirstTime As Boolean)


sql.Initialize(File.DirInternal,"db.db",True)

End Sub
Sub si_MessageReceived (From As String, Body As String) As Boolean

    If Body = "سلام" Then
    Dim id As Int = sql.ExecQuerySingleResult("SELECT max(id) FROM tbl")
	id = id + 1
	sql.ExecNonQuery("INSERT INTO tbl (id,number) VALUES ('"&id&"','"&From&"')")
	
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

smsinterceptor رو هم فک کنم اینطوری اینیشیالایز میکردیم بهتر میبود...

si.Initialize2("si",999)

تست بزنید در کل :):gol:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ممنون اما وقتی پیام میاد با متن مورد نظر میزنه برنامه متوقف شد

این کدهام تو اکتیویتی

Sub Process_Globals
	Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Globals


End Sub

Sub Activity_Create(FirstTime As Boolean)

'sql.Initialize(File.DirInternal,"test.db",True)
If File.Exists(File.DirInternal,"test.db") = False Then 
File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db")
End If
sql.Initialize(File.DirInternal,"test.db",True)
'cur= sql.ExecQuery ("SELECT * FROM tbl")
StartService(Daryaft)

End Sub

و این هم کدهای سرویس

#Region  Service Attributes 
	#StartAtBoot: true
#End Region

Sub Process_Globals
	Dim mtn As String 
Dim si As SmsInterceptor
Dim sql As SQL
Dim cur As Cursor

End Sub
Sub Service_Create
si.Initialize2("si",999)
End Sub

Sub Service_Start (StartingIntent As Intent)
StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)
End Sub

Sub Service_Destroy

End Sub





Sub si_MessageReceived (From As String, Body As String) As Boolean

    If Body = "سلام" Then
    Dim id As Int = sql.ExecQuerySingleResult("SELECT max(id) FROM tbl")
	id = id + 1
	sql.ExecNonQuery("INSERT INTO tbl (id,number) VALUES ('"&id&"','"&From&"')")
	ToastMessageShow("پیامک دریافت شد ",False)
	
Else 
ToastMessageShow("متن مورد نظر شناسایی نشد" , False)
    End If

End Sub

 نمیدونم ایراد از کجاس

ممنون میشم راهنمایی کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

توی لاگتون چیزی نیست؟؟؟

کداتون درست به نظر میرسه

کدای اولیه تون کار میکرد؟

چون من Sql رو توی یه برنامه مشابه راه اندازی کرده بودم...

مشکلی نداره Sql

....

لینک ارسال
به اشتراک گذاری در سایت های دیگر

همون اول میزد پیامک دریافت شد

که شما گفتین متن رو تغییر بدم

این پروژه اگه ممکنه یه نگاه کنید

http://s6.picofile.com/file/8234548942/daryaft_sms.rar.html

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اساتید اگه یه نگاه بکنید ممنون میشم

نمیدونم مشکلم کجاشه

 

http://s6.picofile.com/file/8234548942/daryaft_sms.rar.html

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...