چک کردن پکیج نیم ها

cloner01001 · 26 تیر، ۱۳۹۵

سلام دوستان من میخوام هر 30 دیقه پکیج نیم برنامه های گوشی تویه ادیت تکست لود بشه (متن ادیت تکست همه ی پکیج نیم ها باشه)

توجه کنین میخوام هر 30 دیقه آپدیت بشه یعنی اگه دفعه اول دو تا برنامه تلگرام و اینستاگرام نصب بود پکیج نیم هاش تویه ادیت تکست لود بشه و اگه تو دقیقه 33 برنامه تلگرام حذف شد تو دقیقه 60 که لیست آپدیت میشه دیگه پکیج نیم تلگرام تو متن ادیت تکست نباشه

در ضمن نمیخوام برنامه حتمن باز باشه و این اتفاقا بیوفته ، میخوام اولین بار که برنامه باز شد دیگه همیشه در حال اجرا باشه و لیست برنامه ها هر نیم ساعت آپدیت بشه

Kazem Forghani · 27 تیر، ۱۳۹۵

تایمر رو مشکل دارم میخوام هر 30 دیقه لیست آپدیت بشه باید از چه کدی استفاده کنم؟ ممنون میشم راهنمایی کنید

سلام ،

اول یک متغیر از نوع Timer تعریف کنید.

سپس در اکتیوتی کریت اون رو Initialize کرده و اون رو فعال کنید:

t.Initialize("t", 1800000)
t.Enabled = True

در پارامتر دوم در خط اول ، مقدار زمان مورد نظر رو به واحد میلی ثانیه باید بدید.

هر سی دقیقه یک بار ساب زیر اجرا خواهد شد:

Sub t_Tick
	'har 30 daghighe yek bar code haye inja ejra mishe.
End Sub

پس ساب بالا رو به پروژه اضافه کنید. حالا هر کدی داخلش بنویسید هر 30 دقیقه یک بار اجرا خواهد شد.

موفق باشید

cloner01001 · 27 تیر، ۱۳۹۵

سلام ،

اول یک متغیر از نوع Timer تعریف کنید.

سپس در اکتیوتی کریت اون رو Initialize کرده و اون رو فعال کنید:
t.Initialize("t", 1800000)
t.Enabled = True
در پارامتر دوم در خط اول ، مقدار زمان مورد نظر رو به واحد میلی ثانیه باید بدید.

هر سی دقیقه یک بار ساب زیر اجرا خواهد شد:
Sub t_Tick
	'har 30 daghighe yek bar code haye inja ejra mishe.
End Sub
پس ساب بالا رو به پروژه اضافه کنید. حالا هر کدی داخلش بنویسید هر 30 دقیقه یک بار اجرا خواهد شد.

موفق باشید

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

یه سوال داشتم شما گفتید کد هایی که تواینجا نوشته میشه هر30دیقه یک بار اجرا میشه ، من میخوام تو اینجا کدی بنویسم که لیست پکیج نیم ها رو نمایش بده ، حالا سوالم اینه این لیست هر 30 دیقه یک بار آپدیت میشه یا فقط هر30 دیقه یک بار اجرا میشه؟

ممنون میشم جواب بدین

Hamidbergis · 28 تیر، ۱۳۹۵

بنظرم از تایمر استفاده نکنید بجاش ازstartserviesatاستفاده کنید چون تایمر از منابع اندروید استفاده میکنه و باعث پر شدن رم و درنتیجه کندی دستگاه میشود

cloner01001 · 30 تیر، ۱۳۹۵

اینجوری دوست عزیز

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
	Timer1.Enabled=True
End Sub

فورس کلوز میده بازم

Kazem Forghani · 30 تیر، ۱۳۹۵

فورس کلوز میده بازم

سلام ،

کتابخانه PackageManager2 رو دانلود کنید و به لیست کتابخانه های خودتون اضافه کنید و تیک بزنید.

حالا از کد زیر برای گرتن پکیج نیم ها استفاده کنید:

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager2
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
		PM.Initialize
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
	Timer1.Enabled=True
End Sub

موفق باشید

cloner01001 · 30 تیر، ۱۳۹۵

سلام ،

کتابخانه PackageManager2 رو دانلود کنید و به لیست کتابخانه های خودتون اضافه کنید و تیک بزنید.

حالا از کد زیر برای گرتن پکیج نیم ها استفاده کنید:

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager2
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
		PM.Initialize
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
	Timer1.Enabled=True
End Sub

موفق باشید

بسیاااااااااااااااااااار ممنون کد کار کردو پکیج نیم ها لود شد داخل لیبل

حالا من یه باتن دارم میخوام وقتی روش کلیک شد متن داخل لیبل که در واقع همون لیست پکیج نیم ها هست به یه ایمیل ارسال بشه

کد ارسال ایمیل این هست: ولی نمیدونم باید چطور تغییر بدم که متن داخل لیبل ارسال بشه

ممنون میشم کمک کنید

Sub Process_Globals
	Dim SMTP As SMTP

End Sub
Dim BSend As Button
	Dim Email As EditText
	Dim EMsg As EditText
	Dim UserName As EditText
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	
    If FirstTime Then
        SMTP.Initialize("smtp.gmail.com", 587, "[email protected]", "b4a.ahmadi", "SMTP")
        SMTP.StartTLSMode = True
    End If

End Sub

Sub BSend_Click
	BEmailSub
End Sub

Sub BEmailSub

    SMTP.To.Add("[email protected]") ' You Email
    SMTP.Subject = ""&UserName.Text 'Name USER UserName.text
    SMTP.Body = "Email From:" &Email.Text &CRLF& "UserName:"&UserName.Text &CRLF& "Message:"&EMsg.Text
	
    SMTP.Send
	ProgressDialogShow("درحال ارسال پیغام شما")
End Sub

Sub SMTP_MessageSent(Success As Boolean)
    Log(Success)
    If Success Then
		ProgressDialogHide
        ToastMessageShow("Message sent successfully", True)
    Else
		ProgressDialogHide
        ToastMessageShow("Error sending message", True)
        Log(LastException.Message)
    End If
End Sub

Kazem Forghani · 30 تیر، ۱۳۹۵

بسیاااااااااااااااااااار ممنون کد کار کردو پکیج نیم ها لود شد داخل لیبل

حالا من یه باتن دارم میخوام وقتی روش کلیک شد متن داخل لیبل که در واقع همون لیست پکیج نیم ها هست به یه ایمیل ارسال بشه

کد ارسال ایمیل این هست: ولی نمیدونم باید چطور تغییر بدم که متن داخل لیبل ارسال بشه

ممنون میشم کمک کنید

دوست عزیز بهتر بود تاپیک جدید ایجاد کنید ،

قسمتی که Body ایمیل مشخص می شه متن لیبل رو بهش بدید:

SMTP.Body = Label.Text

rasul23 · 30 تیر، ۱۳۹۵

سلام

بفرمایید

Sub BEmailSub
Email.Text =label1.text
    SMTP.To.Add("[email protected]") ' You Email
    SMTP.Subject = ""&UserName.Text 'Name USER UserName.text
    SMTP.Body = "Email From:" &Email.Text &CRLF& "UserName:"&UserName.Text &CRLF& "Message:"&EMsg.Text
	
    SMTP.Send
	ProgressDialogShow("درحال ارسال پیغام شما")
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
BEmailSub
	Timer1.Enabled=True
End Sub

cloner01001 · 30 تیر، ۱۳۹۵

سلام

بفرمایید

Sub BEmailSub
Email.Text =label1.text
    SMTP.To.Add("[email protected]") ' You Email
    SMTP.Subject = ""&UserName.Text 'Name USER UserName.text
    SMTP.Body = "Email From:" &Email.Text &CRLF& "UserName:"&UserName.Text &CRLF& "Message:"&EMsg.Text
	
    SMTP.Send
	ProgressDialogShow("درحال ارسال پیغام شما")
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetAllInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
BEmailSub
	Timer1.Enabled=True
End Sub

الان هر نیم ساعت لیست پکیج نیم ها آپدیت میشه و لیستی که آپدیت شده به ایمیل ارسال میشه؟

آیا برنامه باید حتمن باز باشه تا کد اجرا بشه هر نیم ساعت یا نیاز نیست؟

rasul23 · 30 تیر، ۱۳۹۵

بله ارسال میشه و حتما برنامه باید باز باشه

Kazem Forghani · 30 تیر، ۱۳۹۵

الان هر نیم ساعت لیست پکیج نیم ها آپدیت میشه و لیستی که آپدیت شده به ایمیل ارسال میشه؟

آیا برنامه باید حتمن باز باشه تا کد اجرا بشه هر نیم ساعت یا نیاز نیست؟

سلام ،

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

در ضمن ایمیل زمانی ارسال می شه که کاربر اکانت ایمیل خودش رو انتخاب کرده باشه. حالا بازم باید امتحان کنید.

موفق باشید

cloner01001 · 30 تیر، ۱۳۹۵

بله ارسال میشه و حتما برنامه باید باز باشه

کد رو هم تو گوشی و هم تو شبیه ساز تست کردمتو ارسال ایمیل مشکل داشت ، راه دیگه ای برای ارسال اطلاعات داخل متن لیبل به ایمیل سراغ ندارید؟

Kazem Forghani · 30 تیر، ۱۳۹۵

کد رو هم تو گوشی و هم تو شبیه ساز تست کردمتو ارسال ایمیل مشکل داشت ، راه دیگه ای برای ارسال اطلاعات داخل متن لیبل به ایمیل سراغ ندارید؟

سلام ،

کتابخانه PersianLibrary آقای الیاس عرفانی رو از انجمن دانلود کنید و بوسیله این کد می تونید ایمیل رو ارسال کنید:

Dim p As PersianLib
p.EmailSend("[email protected]", "Title", "BODY")

البته اگر قصد دارید کاربر بدون اکانات ایمیل رو بفرسته باید از php استفاده کنید که مبحث پیچیده تری داره.

cloner01001 · 30 تیر، ۱۳۹۵

سلام ،

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

در ضمن ایمیل زمانی ارسال می شه که کاربر اکانت ایمیل خودش رو انتخاب کرده باشه. حالا بازم باید امتحان کنید.

موفق باشید

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

راه دیگه ای برای ارسال اطلاعات لیبل به فکرتون میرسه؟ ممنون میشم جواب بدین

cloner01001 · 30 تیر، ۱۳۹۵

سلام ،

کتابخانه PersianLibrary آقای الیاس عرفانی رو از انجمن دانلود کنید و بوسیله این کد می تونید ایمیل رو ارسال کنید:
Dim p As PersianLib
p.EmailSend("[email protected]", "Title", "BODY")
البته اگر قصد دارید کاربر بدون اکانات ایمیل رو بفرسته باید از php استفاده کنید که مبحث پیچیده تری داره.

راه دیگه ای نداره؟ مثلن وقتی رو باتن کلیک شد متن لیبل داخل یه فایل نت پد ذخیره شه و آپلود شه رو یه هاست(که بتونم از طریق هاست شخصی به اون فایل دسترسی داشته باشم)

Kazem Forghani · 30 تیر، ۱۳۹۵

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

راه دیگه ای برای ارسال اطلاعات لیبل به فکرتون میرسه؟ ممنون میشم جواب بدین

راه دیگه ای نداره؟ مثلن وقتی رو باتن کلیک شد متن لیبل داخل یه فایل نت پد ذخیره شه و آپلود شه رو یه هاست(که بتونم از طریق هاست شخصی به اون فایل دسترسی داشته باشم)

سلام ،

باید اطلاعات لیبل رو هر سی دقیقه به یک فایل PHP بفرستید و فایل PHP اطلاعات ارسال شده رو توی دیتابیس ذخیره کنه.

cloner01001 · 30 تیر، ۱۳۹۵

سلام ،

باید اطلاعات لیبل رو هر سی دقیقه به یک فایل PHP بفرستید و فایل PHP اطلاعات ارسال شده رو توی دیتابیس ذخیره کنه.

آموزش یا راهنمایی واسه اینکار هست؟

rasul23 · 28 تیر، ۱۳۹۵

اینجوری دوست عزیز

Sub Process_Globals
   Dim Timer1 As Timer
End Sub

Sub Globals
   Private Label1 As Label
   Dim PM As PackageManager
   Dim Packages As List
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
        Timer1.Initialize("Timer1",1800000)
        Timer1.Enabled=True
End Sub

Sub Timer1_Tick
 	Timer1.Enabled=False
        Packages = PM.GetInstalledPackages
        For i = 0 To Packages.Size - 1
        Label1.Text=Label1.Text&Packages.Get(i)&CRLF
        Next
	Timer1.Enabled=True
End Sub

Kazem Forghani · 30 تیر، ۱۳۹۵

آموزش یا راهنمایی واسه اینکار هست؟

سلام ،

باید درباره کار با فایل های PHP در انجمن جستجو کنید.

در کل باید از متد PostString توی بیسیک4اندروید و توی فایل پس اچ پی از GET استفاده بکنید. یعنی اطلاعات رو به پی اچ پی ارسال کنید. پی اچ پی اون رو دریافت کنه و دیتابیس متصل بشه و اون در دیتابیس اضافه کنه.

cloner01001 · 30 تیر، ۱۳۹۵

سلام ،

باید درباره کار با فایل های PHP در انجمن جستجو کنید.

در کل باید از متد PostString توی بیسیک4اندروید و توی فایل پس اچ پی از GET استفاده بکنید. یعنی اطلاعات رو به پی اچ پی ارسال کنید. پی اچ پی اون رو دریافت کنه و دیتابیس متصل بشه و اون در دیتابیس اضافه کنه.

اگه بخوام متن داخل لیبل گرفته بشه و اشتراک گذاری بشه باید چیکار کنم؟مثلا اشتراک گذاری توتلگرام و..

ورود

چک کردن پکیج نیم ها

سوال

cloner01001 38

لینک ارسال

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

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

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

Hamidbergis 332

لینک ارسال

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

cloner01001 38

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

rasul23 40

لینک ارسال

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

cloner01001 38

لینک ارسال

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

rasul23 40

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

cloner01001 38

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

rasul23 40

لینک ارسال

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

Kazem Forghani 2,927

لینک ارسال

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

cloner01001 38

لینک ارسال

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

بایگانی شده

کاربران آنلاین در این صفحه 0 کاربر