حصرياً على المشاغب (تعلم صنع برنامج يصنع برامج)

[eshrag.net]

إخواني و أخواتي الكرام أعضاء منتديات المشاغب مرحبا بكم

مقدمة :

كثيراً ما نرى برامج تقوم بصنع برامج بالإعدادات التي أدخلها المستخدم

ومن أمثلة هذه البرامج :
1. Visual Studio
2. WinRAR
3. SetupFactory
4. إلخ...
ولكن هنا السؤال هل نستطيع صنع برامج مثل هذه البرامج؟
والجواب هو نعم نستطيع صنع برامج مثل هذه البرامج باستخدام أداة Microsoft.Build
وهي أداة من أدوات.Net Framework وظيفتها تحويل المشروع إلى ملف EXE
وتتواجد هذه الأداة في الإصدار الأخير .Net Framework 4 أما الباقي فلا أعلم
المتطلبات :
1.Microsoft Visual Studio
2. أداة Microsoft.Build
3. مشروعين
الأول المشروع الخاص بك
الثاني المشروع الخاص بالمستخدم

الشرح :
1. المشروع الأول

المتطلبات :
1. 1 Form
2. 4 TextBox
3. 4 Label
4. 1 Button

الخصائص :
غير النص في Form1 إلى "صانع البرامج"
غير النص في Label1 إلى "العنوان :"
غير النص في Label2 إلى "الرسالة عند الضغط على زر 1 :"
غير النص في Label3 إلى "الرسالة عند الضغط على زر 2 :"
غير النص في Label4 إلى "حفظ إلى"
غير النص في Button 1 إلى "حفظ"
من قائمة Project إختر Add Revrence ثم من أدوات .Net إختر أداة Microsoft.Build

ليكون شكل الفورم كالتالي :

والأوامر :

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

2. المشروع الثاني

المتطلبات :
1. 1 Form
2. 2 Button

الخصائص :
غير النص في Form1 إلى "Sample"
غير النص في Button 1 إلى "زر 1"
غير النص في Button 1 إلى "زر 2"
ليكون شكل الفورم كالتالي :

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

قم بحفظ المشروعان بعد ذلك قم بنسخ المشروع الثاني إلى مجلد bin\Debug بدون ملف الsln
ليكون كالتالي :

وعند فتح المجلد Sample :

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

انتهى صنع المشروعان والآن الأوامر والشرح :

كود PHP:

[LEFT]Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox4.Text = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Sample.exe"
' تحديد مسار حفظ البرنامج
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then MsgBox("إملأ البيانات") : Exit Sub
' إذا كان أحد مربعات النص فارغة إظهار رسالة تحذيرية
Dim R As New RichTextBox
' تعريف الكائن R بأنه أداة RichTextBox
R.LoadFile("Sample\Form1.Designer.vb", RichTextBoxStreamType.PlainText)
'فتح الملف "Sample\Form1.Designer.vb" لتغيير عنوان الفورم
For I = 0 To R.Lines.Count - 1
' للبحث عن أمر عنوان الفورم وتغييره
If InStr(R.Lines.GetValue(I), "Me.Text") > 0 Then
R.Text = Replace(R.Text, R.Lines.GetValue(I), " Me.Text = """ & TextBox1.Text & """")
Exit For
End If
Next
' لحفظ الملف
R.SaveFile("Sample\Form1.Designer.vb", RichTextBoxStreamType.PlainText)
' كتابة أوامر الأزرار في ملف " "Sample\Form1.vb
R.Text = "Public Class Form1"
R.Text += vbNewLine
R.Text += vbNewLine
R.Text += " Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click"
R.Text += vbNewLine
R.Text += " MsgBox(""" & TextBox2.Text & """)"
R.Text += vbNewLine
R.Text += " End Sub"
R.Text += vbNewLine
R.Text += vbNewLine
R.Text += " Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click"
R.Text += vbNewLine
R.Text += " MsgBox(""" & TextBox3.Text & """)"
R.Text += vbNewLine
R.Text += " End Sub"
R.Text += vbNewLine
R.Text += vbNewLine
R.Text += "End Class"
' لحفظ الملف
R.SaveFile("Sample\Form1.vb", RichTextBoxStreamType.PlainText)
' الخطوة الأهم وهي تعريف الكائن P على أنه مشروع وفتح المشروع الثاني
Dim P As New Microsoft.Build.Evaluation.Project("Sample\Sample. vbproj")
' وأخيراً عمل Build للمشروع ونسخه إلى المكان المحدد
If P.Build() = False Then MsgBox("خطأ") : Exit Sub
My.Computer.FileSystem.CopyFile("Sample\bin\Debug\Sample.exe", TextBox4.Text) : MsgBox("تم")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class[/LEFT]

والآن نأتي إلى التحميل

MediaFile

ZShare

4Shared

RapidShare

بالتوفيق للجميع إن شاء الله

وصلى الله على سيدنا محمد وعلى أله وصحبه وسلم