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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هناك مشكه في كود يطلب تحديث في كل مره (/showthread.php?tid=7046)



هناك مشكه في كود يطلب تحديث في كل مره - W XP 2003 - 19-11-12

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

كود :
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

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


هناك مشكه في كود يطلب تحديث في كل مره - سعود - 19-11-12

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


هناك مشكه في كود يطلب تحديث في كل مره - tariq2812 - 19-11-12

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

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


هناك مشكه في كود يطلب تحديث في كل مره - tariq2812 - 19-11-12

كود :
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 - 20-11-12

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