[RaggiTech]

كاتب الموضوع : 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]

تحميل المثال
http://www.mediafire.com/download.php?hnnneyz1lro

[/SIZE][/SIZE][/SIZE][/SIZE][/INDENT]

وفي الختام


اتمني ان تكونوا استفدوا من الموضوع
تحياتي

[/b]