03-10-12, 09:46 AM
كاتب الموضوع : 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
من غير اي حروف فقط ارقام
بعد الانتهاء من ذلك ناتي لاهم شئ. الاكواد
[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][/SIZE]
[/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]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]
هذا لمعرفة نوع الملف (ملف التحديث)
[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]
[/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]
[/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]اتمني ان تكونوا استفدوا من الموضوع
تحياتي