![]() |
![]() مساحة اعلانات نصية ذهبية |
||
كوبونات خصم | اعلن هنا | اعلن هنا |
اعلن هنا | مساحة إعلانيه |
|
![]() |
|
أدوات الموضوع | انواع عرض الموضوع |
#1
|
|||
|
|||
![]() ![]() إخواني و أخواتي الكرام أعضاء منتديات المشاغب مرحبا بكم مقدمة : كثيراً ما نرى برامج تقوم بصنع برامج بالإعدادات التي أدخلها المستخدم ومن أمثلة هذه البرامج : 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] والآن نأتي إلى التحميل بالتوفيق للجميع إن شاء الله وصلى الله على سيدنا محمد وعلى أله وصحبه وسلم
|
![]() |
|
|
![]() |
||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
أقوى كراك لبرنامج idm..حصرياً على المشاغب | eshrag.net | اشراق شامل - منوعات | 0 | 07-17-2011 06:00 PM |
حصرياً على المشاغب ::: صمم بنر في أقل من دقيقة ::: | eshrag.net | اشراق شامل - منوعات | 0 | 07-14-2011 09:10 AM |
حصرياً على المشاغب ..دورة كاملة عن موقع اليوتيوب من الألف إلي الياء | eshrag.net | اشراق شامل - منوعات | 0 | 07-07-2011 04:50 AM |
جعل نسخة ويندوز اصلية 100% مجربة مني حصرياً على المشاغب | eshrag.net | المنتدى العام - مواضيع عامة | 0 | 08-21-2010 07:11 AM |
ثيمات جديدة لنوكيا Themes for Nokia S40 v5 حصرياً على المشاغب | eshrag.net | المنتدى العام - مواضيع عامة | 0 | 08-08-2010 08:44 AM |
![]() |
|
راسلنا الآن لشراء روابط نصية باك لينك وجيست بوست | خدمات الباك لينك والروابط النصية |
![]() |
||||
اشتراك يوتيوب بريميوم | اشتراك تطبيقات بلس | اشتراك IPTV شهر | يوتيوب بريميوم | عسل النحل |
![]() |
||||
دراما كافيه | دراما صح | اهواك Tv | فوستا | شبكتي Tv |
![]() |
|||||
كورة لايف | koora live | مباريات اليوم بث مباشر | kora 360 | koora4live | كورة لايف |
koora live | مباريات اليوم بث مباشر | kora 360 | koora4live | kooralive | مساحة إعلانيه |
![]() |
||
متجر الرياض | شدات ببجي | شحن شدات ببجي |
![]() |
|||||||||
عزل اسطح | كشف تسربات المياه | عزل فوم بالرياض | شركة عزل اسطح | كشف تسربات المياه بالرياض | عزل اسطح بجدة | شركة كشف تسربات المياه | نقل اثاث بالرياض | شراء اثاث مستعمل بالرياض | شركة تنظيف بالرياض |
![]() |
|||||||
خصومات | هدايا وكوبونات | توفير المال | مال واستثمار | صفقات وتسوق | عروض اسواق السعودية | تحسين مالي | كوبونات |
![]() |
||||
يلا شوت | يلا شوت | يلا لايف | yalla shoot | يلا شوت |
![]() |
|||||||
كورة جول | يلا لايف | دوت سبورت | bein match | yalla shoot | yalla shoot | koora live | koora live |
يلا شوت | koora4live | سوريا لايف | تابع لايف | كورة لايف | كورة جول | كورة لايف | koora live |
![]() |
||||
كورة لايف | Koora live | يلا شوت | Yalla shoot | يلا شوت |
![]() |
||||
تقييم شركة exness | تقييم شركة binance | تقييم شركة avatrade | تقييم شركة evest | افضل شركات التداول |
![]() |
||||
تشليح السيارات بالرياض | شراء سيارات تشليح بالرياض | تشليح | تشليح الحاير | تشليح السلى |
موقع شراء سيارات تشليح | شراء سيارات تشليح | تشليح السيارات | قطع غيار تشليح | تشاليح |