جنـرال الـهكـر
السٌّمعَة : 4
تاريخ التسجيل : 20/04/2014
الموقع : https://sadam-alsharabi.roo7.biz
 |  موضوع: عمل برنامج | سارق ايقونات  الثلاثاء يونيو 10, 2014 2:12 pm | |
| السلام عليكم ورحمة الله وبركاته شو اخباركم اخواني انشالله بخير الحمدلله وشكرا لكل اللي باركولي وارسلولي رسائل ع صفحتي  | موضوع الدرس | عمل برنامج او اداه لسرقة ايقونة اي برنامج | الادوات | 1. فيجوال بيسك دوت نت
2. 2 Button
3. 1 Picture Box | طريقة عمل البرنامج | 1. نضيف 2 Button
واحد نسميه Add
والتاني Save
البوتون الاول لجلب البرنامج المراد استخراج ايقونته
والبوتون الثاني لحفظ الايقونة
2. نضع Picture Box
لعرض الايقونة
وهاي صورة للبرنامج بعد اضافة الادوات  | الاكواد | 1. في البوتون الاول نضع هذا الكود لجلب اي برنامج بصيغة EXE لسحب ايقونته - الكود:
-
Dim dlg As New OpenFileDialog
With dlg
.Title = "Open File"
.FileName = ""
.Filter = "All Files|*.*"
End With
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim nicon As Icon = Icon.ExtractAssociatedIcon(dlg.FileName)
PictureBox1.BackgroundImage = nicon.ToBitmap
PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
End If 2. في بوتون حفظ الايقونة نضع هذا الكود لحفظ الايقونة في الجهاز - الكود:
-
Dim dlg As New SaveFileDialog
With dlg
.Title = "Save Icon"
.FileName = ""
.Filter = "PNG|*.png"
End With
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
PictureBox1.BackgroundImage.Save(dlg.FileName, System.Drawing.Imaging.ImageFormat.Png)
End If وهاي صورة الاكواد جاهزة  [COLOR="Orange"]انشالله الدرس يعجبكم وتستفيدو منو | |
|
