تقييم الموضوع :
  • 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]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 6 197 31-12-16, 09:23 PM
آخر رد: Basil Abdallah
  [نقاش] هل تعلم هذا عن Select Case ali.alfoly 3 182 30-12-16, 07:00 PM
آخر رد: Basil Abdallah
  هل تعلم؟ Aly El-Haddad 7 1,361 17-08-15, 01:59 AM
آخر رد: عبد الله
  [VB.NET] العمل على تحديث الداتا غريد فيو العواد الصغير 0 437 27-07-15, 10:19 PM
آخر رد: العواد الصغير
  بشرى لكل من يريد تعلم البرمجة بالفيجوال بيسك دوت نت arbtech 8 1,722 21-08-13, 11:32 PM
آخر رد: arbtech
  تعلم أستخدام My.Settings لحفظ التغييرات عند الإغلاق Aly El-Haddad 15 2,832 13-06-13, 05:32 PM
آخر رد: ابراهيم
  تعلم إضافة ألعاب الفلاش و مقاطع الفيديو الفلاشية إلى برنامجك Aly El-Haddad 1 805 13-04-13, 06:46 PM
آخر رد: Sajad
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,102 16-12-12, 06:25 PM
آخر رد: 3amo
  تعلم كيف تصنع برنامج Notepad او مايسمى بالمفكرة AHMED`AMIN 8 2,090 10-10-12, 02:45 PM
آخر رد: مبرمج أوتار
  للمبتدئين ---&gt;&gt; تعلم ( Select Case ) بالشرح مع المثال RaggiTech 0 1,463 10-10-12, 09:17 AM
آخر رد: RaggiTech

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


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