منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

أنا جديد في المنتدى ولذي مشروع أعمل عليه مند مدة وأريد إضافة خاصية التحديث لهذا المشروع وأحتاج إلى المساعدة في كتابة الكود

سوف تطبق الفكرة بستخدام موقع 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