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

  مواضيع مميزة  




إضافة رد
  #1  
23-01-2015, 10:25 PM
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,990
تلقى دعوات الى: 2793 موضوع
إعجاب: 952
تلقى 2,448 إعجاب على 806 مشاركة
 

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


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

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

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

البرنامج سيتم بنائه هنا امامكم بالصور عن طريق الفيجوال استوديو 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 : تاريخ الإصدار "



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


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


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

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

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

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



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


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



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


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

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




  #2  
23-01-2015, 10:29 PM
عضوية الشرف
رقم العضوية: 87092
تاريخ التسجيل: Jun 2007
المشاركات: 11,155
تلقى دعوات الى: 4240 موضوع
إعجاب: 4,574
تلقى 13,994 إعجاب على 3,441 مشاركة
 
تسلم تسلم مشرفنا العزيز ابو فهمى مشاء الله عليك وزير البرمجة والكراكات بس ينفع اشتغل بفجوال بيزك 6 للى عندى ولا لازم الاصدار المذكور طيب لو اعلى وهل الاكواد تنفع على اى اصدار

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

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

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


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

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

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

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

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

  #6  
24-01-2015, 01:05 AM
عضـو
رقم العضوية: 398365
تاريخ التسجيل: Mar 2012
الإقامة: ارض الله الواسعه
المشاركات: 6,324
تلقى دعوات الى: 2739 موضوع
إعجاب: 1,655
تلقى 2,646 إعجاب على 417 مشاركة
 
تسلم ايدك ابو فهمى حبيبى اعمالك كلها رائعه

  #7  
24-01-2015, 01:15 AM
الوسـام الذهبي
رقم العضوية: 139000
تاريخ التسجيل: Jul 2008
الإقامة: دُميّٱطٌ
المشاركات: 2,267
تلقى دعوات الى: 128 موضوع
إعجاب: 11
تلقى 55 إعجاب على 9 مشاركة
 
كنت أريد ان اتابع معك الدرس لكننى لا أحب البرمجه بالدوت نت

سلمت يداك أخى

  #8  
24-01-2015, 09:20 PM
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,990
تلقى دعوات الى: 2793 موضوع
إعجاب: 952
تلقى 2,448 إعجاب على 806 مشاركة
 
المشاركة الأصلية كتبت بواسطة Abo Yassen 
تسلم ايدك ابو فهمى حبيبى اعمالك كلها رائعه
مرورك دوما يسعدني صديقي واخي أبو ياسين

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

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

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

  #10  
25-01-2015, 09:43 PM
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,990
تلقى دعوات الى: 2793 موضوع
إعجاب: 952
تلقى 2,448 إعجاب على 806 مشاركة
 
المشاركة الأصلية كتبت بواسطة x300 
شرح رائع بارك الله فيك
حياك الله اخي ... شكرا لمرورك

  #11  
31-01-2015, 08:46 PM
عضوية الشرف
رقم العضوية: 317299
تاريخ التسجيل: Dec 2009
الإقامة: Egypt
المشاركات: 2,498
تلقى دعوات الى: 2583 موضوع
إعجاب: 1,191
تلقى 860 إعجاب على 242 مشاركة
 

بارك الله فيك وفى علمك يا ابو فهمى
وجزاك الله كل خير

  #12  
31-01-2015, 11:52 PM
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,990
تلقى دعوات الى: 2793 موضوع
إعجاب: 952
تلقى 2,448 إعجاب على 806 مشاركة
 
المشاركة الأصلية كتبت بواسطة Mo7amed Abdo 

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

  #13  
01-02-2015, 08:06 PM
عضو ماسـي
رقم العضوية: 278379
تاريخ التسجيل: May 2009
المشاركات: 1,415
تلقى دعوات الى: 17 موضوع
إعجاب: 19
تلقى 192 إعجاب على 60 مشاركة
 

  #14  
03-02-2015, 06:47 PM
عضو محترف
رقم العضوية: 447608
تاريخ التسجيل: Jan 2014
المشاركات: 596
تلقى دعوات الى: 8 موضوع
إعجاب: 42
تلقى 95 إعجاب على 49 مشاركة
 
ماذا عنك يا ابو فهمى

تستخدم ايهما

1-برنامجك

2-idm

3-برنامج اخر

  #15  
04-02-2015, 12:21 AM
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,990
تلقى دعوات الى: 2793 موضوع
إعجاب: 952
تلقى 2,448 إعجاب على 806 مشاركة
 
المشاركة الأصلية كتبت بواسطة احمد السيد123 
ماذا عنك يا ابو فهمى

تستخدم ايهما

1-برنامجك

2-idm

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




الساعة الآن 11:38 PM.


Powered by vBulletin® Version
Copyright ©2000 - 2018, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.