منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : Create Cydia tools || اداة لإنشاء ادوات السيديا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم وبه نستعين

السلام عليكم ورحمة الله وبركاته



بداية احب اوضح ماهي السيديا وما طريقة عملها بشكل مختصر

الجلبريك : تطبيق لاجهزة iOS ( ايفون - ايبود - ايباد ) يقوم بكسر النظام وتوليد السيديا
السيديا : هي تطبيق لاجهزة iOS ( ايفون - ايبود - ايباد )


والجلبريك يأتي ب نوعين :-

1 - جلبريك مقيد ( يتطلب فتح التطبيق وتفعيله عند كل مرة يتم فيها ايقاف تشغيل الجهاز )
2 - جلبريك غير مقيد ( يتطلب فقط فتح وتفعيلة لمرة واحدة )


وتطبيق السيديا هو إن صح التعبير متجر توجد به ادوات تقوم بالتعديل على النظام و التطبيقات المثبته على النظام

3 فيديوهات لوتضيح الفكرة أكثر

الدرس الاول من انشاء سورس خاص

https://youtu.be/wTGHezYF7hw


الدرس الثاني من انشاء سورس خاص

https://youtu.be/A2t0DYLvRSE

الدرس الثالث من انشاء سورس خاص
https://youtu.be/a9OOlz-8BQ8




شرح آخر 


https://www.adslgate.com/dsl/showthread.php?t=1789560


نستطيع تلخيص هذا الموضوع بأداة بسيطة أو برنامج

و الحمد لله بدأت في عمل المشروع

لكن واجهتني بعض المعضلات :

1 - كود الكتابة بعد نهاية اخر سطر بسطرين
2 - كود إظهار حجم الملف بالبايت
2 - هل نستطيع ضغط ملف Packages الى Packages.bz2

صور من المشروع











كود المشروع

كود :
Imports System.IO

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       SaveFileDialog1.Filter = "All Files (*.*)|*.*" ' صيغة الملف عند التصدير
       SaveFileDialog1.FileName = "control" ' اسم الملف عند التصدير
       If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
    Then
           My.Computer.FileSystem.WriteAllText _
           (SaveFileDialog1.FileName, Label1.Text & " " & TextBox1.Text & vbNewLine & Label2.Text & " " & TextBox2.Text & vbNewLine & Label3.Text & " " & TextBox3.Text & vbNewLine & Label4.Text & " " & TextBox4.Text & vbNewLine & Label5.Text & " " & TextBox5.Text & vbNewLine & Label6.Text & " " & TextBox6.Text & vbNewLine & Label7.Text & " " & TextBox7.Text & vbNewLine & Label8.Text & "" & TextBox8.Text & vbNewLine & Label9.Text & " " & TextBox9.Text, True) 'حفظ التيكست بوكس و الليبل الى ملف كنترول

       End If

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       '---------------------------------------
       'لفتح الملف
       '---------------------------------------
       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

           Dim path As String = OpenFileDialog1.FileName '  ( متغير لــ(مسار ملف الباكج للسورس
           Dim namefile As String = OpenFileDialog1.SafeFileName '  ( متغير لــ(إسم ملف الباكج للسورس

           Label88.Text = path ' عرض مسار ملف الباكج للسورس
           GroupBox2.Enabled = True
       End If
   End Sub


   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       TextBox6.Clear()
       TextBox7.Clear()
       TextBox8.Clear()
       TextBox9.Clear()
   End Sub

 
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
           End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       '---------------------------------------
       'لفتح الملف
       '---------------------------------------
       If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then

           Dim path As String = OpenFileDialog2.FileName '  ( متغير لــ(مسار ملف  للديب
           Dim namefile As String = OpenFileDialog2.SafeFileName '  ( متغير لــ(إسم ملف الديب

           TextBox18.Enabled = True
           TextBox13.Enabled = True

           Label10.Text = path ' عرض مسار ملف الديب

       End If
   End Sub


   Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
       Process.Start("http://vb4arb.com/vb/index.php")
   End Sub
End Class


رابط المشروع بالمرفقات

+

ملف Packages  للتجربة

المشروع جماعي ويحق لأي شخص يطوره وضع اسمه ووضع رابط تواصل
وفي الاخير تبقى الحقوق محفوظة لفيجوال بيسك لكل العرب


والاداة او البرنامج مجاني
تم تخصيص الأداة لأداة تقوم بتجهيز ادوات السيديا فقط
وبحمد من الله وبفضله ثم فضلكم توصلت إلى 70% مما أريد ...

-----------------------------------------------------------------------------------------------------------------
وهي إنشاء مجلد بإسم يختاره المستخدم ويختار مساره أيضاً وبداخل هذا المجلد ملف بإسم control
وبداخل هذا الملف الأسطر اللتي في الليست بوكس

--------------------------------------------------------------------------------------------------------------

يقوم المستخدم بفتح المجلد الناتج ووضع مجلدات الأداة
ثم يقوم بنقل المجلد للأيفون أو الأيباد الأيبود
لضعطة بصيغة deb. وهذه صيغة ادوات السيديا
عن طريق تطبيق التريمنال ( شبيه الدوس ) بهذا الأمر

dpkg-deb -b name

والمقصود بـ name إسم المجلد

------------------------------------------------------------------------------------------------------




----------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------
هل يمكن ضغط المجلد بصيغة deb. عن طريق vb.net ؟
----------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------

علماً بأنه يوجد موقع يقوم بتحويل الملف من zip. الى deb. والعكس  https://www.yourepo.com

----------------------------------------------------------------------------------------------------------------

رابط المشروع للفائدة و المشاركة

http://www.mediafire.com/file/8jrq31omkp...a_SAUD.zip

المشروع فردي الى الآن واتمنى أن يصبح جماعي

الآن في محاولة فهم وتجربة كافة الخيارات

Depiction:
Depends:
Conflicts:
Replaces:
التغييرات : إضافة شرط عند الضغط على زر إضافة ( Add )
اذا كان Package: او Name: إلخ... مكرر

كنسل الإضافة , وأظهر رسالة بأن السطر موجود مسبقاً

ويجب حذف السطر من صندوق العرض لإضافة السطر من جديد

وسابقا كان الإختيار سطر أو جميع الأسطر
الآن يمكن تحديد سطر او عدد معين من الأسطر أو كل السطور
يمكن تحديد عدد معين من الأسطر بالضغط على زر ctrl و تحديد الأسطر لحذفهم أو نسخهم

http://www.mediafire.com/file/oppjm12xo3...SAUD_2.rar

المصادر :


http://vb4arb.com/vb/showthread.php?tid=9687


http://vb4arb.com/vb/showthread.php?tid=4648



vb2012- 113- ListBox وظائف أو دوال العنصر

https://youtu.be/yRVcCV0nT3E
الإضافات : ضغط مجلد بما داخله بصيغة zip وارساله عن طريق البريد الإلكتروني كمرفق

التغيرات :
1 - تم تغيير مسار حفظ المشاريع الى المستندات ثم مجلد Cydia tools
2- وضع شريط تمرير افقي وعامودي لليست بوكس
3 - تحديد السطر المكرر , اضافة زرين الأول لنقل السطر للاعلى والثاني لنقل السطر للاسفل

رابط المشروع

http://www.mediafire.com/file/33kitk3pv5...SAUD_4.zip

فيديو توضيحي لطريقة عمل الأداة


https://youtu.be/EzJrw5I2Vjc

[url=http://www.mediafire.com/file/33kitk3pv5p4sk3/Cydia_SAUD_4.zip][/url]