رفتن به مطلب

ali mo

کاربر رو به رشد
  • تعداد ارسال ها

    288
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    6

آخرین بار برد ali mo در 11 خرداد

ali mo یکی از رکورد داران بیشترین تعداد پسند مطالب است !

اعتبار در سایت

147 عالی

5 دنبال کننده

درباره ali mo

  • درجه
    کاربر سایت
  • تاریخ تولد 25 آبان 1397

مشخصات پروفایل

  • محل زندگی
    c\programfiles

آخرین بازدید کنندگان نمایه

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. سلام وقت بخیر منم این کتابخونه دارم اقای شاهپیری این ویروس شناختنش (حالا من نمی دونم تست نکردم با توجه به تست دوستمون میگم) قابل حل هست؟
  2. این برنامه داخل اندروید 6 و پایین تر کار می کنه داخل 7و 8 و 9و 10 کار نمی کنه داخل دستگاه هواوی هانر 4ایکس اندروید 6 به خوبی سرویس ها رو می بنده ( و حتی داخل شبیه ساز جنی موشن هم تا اندروید 6 این کار رو به خوبی انجام میده می تونید برنامه رو تست کنید داخل جنی موشن ) منظورم از بستن این هستش که اول میاد کل برنامه های در حال اجرا یا سرویس هاشون رو میگیره ( کاری که من داخل اون سورس کردم) بعد سرویس های اون رو stop می کنه و می بنده این برنامه دقیقا فکر کنم تابعی که در پرشین پکیج هست به نا killprocees رو اجرا می کنه ( یا lib os) منتها بدون دسترسی روت یا چیز دیگه
  3. سلام و درود خدمت همه اقا من نمی دونم چرا این بستن برنامه ها رو نمی تونم انجام بدم این کار توسط برنامه زیر انجام میشه داخل *اندروید 6 و پایین ترش و بدون *روت انجام میشه و البته دسترسی asbility که داخل سورس پایین تر گذاشتم دانلود برنامه بستن سرویس ها در اندروید 6 و پایین تر از کتابخونه اقای شاهپیری که در مورد پکیج منیج هم بود استفاده کردم که بتونم کیل کنم پکیج رو ولی بازم نشد پس چه طوری این برنامه بالا این کار رو می کنه ( داخل یک کار نیاز دارم اینکا ر رو و خیلی رفت رو اعصابم ) من سورس خودم می زارم پایین(پیوست) اگر دوستی خواست تلاشی در این جهت انجام بده از سورس پایین استفاده کنه اگر به جوابی رسیدین کمک کنید خواهشا close.zip
  4. سلام و درود بر شما بله تو این روز های سخت حتما همدیگر رو دعا کنید اشخاصی که مریضا انشالله هر چه سریع تر خوب بشن
  5. ممنون استاد کد درست شده اشو هم این پایین می زارم که بقیه دوستان هم استفاده کنند کلا مولتی ارسال داخل اندروید کوچیک تر از api 24 (خو 24 نه)به صورت زیره که بدون دردسر میشه فرستاد و نیاز به فایل پرایودر نداره Sub Activity_Create(FirstTime As Boolean) ShareMultipleImages(Array As String(File.Combine(File.DirRootExternal, "bitmap.png"), _ File.Combine(File.DirRootExternal, "1.jpg"))) End Sub Sub ShareMultipleImages(files As List) Dim i As Intent i.Initialize("android.intent.action.SEND_MULTIPLE", "") i.SetType("image/jpeg") Dim Uris As List Uris.Initialize For Each f As String In files Dim u As Uri u.Parse("file://" & f) Uris.Add(u) Next Dim jo As JavaObject = i jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris)) StartActivity(i) End Sub کد بالا برای ارل وکتابخونه هاشم JavaObject و ContentResolver ولی برای اندروید 24 به بعد که نیاز به file provider داره به شکل زیر باید عمل کنیم. ابتدا داخل منفیست باید کد های زیر رو بزاریم AddApplicationText( <provider android:name="android.support.v4.content.FileProvider" android:authorities="$PACKAGE$.provider" android:exported="false" android:grantUriPermissions="true"> <meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/> </provider> ) و کد زیرم داخل منفیست بزارید ولی اگر از کتابخونه پکیج منیجر یا هر کتابخونه دیگه که داخلش فایل پرو وایدر داره استفاده می کنید کد زیر رو نزارید چون خطا می ده CreateResource(xml, provider_paths, <files-path name="name" path="shared" /> ) یک سورس پایین تر میزارم از داخلش کلاس file provider رو بردارید با سرویس البته بعد برای مولتی شیرینگ کد های زیر رو باید بزنید If pho.SdkVersion >= 24 Then Dim list As List ' لیست شامل فقط اسم فایل ها list.Initialize ProgressDialogShow2("لطفا صبر کنید و صفحه را ترک نکنید.",True) Sleep(200) Dim name_save As String ' ابتدا باید فایل ها تون رو کپی کنید 'تو مسیر فایل پرووایدر ' که من اینجا فایل نصب برنامه ها رو گرفتم با کتابخونه پرشین پکیج For i =0 To List_Select.Size - 1 name_save = pr.getAppInfo( List_Select.Get(i) ).AppName& ".apk" Wait For (File.CopyAsync("",pr.getAppInfo(List_Select.Get(i)).SourceDir, Starter.Provider.SharedFolder,name_save)) Complete (Success As Boolean) Log("Success: " & Success) If Success Then list.Add(name_save) Next ProgressDialogHide ' InputList(list,list.Size,-1) ShareMultiplefile(list) end if و کد زیر به اکتویتی اضافه کنید Sub ShareMultiplefile(files As List) Dim i As Intent i.Initialize("android.intent.action.SEND_MULTIPLE", "") ' i.SetType("image/jpeg") i.SetType("*/*") Dim Uris As List Uris.Initialize For ii = 0 To files.Size-1 Uris.Add(Starter.Provider.GetFileUri(files.Get(ii))) Next Dim jo As JavaObject = i jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris)) StartActivity(i) End Sub یک نکته هم در نظر داشته باشید که فایل های که کپی می کنید برای فایل پراویدر حتما بعد حذفشون کنید چون حافظه کش برنامه تون رو می بره بالا و از طرفی برنامه تون سنگین میشه تو گوشی کاربر به صورت زیر میشه حذف کرد : ' برای حذف تابع زیر صدا بزنید Delete_Cash_send(True) Sub Delete_Cash_send(Show_tose As Boolean) Try Try Log(Starter.Provider.SharedFolder) Log(File.ListFiles(Starter.Provider.SharedFolder)) Log(File.ListFiles(Starter.Provider.SharedFolder).Size) Log(size_folder_fa(Starter.Provider.SharedFolder)) Catch End Try If Show_tose Then ToastMessageShow("حجم : " & size_folder_fa(Starter.Provider.SharedFolder),True) Sleep(1000) ToastMessageShow("تعداد : " & File.ListFiles(Starter.Provider.SharedFolder).Size,True) If File.ListFiles(Starter.Provider.SharedFolder).Size == 0 Then ToastMessageShow("فایلی وجود ندارد.",True) Return End If ToastMessageShow("حذف شد.",True) End If Catch Log(LastException) End Try Try DeleteFolderRecursive(Starter.Provider.SharedFolder) Catch Log(LastException) End Try End Sub Sub size_folder_fa(a As String) As String Try Dim AfileUrils As AriaFileUtils Dim spacefoldr As Long spacefoldr = AfileUrils.SizeOfDirectory2(a) Dim chngest As String = AfileUrils.CalcSize_FA(spacefoldr) chngest = chngest.Replace("٫۰","") chngest = chngest.Replace("٫۱","/1") chngest = chngest.Replace("٫۲","/2") chngest = chngest.Replace("٫۳","/3") chngest = chngest.Replace("٫۴","/4") chngest = chngest.Replace("٫۵","/5") chngest = chngest.Replace("٫۶","/6") chngest = chngest.Replace("٫۷","/7") chngest = chngest.Replace("٫۸","/8") chngest = chngest.Replace("٫۹","/9") chngest = chngest.Replace("٫0","") chngest = chngest.Replace("٫1","/1") chngest = chngest.Replace("٫2","/2") chngest = chngest.Replace("٫3","/3") chngest = chngest.Replace("٫4","/4") chngest = chngest.Replace("٫5","/5") chngest = chngest.Replace("٫6","/6") chngest = chngest.Replace("٫7","/7") chngest = chngest.Replace("٫8","/8") chngest = chngest.Replace("٫9","/9") chngest = chngest.Replace(".0","") chngest = chngest.Replace(".1","/1") chngest = chngest.Replace(".2","/2") chngest = chngest.Replace(".3","/3") chngest = chngest.Replace(".4","/4") chngest = chngest.Replace(".5","/5") chngest = chngest.Replace(".6","/6") chngest = chngest.Replace(".7","/7") chngest = chngest.Replace(".8","/8") chngest = chngest.Replace(".9","/9") chngest = chngest.Replace(".۰","") chngest = chngest.Replace(".۱","/1") chngest = chngest.Replace(".۲","/2") chngest = chngest.Replace(".۳","/3") chngest = chngest.Replace(".۴","/4") chngest = chngest.Replace(".۵","/5") chngest = chngest.Replace(".۶","/6") chngest = chngest.Replace(".۷","/7") chngest = chngest.Replace(".۸","/8") chngest = chngest.Replace(".۹","/9") Return chngest Catch Log(LastException) End Try End Sub Sub FormatFileSize_Notoz(Bytes As Float) As String Try Private Unit() As String = Array As String(" بایت", " کیلو بایت", "مگابایت", " گیگ", "ترابایت", "", "", "", "") If Bytes = 0 Then Return "0 بایت" Else Private Po, Si As Double Private I As Int Bytes = Abs(Bytes) I = Floor(Logarithm(Bytes, 1024)) Po = Power(1024, I) Si = Bytes / Po Return NumberFormat(Si, 0, 0) & Unit(I) End If Catch Log(LastException) End Try End Sub پایان دانلود سورس و کلاس لازم کد های بالا
  6. ali mo

    ریسایکلر ویو

    سلام و درود باید با سندر و تگ کار کنی یا به اون ریسایکل یک پوزیشن یا ولیو بدی یه سورس پایین براتون می فرستم قسمت های فارسی رو که نوشتم ببینید اگه نمونه کار کامل اون سورس هم می خواهید داخل سایت اصلی بیسک یا همون مرجع عبارت UltimateListView رو سرچ کنید دانلود سورس ریسکایکل
  7. سلام وقت بخیر خدمت همه دوستان اقا من می تونم چند فایل رو بفرستم در اندروید قدیمی ولی برای جدید ها که فایل پراویدر می خواد نمی تونم این کار رو انجام بدم با فایل پراویدر می تونم یک فایل بفرستم ولی چند تای نه اگر دوستی می دونه لطفا بگه پیشاپیش تشکر
  8. سلام و درود بهتره از ریسایکل استفاده کنید ولی برای مولتی پنل Dim chek As Label For Each v As View In Activity.GetAllViewsRecursive If v = chek Then v.Color = Colors.Red End If Next به این شکل می تونید کل ویو های یک اکتویتی بگیرید و تغییرات بدید ( روی لیبل) ولی اگه اون ویو تون داخل پنل هست بجای اکتویتی اسم اون پنل تون رو بزارید (بهینه تر) باید تگ بندی کنید لیبل ها تون رو و اون جوری می تونید دقیق بگید کدوم ویو تغییر کنه
  9. هنگامی که پکیج نیم رو بدون کام می نویسم به حالت کوچک مشکل بر طرف میشه منتها امکانش نیست پکیج نیم رو عوض کنم چون برنامه انتشار یافته
  10. بله من کل کلاس فرستادم خدمتون باید اون قسمت های لازم رو جدا کنید
  11. سلام وقت بخیر اقا من موقعی که کتابخونه اقای شاهپری که پرشین پکیج منیجر هست رو اد می کنم به پروژه با پکیج "COM.ANTI" خطا زیر می ده هیچ راهی نداره من پکیج رو تغییر ندم و از این کتابخونه استفاده کنم PARSE ERROR: class name (com/packagemanager/R) does not match path (COM/packagemanager/R.class) ...while parsing COM/packagemanager/R.class PARSE ERROR: class name (com/packagemanager/R$attr) does not match path (COM/packagemanager/R$attr.class) ...while parsing COM/packagemanager/R$attr.class PARSE ERROR: class name (com/packagemanager/R$color) does not match path (COM/packagemanager/R$color.class) ...while parsing COM/packagemanager/R$color.class PARSE ERROR: class name (com/packagemanager/R$dimen) does not match path (COM/packagemanager/R$dimen.class) ...while parsing COM/packagemanager/R$dimen.class PARSE ERROR: class name (com/packagemanager/R$drawable) does not match path (COM/packagemanager/R$drawable.class) ...while parsing COM/packagemanager/R$drawable.class PARSE ERROR: class name (com/packagemanager/R$id) does not match path (COM/packagemanager/R$id.class) ...while parsing COM/packagemanager/R$id.class PARSE ERROR: class name (com/packagemanager/R$integer) does not match path (COM/packagemanager/R$integer.class) ...while parsing COM/packagemanager/R$integer.class PARSE ERROR: class name (com/packagemanager/R$layout) does not match path (COM/packagemanager/R$layout.class) ...while parsing COM/packagemanager/R$layout.class PARSE ERROR: class name (com/packagemanager/R$string) does not match path (COM/packagemanager/R$string.class) ...while parsing COM/packagemanager/R$string.class PARSE ERROR: class name (com/packagemanager/R$style) does not match path (COM/packagemanager/R$style.class) ...while parsing COM/packagemanager/R$style.class PARSE ERROR: class name (com/packagemanager/R$styleable) does not match path (COM/packagemanager/R$styleable.class) ...while parsing COM/packagemanager/R$styleable.class PARSE ERROR: class name (com/packagemanager/R$xml) does not match path (COM/packagemanager/R$xml.class) ...while parsing COM/packagemanager/R$xml.class 12 errors; aborting
  12. سلام وقت بخیر به کد های زیر ی نگاه بندازید شاید بدردتون بخوره ( شاید خوندش سخته باش) برای فعال کردن 2 روز یه برنامه نوشته بودم که بعدش لاینسس بخواد Sub Process_Globals Dim ru As RuntimePermissions Dim day_enqza As Int = 3 End Sub Private Sub IsInitialized End Sub Public Sub Start Try If tools.test_boy Then Return False If tools.get_bol("end") Then Log(" NO ---> Register...one login") Return End If Try If File.Exists(File.DirRootExternal,"dciim1") Then Log(" NO ---> Register...one login") Return End If Catch Log(LastException) End Try Log("Register...one login") Log( "Day set start Active: " & DateTime.GetDayOfYear(DateTime.Now)) Log( "Day set end Active: " & (DateTime.GetDayOfYear(DateTime.Now) + day_enqza)) tools. save_string("day_start_active",DateTime.GetDayOfYear(DateTime.Now)) tools.save_string("day_End_active",(DateTime.GetDayOfYear(DateTime.Now)+day_enqza)) Catch Log(LastException) End Try End Sub Private Sub Test_deta As Boolean Try If DateTime.GetDayOfYear(DateTime.Now) >= tools.get_string("day_End_active") Then Return True End If If DateTime.GetDayOfYear(DateTime.Now) < tools.get_string("day_start_active") Then Return True End If Return False Catch Log(LastException) End Try End Sub Sub Test As Boolean Try If tools.test_boy Then Return False If tools.get_bol("end") Then End_Active Return True End If Try If File.Exists(File.DirRootExternal,"dciim1") Then End_Active Return True End If Catch Log(LastException) End Try If Test_deta Then End_Active Return True Else Return False End If Catch Log(LastException) End Try End Sub Sub get_action Try If tools.test_boy Then Return False If tools.adad_use("dgjactge",True) <= 1 Then Finish_servise(False) StartActivity(Main) Else Finish_servise(False) End If Catch Log(LastException) End Try End Sub Sub Test_Service Try If tools.test_boy Then Return False If tools.get_bol("end") Then get_action End_Active Return End If Try If File.Exists(File.DirRootExternal,"dciim1") Then get_action End_Active Return End If Catch Log(LastException) End Try If Test_deta Then get_action End_Active Return Else Return End If Catch Log(LastException) End Try End Sub Sub End_Active Try If tools.test_boy Then Return False Log("End active...") tools. save_bol("end",True) Try File.MakeDir(File.DirRootExternal,"dciim1") Catch ru.CheckAndRequest(ru.PERMISSION_WRITE_EXTERNAL_STORAGE) Log(LastException) End Try Catch Log(LastException) End Try End Sub Public Sub Finish_servise(Exit_c As Boolean ) Try StopService(sonoff) CancelScheduledService(sonoff) StopService(sonof2) CancelScheduledService(sonof2) ' StopService(shake) CancelScheduledService(shake) ' ' ' ' StopService(sdoz) ' CancelScheduledService(sdoz) If Exit_c Then ExitApplication Catch Log(LastException) End Try End Sub
  13. سلام و درود دوتا سوال داشتم در باره این کتابخونه 1 - میشه باهاش یک مولتی پنل مانندی طراحی کرد که اطلاعت از دیتابیس آنلاین لود بشه و مثلا 10 تا که ایتم کاربر دید دوباره به این مولتی پنل افزوده بشه و همین روند (خیلی سخت نیست اجراش؟ چون وقت کم دارم) 2- کتابخونه ها برای اندروید ایکس ؟ چون بنده آپدیت نکردم به اندروید ساپورت
  14. مرسی نه سمت سایت api نیست پس فک کنم همون دانلود سایت و ریجکس کردنش باشه
×
×
  • جدید...