31-01-18, 05:41 AM
(آخر تعديل لهذه المشاركة : 31-01-18, 05:45 AM {2} بواسطة سعود الشامان.)
بسم الله الرحمن الرحيم وبه نستعين
السلام عليكم ورحمة الله وبركاته
بداية احب اوضح ماهي السيديا وما طريقة عملها بشكل مختصر
الجلبريك : تطبيق لاجهزة iOS ( ايفون - ايبود - ايباد ) يقوم بكسر النظام وتوليد السيديا
السيديا : هي تطبيق لاجهزة iOS ( ايفون - ايبود - ايباد )
والجلبريك يأتي ب نوعين :-
1 - جلبريك مقيد ( يتطلب فتح التطبيق وتفعيله عند كل مرة يتم فيها ايقاف تشغيل الجهاز )
2 - جلبريك غير مقيد ( يتطلب فقط فتح وتفعيلة لمرة واحدة )
وتطبيق السيديا هو إن صح التعبير متجر توجد به ادوات تقوم بالتعديل على النظام و التطبيقات المثبته على النظام
3 فيديوهات لوتضيح الفكرة أكثر
الدرس الاول من انشاء سورس خاص
الدرس الثاني من انشاء سورس خاص
الدرس الثالث من انشاء سورس خاص
شرح آخر
نستطيع تلخيص هذا الموضوع بأداة بسيطة أو برنامج
و الحمد لله بدأت في عمل المشروع
لكن واجهتني بعض المعضلات :
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 للتجربة
المشروع جماعي ويحق لأي شخص يطوره وضع اسمه ووضع رابط تواصل
وفي الاخير تبقى الحقوق محفوظة لفيجوال بيسك لكل العرب
والاداة او البرنامج مجاني