[W XP 2003]

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

كود :

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

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

[سعود]

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

[tariq2812]

كود :

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

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

[tariq2812]

كود :

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]

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