منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - هناك مشكه في كود يطلب تحديث في كل مره

هناك مشكه في كود انه عند تشغيل البرنامج اكثر من مره سوف يطلب تحديث في كل مره وهذا عبيب برنامج , إذا تم تحديث الاصدار لا تظهر الرساله مره اخرى عن وجود تحديث جديده و في الواقع لا يوجد تحديث جديد .

كود :

Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("")

        Dim respnos As System.Net.HttpWebResponse = regust.GetResponse

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream)

        Dim virsion As String = sr.ReadToEnd

        Dim update As String = Application.ProductVersion

        If virsion.Contains(update) Then

        Else

            AskUpdate.Show()

            'MsgBox("Available for you download the new version")

        End If

انا اريد فقط اظهار او اشعار عن وجود تحديثات الجديده فقط

كتبت رايي في موضوع هنا وهو الافضل وضع رقم للاصدار فقط ويقارن بالحالي

كود :

Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("الرابط")

الكود ناقص رابط الملف الموجود على الاستظافة ليقراء رقم الاصدار

كود :

Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://tariq2812.com/uploads/1/up.txt")

        Dim respnos As System.Net.HttpWebResponse = regust.GetResponse

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream)

        Dim virsion As String = sr.ReadToEnd

        Dim update As String = Application.ProductVersion

        If CInt(virsion.Replace(".", "")) > CInt(update.Replace(".", "")) Then

            MsgBox("يوجد نسخة حديثة")

        Else

            MsgBox("النسخة محدثة")

        End If

تسلمون يااخوان ... فعلا الان كل شي تمام
الله يعطيكم العافية

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

W XP 2003

سعود

tariq2812

tariq2812

W XP 2003