أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > منتدى البرمجة العام > لغات البرمجة


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


23-01-2015, 10:25 PM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #1  

شرح صناعة برنامج شبيه للداونلود مانيجر خطوة بخطوة



صناعة برنامج شبيه للداونلود مانيجر

اللهم لا علم لنا الا ما علمتنا إنك أنت العليم الحكيم
سلام الله عليكم أخوتي الكرام تحية طيبة وبعد

حبيت اليوم الخروج من نهج الكراك وصناعته والتوجه للأصل وهو البرمجة
بموضوع اليوم سنتعلم مع بعضنا البعض كبفية صناعة برنامج علي غرار
الانترنت داونلود مانيجر (طبعا ليس بعملقته)

البرنامج سيتم بنائه هنا امامكم بالصور عن طريق الفيجوال استوديو 2012

وخطوات بنائه ستكون علي النحو التالي :
1- بناء شكل البرنامج المراد تصميمه
2- ادخال العناصر جميعا فيه
3- ربط العناصر بالأكواد




وعلي بركة الله نبدأ :

سنقوم بداية ببناء مشروع جديد


صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر





مرحلة تصميم واجهة البرنامج


صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر




مرحلة ربط الأكواد بالعناصر


صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر



نتجه الآن لربط الأكواد بشكل عملي

دبل كلك علي أداة BackgroundWorker1 ثم ادخل هذا الكود

  Dim whereToSave As String 
Delegate Sub ChangeTextsSafe
(ByVal length As LongByVal position As IntegerByVal percent As IntegerByVal speed As Double
Delegate Sub DownloadCompleteSafe(ByVal cancelled As Boolean
Private 
Sub BackgroundWorker1_DoWork(ByVal sender As System.ObjectByVal e As System.ComponentModel.DoWorkEventArgsHandles BackgroundWorker1.DoWork 
Me
.Button3.Enabled False 
Dim theResponse 
As HttpWebResponse 
Dim theRequest 
As HttpWebRequest 
Try 
theRequest WebRequest.Create(Me.TextBox1.Text
theResponse theRequest.GetResponse 
Catch ex As Exception 
MessageBox
.Show("An error occurred while downloading file. Possibe causes:" ControlChars.CrLf 
"1) File doesn't exist" ControlChars.CrLf 
"2) Remote server error""Error"MessageBoxButtons.OKMessageBoxIcon.Error
Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete
Me.Invoke(cancelDelegateTrue
Exit 
Sub 
End 
Try 
Dim length As Long theResponse.ContentLength 
Dim safedelegate 
As New ChangeTextsSafe(AddressOf ChangeTexts
Me.Invoke(safedelegatelength000
Dim writeStream As New IO.FileStream(Me.whereToSaveIO.FileMode.Create
Dim nRead As Integer 
Dim speedtimer 
As New Stopwatch 
Dim currentspeed 
As Double = -
Dim readings 
As Integer 

Do 
If 
BackgroundWorker1.CancellationPending Then 
Exit Do 
End If 
speedtimer.Start() 
Dim readBytes(4095) As Byte 
Dim bytesread 
As Integer theResponse.GetResponseStream.Read(readBytes04096
nRead += bytesread 
Dim percent 
As Short = (nRead length) * 100 
Me
.Invoke(safedelegatelengthnReadpercentcurrentspeed

If 
bytesread 0 Then Exit Do 
writeStream.Write(readBytes0bytesread
speedtimer.Stop() 
readings += 

If readings >= 5 Then 
currentspeed 
20480 / (speedtimer.ElapsedMilliseconds 1000
speedtimer.Reset() 
readings 
End 
If 
Loop 

theResponse
.GetResponseStream.Close() 
writeStream.Close() 

If 
Me.BackgroundWorker1.CancellationPending Then 
IO
.File.Delete(Me.whereToSave
Dim cancelDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete
Me.Invoke(cancelDelegateTrue
Exit 
Sub 
End 
If 

Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete
Me.Invoke(completeDelegateFalse
End Sub 



ثم اكتب ورائها هذه الجملة الشرطية الخاصة برابط التحميل وزر التحميل

   Public Sub DownloadComplete(ByVal cancelled As Boolean
Me.TextBox1.Enabled True 
Me
.Button3.Enabled True 

If cancelled Then 
Me
.Button5.Enabled False 
Me
.label13.Text "Cancelled" 
MessageBox.Show("Download Cancelled !""Aborted"MessageBoxButtons.OKMessageBoxIcon.Information
Else 
Me.Button5.Enabled False 
Me
.label13.Text "Successfully downloaded" 
MessageBox.Show("Download Succeded !""Aborted"MessageBoxButtons.OKMessageBoxIcon.Information
End If 

Me.ProgressBar1.Value 
End Sub 


ولحساب سرعة نحميل الملف ضع هذا الكود :

Public Sub ChangeTexts(ByVal length As LongByVal position As IntegerByVal percent As IntegerByVal speed As Double

Me.label12.Text Math.Round((length 1024), 2) & " KB" 
Me.label10.Text Me.TextBox1.Text 
Me
.label13.Text Math.Round((position 1024), 2) & " KB of " Math.Round((length 1024), 2) & "KB (" Me.ProgressBar1.Value "%)" 
Me.Label15.Text Me.ProgressBar1.Value "%" 
If speed = -1 Then 
Me
.label14.Text "calculating..." 
Else 
Me.label14.Text Math.Round((speed 1024), 2) & " KB/s" 
End If 

Me.ProgressBar1.Value percent 
End Sub 


اضغط دبل كلك علي زر Save As ثم ادخل هذا الكود


   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click 
If TextBox1.Text "" Then 
SaveFileDialog1
.Filter "All File(*.*)--(*.*)" 
ElseIf Me.TextBox1.Text.EndsWith(".exe"Then 
SaveFileDialog1
.Filter "Setup File(*.exe)--*.exe" 
ElseIf Me.TextBox1.Text.EndsWith(".rar"Then 
SaveFileDialog1
.Filter "RAR File(*.rar)--*.rar" 
ElseIf Me.TextBox1.Text.EndsWith(".zip"Then 
SaveFileDialog1
.Filter "ZIP File(*.zip)--*.zip" 
ElseIf Me.TextBox1.Text.EndsWith(".pdf"Then 
SaveFileDialog1
.Filter "PDF(*.pdf)--*.pdf" 
End If 
Me.SaveFileDialog1.FileName Me.TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length 1
Me.label9.Text Me.TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length 1
Me.SaveFileDialog1.ShowDialog() 
Me.TextBox2.Text Me.SaveFileDialog1.FileName 
End Sub 

دبل كلك علي زر Start Dawnload وضع هذا الكود :

    Private Sub btDownload_Click(sender As ObjectAs EventArgsHandles Button3.Click 
If Me.TextBox1.Text <> "" AndAlso Me.TextBox1.Text.StartsWith("http://"Then 
Me
.whereToSave Me.TextBox2.Text 
Me
.SaveFileDialog1.FileName "" 
Me.TextBox2.Text whereToSave 
Me
.TextBox1.Enabled False 
Me
.Button3.Enabled False 
Me
.Button5.Enabled True 
Me
.TextBox2.Enabled False 
Me
.Button1.Enabled False 
Me
.BackgroundWorker1.RunWorkerAsync() 

Else 
MessageBox.Show("This url is not valid""Warning"MessageBoxButtons.OKMessageBoxIcon.Warning
End If 
End Sub 


دبل كلك زر Cancel ثم ضع هذا الكود :

 Private Sub btCancel_Click(sender As ObjectAs EventArgsHandles Button5.Click 
Me
.BackgroundWorker1.CancelAsync() 
TextBox2.Enabled True 
Button1
.Enabled True 
End Sub 




دبل كلك زر Exit ثم ضع هذا الكود
Me.Close() 



دبل كلك علي الحقوق (زر about) ثم هذا الكود وغير بالكلام ما تشاء

MsgBox("مقدمة وإهداء من أخوكم ابو فهمي " vbCrLf "أتمني ان يحوز علي رضاكم" vbCrLf "جميع الحقوق محفوظة " vbCrLf "24/1/2015 : تاريخ الإصدار "



مرحلة تصدير البرنامج


سنقوم بحول الله بتصدير البرنامج وعمل ستب له يثبت من أي وندوز


صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر



والآن لمعاينة العمل بشكل كامل


صناعة برنامج شبيه للداونلود مانيجر



البرنامج المصنوع ستجدونه بالمرفقات بالإضافة الي ملف تكست
يحتوي علي الأكواد المكتوبة
... بالحقيقة لم أضع السورس كامل
حتي تقوموا بكتابتها بأيديكم وبالتالي التعلم بشكل سليم


هذا كل شيء وعلي المحبة نلتقي بمواضيع أخري بحول الله
صناعة برنامج شبيه للداونلود مانيجر

صناعة برنامج شبيه للداونلود مانيجر
صناعة برنامج شبيه للداونلود مانيجر

Sponsors








المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
19 إسطوانة هي برنامج الوسيلة لتعليم الإنجليزية خطوة بخطوة حارث بن همام تعليم اللغات, كورسات وبرامج وكتب تعليم اللغات 140 13-08-2017 07:56 PM
أحدث باتش نظــــيف للداونلود مانيجر أبو عبد الرحمن برامج 95 14-06-2015 03:37 AM
برنامج روعة لتعلم الانجليزية خطوة بخطوة face2face v2.3 almksb تعليم اللغات, كورسات وبرامج وكتب تعليم اللغات 42 05-05-2011 06:27 AM
كيف تنشئ سرفر محلي بواسطة برنامج EasyPHP خطوة بخطوة Enough تطوير المواقع 36 05-09-2009 08:31 PM
خطوة بخطوة لعمل تنصيب صامت لأي برنامج تريد بنفسك، من البداية إلى الاحتراف kingfire المرحلة الثالثة : إضافة البرامج و الدرايفرات وبعض ملفات الميديا أو الخلفيات 50 16-09-2008 12:43 AM
23-01-2015, 10:29 PM
ABU.AMR متصل
مشرف عام
رقم العضوية: 87092
تاريخ التسجيل: Jun 2007
المشاركات: 10,937
إعجاب: 4,435
تلقى 12,179 إعجاب على 3,243 مشاركة
تلقى دعوات الى: 3309 موضوع
    #2  
تسلم تسلم مشرفنا العزيز ابو فهمى مشاء الله عليك وزير البرمجة والكراكات بس ينفع اشتغل بفجوال بيزك 6 للى عندى ولا لازم الاصدار المذكور طيب لو اعلى وهل الاكواد تنفع على اى اصدار


23-01-2015, 10:59 PM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #3  
المشاركة الأصلية كتبت بواسطة MR_NAGY 
تسلم تسلم مشرفنا العزيز ابو فهمى مشاء الله عليك وزير البرمجة والكراكات بس ينفع اشتغل بفجوال بيزك 6 للى عندى ولا لازم الاصدار المذكور طيب لو اعلى وهل الاكواد تنفع على اى اصدار
تسلم أخي ناجي علي مرورك الطيب أخي
للأسف أخي هذه الأكواد لا تعمل الا علي 2008 فما فوق
ولكن بعون الله ما بردك خائب أخي ... سأحاول تحويل السورس
كامل الي بيسك 2006 واذا زبطت المحاولة معي سأقوم برفعه لك
لتجرب عليه أخي الغالي

23-01-2015, 11:33 PM
احمد العربي غير متصل
مجموعة الإدارة
رقم العضوية: 212729
تاريخ التسجيل: Jan 2009
المشاركات: 8,873
إعجاب: 7,425
تلقى 4,016 إعجاب على 867 مشاركة
تلقى دعوات الى: 3631 موضوع
    #4  
شغل عال ما شاء الله
بارك الله فيك اخي الغالي ابا فهمي وزادك من فضله.
سؤال: (لا تؤاخذني عليه) فأخوك صفر على الشمال في الفيجوال استوديو
من اين جئت بالاكواد؟ وهل هي موجودة بالبرنامج كما هي أم تم تحريرها واعادة صياغتها.

وياريت تعطينا رابط
للفيجوال استوديو12
*****



- منْ خانَ اللهَ في السِّرِ هَتَكَ اللهُ سِتْرَهُ في العلانية
ملأى السنابلِ تنحني بتواضعٍ ... و الفارغاتُ رُؤوسُهُنَ شوامخُ
قال سفيان الثوري "رحمه الله":
أصلُ كُلِّ عداوةٍ اِصْطِناعُ المعروفِ إلى اللئامِ
أما الحياة فليس يرضى ذلها *** إلا وضيع في الورى وحقير
كلاب للأجانب هم ولكن *** على أبناء جلدتهم أسود
أذل الناس معتذر إلى لئيم
من رضع من ثدي الذل دهراً رأى في الحرية خراباً وشراً



24-01-2015, 12:11 AM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #5  
المشاركة الأصلية كتبت بواسطة احمد العربي 
شغل عال ما شاء الله
بارك الله فيك اخي الغالي ابا فهمي وزادك من فضله.
سؤال: (لا تؤاخذني عليه) فأخوك صفر على الشمال في الفيجوال استوديو
من اين جئت بالاكواد؟ وهل هي موجودة بالبرنامج كما هي أم تم تحريرها واعادة صياغتها.

وياريت تعطينا رابط
للفيجوال استوديو12
*****

حياك الله أخي الغالي احمد
بالنسبة لرابط التحميل حمله من هذا الموضوع :
شرح تحميل وتثبيت عملاق البرمجة Microsoft Visual Studio 2013 Ultimate

لان 2013 نسخة طبق الأصل عن 2012 مع بعض التحسينات كما أنها أصلية MDSN
وحجمهم واحد تقريبا بحدود 1.5 جيجا .... ولكن كلا البرنامجين لا يعملوا سوي علي
وندوز 8 - 8.1 ولكن هناك طرق حديثة لتخطي البيئة بسيفن ولكني لم أجربها

اما بالنسبة للأكود أخي : جميع الأكواد عبارة عن تجميعية من هنا وهناك وهذا طبعا بالنسبة
للأكواد الكبيرة ومن ثم تقوم بمحاولة تركيبها علي عنصر مناسب ثم تأتي عملية تطويع أخطاء
هذا الكود ومحاولة تعديلها مع نسخة الفيجوال...اما بالنسبة للأكود الصغيرة فلا حاجة لذلك لانك
تستطيع كتابتها بيدك وهي سهلة واعتيادية

24-01-2015, 01:15 AM
Smsm Star غير متصل
الوسـام الذهبي
رقم العضوية: 139000
تاريخ التسجيل: Jul 2008
الإقامة: دُميّٱطٌ
المشاركات: 2,260
إعجاب: 10
تلقى 49 إعجاب على 7 مشاركة
تلقى دعوات الى: 127 موضوع
    #7  
كنت أريد ان اتابع معك الدرس لكننى لا أحب البرمجه بالدوت نت

سلمت يداك أخى


لست الأفضل ولكن لي إسلوبي الخاص .. سأظل دائماً أتقبل رأي الناقد والحاسد ، فالأول يصحح مساري ، والثاني يزيد من إصراري .



24-01-2015, 09:20 PM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #8  
المشاركة الأصلية كتبت بواسطة Abo Yassen 
تسلم ايدك ابو فهمى حبيبى اعمالك كلها رائعه
مرورك دوما يسعدني صديقي واخي أبو ياسين

المشاركة الأصلية كتبت بواسطة Smsm Star 
كنت أريد ان اتابع معك الدرس لكننى لا أحب البرمجه بالدوت نت

سلمت يداك أخى
بالنسبة لما تحب فهو لك لوحدك أخي ... أما بالنسبة لما أحب
فقد أحببت مرورك الطيب العطر ... شكرا لمرورك أخي

25-01-2015, 03:31 AM
x300 غير متصل
عضو جديد
رقم العضوية: 209593
تاريخ التسجيل: Jan 2009
المشاركات: 3
إعجاب: 0
تلقى 2 إعجاب على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
    #9  
شرح رائع بارك الله فيك


25-01-2015, 09:43 PM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #10  
المشاركة الأصلية كتبت بواسطة x300 
شرح رائع بارك الله فيك
حياك الله اخي ... شكرا لمرورك

31-01-2015, 11:52 PM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #12  
المشاركة الأصلية كتبت بواسطة Mo7amed Abdo 

بارك الله فيك وفى علمك يا ابو فهمى
وجزاك الله كل خير
الله يبارك بعمرك وصحتك ودينك اخي محمد ... شكرا لمرورك

04-02-2015, 12:21 AM
abufahmi غير متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,689
إعجاب: 735
تلقى 2,097 إعجاب على 664 مشاركة
تلقى دعوات الى: 1943 موضوع
    #15  
المشاركة الأصلية كتبت بواسطة احمد السيد123 
ماذا عنك يا ابو فهمى

تستخدم ايهما

1-برنامجك

2-idm

3-برنامج اخر
انا خاين أبو حميد لاني ما بستخدم برنامجي
انا بستخدم idm

 


شرح صناعة برنامج شبيه للداونلود مانيجر خطوة بخطوة

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.