19-04-20, 10:54 PM
(آخر تعديل لهذه المشاركة : 19-04-20, 10:56 PM {2} بواسطة haitemaouati.)
السلام عليكم ورحمة الله تعلى وبركاته
أنا جديد في المنتدى ولذي مشروع أعمل عليه مند مدة وأريد إضافة خاصية التحديث لهذا المشروع وأحتاج إلى المساعدة في كتابة الكود
سوف تطبق الفكرة بستخدام موقع PasteBin الذي من خلاله يمكنك نشر ملف نصي وعرضه من خلال رابط والمميز في هذا الموقع والأمر الذي سوف يسمح لنا
بتطبيق الفكرة هو أنه يمكنك التعديل على المحتوى الذي بداخل الملف المنشور بدون أن يتغيير الرابط
يوجد ملف نصي بسم version.txt على موقع PasteBin يحتوي على رقم الإصدار الجديد للبرنامج
يوجد ملف نصي ثاني بسم url فيه رابط تحميل الإصدار الجديد
الفكرة
أنو نكتب كود تروح على رابط الملف version.txt تسحب المحتوى الذي بداخله وتضعه في متغيير NewVersion
ثم نقوم بإنشاء متغيير بسم CurrentVersion في الإصدار الحالي للبرنامج
ثم نقوم بالمقارنة بين الإصدار الذي بداخل المتغيير NewVersion مع الإصدار الحالي CurrentVersion
إذا كان الإصدار NewVersion يساوي CurrentVersion يطبع رسالة لايوجد تحديث جديد
وإذا NewVersion أكبر من CurrentVersion يطبع رسالة أنه يوجد تحديث جديد ثم يذهب لقراءة الرابط الذي يحمل اسم url والذي يحتوي على رابط تحميل الاصدار الجديد
ويضع الرابط في متغيير ثم يتم تحميل الملف الذي بداخل المتغيير الذي يحمل رابط الإصدار الجديد
كتبت هذا الكود ولكنه يحتاج إلى أن يتم إكمال أرجو من أصحاب الخبرة والناس التي فهمت الموضوغ إكمال الكود وشكرا لكم
Dim txt As String = "https://pastebin.com/raw/316wFpv4"
Dim WC As WebClient = New WebClient()
Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
Dim NewVersion As String = Read.ReadToEnd
Dim CurrentVersion As Version
CurrentVersion = Assembly.GetExecutingAssembly().GetName().Version
Dim WC As WebClient = New WebClient()
Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
Dim NewVersion As String = Read.ReadToEnd
Dim CurrentVersion As Version
CurrentVersion = Assembly.GetExecutingAssembly().GetName().Version