بنده میخوام متن کامل پیامک sms را تو یک فایل تکست یا استرینگ دریافت کنم.
این کد ها رو استفاده کردم.
توسط SmsInterceptor یک Dim s As SmsInterceptor تعریف کردم
واین کد سرویس
Sub s_MessageReceived (From As String, Body As String) As Boolean
If Body.Contains("test") Then
File.WriteString(File.DirInternal,"matn.txt",From)
File.WriteString(File.DirInternal,"nom.txt",Body)
End If
End Sub
متن sms رو دریافت میکنه ولی فقط اندازه یک پیامک یعنی حدودا 160 کارکتر و بقیه متن sms ذخیره نمیشه.
الان اگر sms پیامک سه تا باشه یعنی بیشتر از 160 کارکتر مشکل دارم.
راهی وجود داره که هر چی بود متن sms اون رو ذخیره کنه .
سوال
mobah 132
سلام
بنده میخوام متن کامل پیامک sms را تو یک فایل تکست یا استرینگ دریافت کنم.
این کد ها رو استفاده کردم.
توسط SmsInterceptor یک Dim s As SmsInterceptor تعریف کردم
واین کد سرویس
Sub s_MessageReceived (From As String, Body As String) As Boolean If Body.Contains("test") Then File.WriteString(File.DirInternal,"matn.txt",From) File.WriteString(File.DirInternal,"nom.txt",Body) End If End Sub
متن sms رو دریافت میکنه ولی فقط اندازه یک پیامک یعنی حدودا 160 کارکتر و بقیه متن sms ذخیره نمیشه.
الان اگر sms پیامک سه تا باشه یعنی بیشتر از 160 کارکتر مشکل دارم.
راهی وجود داره که هر چی بود متن sms اون رو ذخیره کنه .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.