تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هناك مشكه في كود يطلب تحديث في كل مره
#1
هناك مشكه في كود انه عند تشغيل البرنامج اكثر من مره سوف يطلب تحديث في كل مره وهذا عبيب برنامج , إذا تم تحديث الاصدار لا تظهر الرساله مره اخرى عن وجود تحديث جديده و في الواقع لا يوجد تحديث جديد .

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

انا اريد فقط اظهار او اشعار عن وجود تحديثات الجديده فقط
الرد }}}}
تم الشكر بواسطة:
#2
كتبت رايي في موضوع هنا وهو الافضل وضع رقم للاصدار فقط ويقارن بالحالي
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
كود :
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("الرابط")

الكود ناقص رابط الملف الموجود على الاستظافة ليقراء رقم الاصدار
الرد }}}}
تم الشكر بواسطة:
#4
كود :
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
الرد }}}}
تم الشكر بواسطة:
#5
تسلمون يااخوان ... فعلا الان كل شي تمام
الله يعطيكم العافية
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 68 27-11-16, 03:56 PM
آخر رد: Adrees
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 142 06-11-16, 07:51 PM
آخر رد: العواد الصغير
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 122 24-10-16, 06:45 AM
آخر رد: thevirus
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 154 16-10-16, 09:48 AM
آخر رد: Asmaa adel
  [VB.NET] هل هناك كود يشبه this في VB.NET sniperjawadino 6 171 02-09-16, 09:51 PM
آخر رد: khodor1985
  [VB.NET] اريد تحديث برنامجي من عن بعد medoddd 1 151 27-08-16, 12:21 PM
آخر رد: سعود
  تحديث البيانات في الكريستال ريبورت محمد خلف زكي 0 103 06-08-16, 10:16 PM
آخر رد: محمد خلف زكي
  [VB.NET] حدثت مشكلة اثناء تحديث فيجوال بيسك 0theghost0 4 363 13-04-16, 07:21 AM
آخر رد: 0theghost0
  [VB.NET] مشكلة فى تحديث حقل اداة DataGridView الماجيك مسعد 18 574 09-04-16, 06:31 PM
آخر رد: الماجيك مسعد
  ارجو المساعدة بخصوص تحديث جدول بالبيانات عن طريق جدول اخر رامي الامير 3 199 02-04-16, 02:00 AM
آخر رد: نور الدين وليد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم