تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعلم عمل تحديث لبرنامجك
#1
كاتب الموضوع : MrBassam


[b]بسم الله الرحمن الرحيم



[SIZE=4]كاتب الموضوع: ahmed z s[/SIZE]



السلام عليكم ورحمة الله وبركاتة




في هذا الدرس سنتعلم كيفية عمل تحديث لبرامجنا بافضل واسهل الطرق



محتويات الموضوع
عمل موقع مجاني
شرح طريقة تحديث البرنامج
تحميل مثال علي التحديث (مشروح بالتفصيل)



عمل موقع مجاني


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



موقع 50webs


صراحتا وبلا مبالغة افضل موقع للاستضافة المجانية



www.50webs.com



صورة للموقع









اتبع الخطوات التالية لتسجيل بالموقع


في الصفحة الرئيسة اضغط Sign Up










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








بعد الانتهاء من الخطوات
اذهب الي بريدك الالكتروني وافتح الرسالة الجديده التي ارسلت من 50webs وستجد فيها الباسورد







الان يمكنك تغير الباسورد الخاص بك اذا اردت (اضغط علي Change Account Password)
اضغط علي File Manager







بعد عمل ذلك اضغط علي موقعك
ثم اصنع مجلد جديد باسم برنامج كما في الصور




بعد ذلك كم بصنع ملفين


UpdateLink.txt
ضع رابط التحديث به ويستحسن ان يكون رابط مباشر


UpdateVersion.txt
ضع فيه رقم اصدار لبرنامج مثلا 2.1
من غير اي حروف فقط ارقام







بعد الانتهاء من ذلك ناتي لاهم شئ. الاكواد
[/b]
[INDENT]
[SIZE=2][SIZE=2][SIZE=2][b]ضع هذا الكود في قسم التصريحات
اقتباس:
[SIZE=2][SIZE=2]Imports[/SIZE] System.Net

[SIZE=2]Imports[/SIZE] System.IO
[/SIZE]
[/SIZE][/SIZE][/SIZE]



هذا الكود لقراءة ما يوجد في الملف UpdateVersion.txt (رقم اخر اصدار)
اقتباس:
[SIZE=2][SIZE=2][SIZE=2][SIZE=2][SIZE=2]Dim[/SIZE] VersionURL [SIZE=2]As[/SIZE][SIZE=2]String[/SIZE] = [SIZE=2]"http://ahmedzs.50webs.com/MyProgram/UpdateVersion.txt"
[/SIZE]
[/SIZE]
[SIZE=2]Dim[/SIZE] Request [SIZE=2]As[/SIZE] HttpWebRequest = WebRequest.Create(VersionURL)

[SIZE=2]Dim[/SIZE] Reader [SIZE=2]As[/SIZE] StreamReader = [SIZE=2]New[/SIZE] StreamReader(Request.GetResponse.GetResponseStream ())

[SIZE=2]Dim[/SIZE] NewVersion [SIZE=2]As[/SIZE][SIZE=2]String[/SIZE] = Reader.ReadToEnd()
Reader.Dispose()




وهذا لمقارنة الاصدار الموجود علي الانترنت بالاصدار الحالي لبرنامج
اقتباس:
[SIZE=2][SIZE=2][SIZE=2]If[/SIZE] Trim(NewVersion) > Trim(Application.ProductVersion) [SIZE=2]Then[/SIZE]
[/SIZE]
[/SIZE]
[SIZE=2]
[/SIZE]



لو الاصدار الموجود علي الانترنت اكبر من اصدار البرنامج
ملاحظة البرنامج يعتمد علي اصدار البرنامج الذي موجود فيMy Project >>Application >> Assembly Information >> File Version
(Application.ProductVersion)


الكود لقراءة الملف UpdateLink.txt (الموجود به رابط الاصدار الجديد)
اقتباس:
[SIZE=2][SIZE=2][SIZE=2]Dim[/SIZE] UpdateLink [SIZE=2]As[/SIZE][SIZE=2]String[/SIZE] = [SIZE=2]"http://ahmedzs.50webs.com/MyProgram/UpdateLink.txt"
[/SIZE]CheckL.Text = [SIZE=2]" "[/SIZE]
[SIZE=2]Dim[/SIZE] LinkRequest [SIZE=2]As[/SIZE] HttpWebRequest = WebRequest.Create(UpdateLink)
[SIZE=2]Dim[/SIZE] LinkReader [SIZE=2]As[/SIZE] StreamReader = [SIZE=2]New[/SIZE]StreamReader(LinkRequest.GetResponse.GetResponseSt ream())
[SIZE=2]Dim[/SIZE] DownNewVersion [SIZE=2]As[/SIZE][SIZE=2]String[/SIZE] = LinkReader.ReadToEnd
LinkReader.Dispose()
[/SIZE]
[/SIZE]
[SIZE=2]
[/SIZE]

هذا لمعرفة نوع الملف (ملف التحديث)
[SIZE=2]اقتباس:
[SIZE=2][SIZE=2]Dim[/SIZE] FileFormate [SIZE=2]As[/SIZE][SIZE=2]String[/SIZE] = Strings.Right(DownNewVersion, 4)

[/SIZE]


[SIZE=2]اذا لم يكن نوع الملف موجود بالرابط اجعل نوع الملف exe
[/SIZE]اقتباس:
[SIZE=2][SIZE=2][SIZE=2]If[/SIZE] Strings.Left(FileFormate, 1) <> [SIZE=2]"."[/SIZE][SIZE=2]Then[/SIZE] FileFormate = [SIZE=2]".exe"[/SIZE]
[/SIZE]
[/SIZE]
[SIZE=2]
[/SIZE]

تحميل الملف
اقتباس:
[SIZE=2][SIZE=2][SIZE=2]My[/SIZE].Computer.Network.DownloadFile(DownNewVersion, Application.StartupPath & [SIZE=2]"\NewUpdate"[/SIZE]& NewVersion & FileFormate, [SIZE=2]""[/SIZE], [SIZE=2]""[/SIZE], [SIZE=2]True[/SIZE], 100, [SIZE=2]True[/SIZE])
[/SIZE]
[/SIZE]
[SIZE=2]
[/SIZE]
[SIZE=2]فتح الملف
[/SIZE]اقتباس:
[SIZE=2]System.Diagnostics.Process.Start(Application.Start upPath & [SIZE=2]"\NewUpdate"[/SIZE] & NewVersion & FileFormate)
[/SIZE]



[/SIZE]
[/SIZE][/SIZE][/SIZE][/INDENT]
وفي الختام


اتمني ان تكونوا استفدوا من الموضوع
تحياتي
[/b]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل تعلم؟ Aly El-Haddad 7 1,259 17-08-15, 01:59 AM
آخر رد: عبد الله
  [VB.NET] العمل على تحديث الداتا غريد فيو العواد الصغير 0 374 27-07-15, 10:19 PM
آخر رد: العواد الصغير
  بشرى لكل من يريد تعلم البرمجة بالفيجوال بيسك دوت نت arbtech 8 1,595 21-08-13, 11:32 PM
آخر رد: arbtech
  تعلم أستخدام My.Settings لحفظ التغييرات عند الإغلاق Aly El-Haddad 15 2,719 13-06-13, 05:32 PM
آخر رد: ابراهيم
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 762 13-04-13, 06:46 PM
آخر رد: Sajad
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,022 16-12-12, 06:25 PM
آخر رد: 3amo
  تعلم كيف تصنع برنامج Notepad او مايسمى بالمفكرة AHMED`AMIN 8 1,884 10-10-12, 02:45 PM
آخر رد: مبرمج أوتار
  للمبتدئين ---&gt;&gt; تعلم ( Select Case ) بالشرح مع المثال RaggiTech 0 1,313 10-10-12, 09:17 AM
آخر رد: RaggiTech
  هل تريد تعلم السي شارب -اذن هذا هو المدخل- RaggiTech 0 424 05-10-12, 02:53 AM
آخر رد: RaggiTech
  درس- تعلم كيف تصنع برنامج ftp بالتفصيل + مثال RaggiTech 0 835 03-10-12, 02:14 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم