09-06-2013، 11:32 PM
(آخرین تغییر در ارسال: 09-06-2013، 11:59 PM توسط m.gooooolzar.)
(09-06-2013، 10:39 PM)'vahid_d_0101' نوشته: دارم کار میکنم روش
ببخشید که این قدر سوال میپرسم دارم یه برنامه جالب مینویسم که اگر تمام بشه حتما با سورس اینجا میزارم
میخوام وقتی یه اس ام اس میاد اونو داخل برنامه ام باز کنم چه طوری باید این کار را بکنم ؟؟؟
یه سری اطلاعات میخوام از گوشی به دست بیارم مثل شماره سیم کارت !!! شمار سریال گوشی !!! و هر چی میشه هر اطلاعاتی از گوشی بشه
می تونید یه سورس چیزی بهم معرفی کنید
خواهش میکنم داداش
منم اولین برنامه ای که نوشتم این کارهارو انجام میداد
- ارسال و دریافت اس ام اس بدون اینکه در خود گوشی ذخیره شه و متن پیام رمز شده باشه
- انجام رویداد های خواص برای شماره های مشخص شده ،یعنی اگه فلان شماره اس ام اس داد ،گوشی فقط ویبره بزنه یا اصلاً هیچ کاری نکنه و یا بطور پیشفرض خود گوشی به کاربر اعلام کن
- برای ورود به برنامه رمز بخواد
- گوشی رو از دور بشه کنترل کرد
اول کتابخونه Phone رو فعال کن
برای دریافت و ارسال اس ام اس از این کد استفاده کن :
کد پیاچپی:
Sub Globals
Dim PhoneEvents As PhoneEvents
Dim SMSR As SmsInterceptor
Dim sendsms As PhoneSms
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
PhoneEvents.Initialize("PhoneEvents")
SMSR.Initialize("SMSR")
'ersale payam
sendsms.Send("TXT","09370000000")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SMSR_MessageReceived (From As String, Body As String) As Boolean
Msgbox(Body,From)
Return True
End Sub
Sub SMSR_SmsDelivered (PhoneNumber As String, Intent As Intent)
ToastMessageShow("تحویل داده شد",True)
End Sub
Sub SMSR_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
If Success =False Then
ToastMessageShow("خطا در ارسال ،لطفاً دوباره امتحان کنید:" & ErrorMessage , True)
Else
ToastMessageShow("ارسال شد",False)
End If
End Sub
کد پیاچپی:
Dim p As Phone
Msgbox(p.GetMaxVolume,"")
تمام تاریخ عبارت است از جنگ سربازانی که همدیگر را نمیشناسندو با هم میجنگند برای دو نفر که همدیگر را میشناسند و نمیجنگند