تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن المساعدة في عمل Update للبرنامج
#1
السلام عليكم..
وجدت مشروع عمل تحديث البرنامج ولكن عند تطبيقه على برنامجي تظهر عند هذا السطر
PHP كود :
Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream()) 
المشكلة عند تنفيذالبرنامج تظهر رسالة الخطأ التالية .... The remote server returned an error: (406) Not Acceptable.
و هذا كود البرنامج كاملا
PHP كود :
Imports System.Net
Imports System
.IO

Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        CheckL
.Text "جاري الفحص..."

        'رابط الملف الموجود فيه رقم اخر اصدار
        Dim VersionURL As String = " http://moddec.eb2a.com/myprog/UpdateVersion.txt"

        '
قراءة الملف الذي يوجد به رقم اخر اصدار
        Dim Request 
As HttpWebRequest WebRequest.Create(VersionURL)
        
' قراءة الملف
        Dim Reader As StreamReader = New StreamReader(Request.GetResponse.GetResponseStream())

        '
اخر تحديث لبرنامج
        Dim NewVersion 
As String Reader.ReadToEnd()

        
Reader.Dispose()



        
'-----فحص اذا كان هناك تحديث جديد ام لا------

        If Trim(NewVersion) > Trim(Application.ProductVersion) Then
            '
-الدالة Application.ProductVersion 
            
'-هي التي يوجد بها رقم الاصدار الحالي لبرنامج
            '
-وهذا الكود يقارن رقم احدث اصدار موجود بالانترنت بالرقم الاصدار الحالي بالبرنامج



            
'----------هناك اصدار جديد-------------

            '
رابط الملف الموجود فيه رابط تحميل اخر اصدار من البرنامج
            Dim UpdateLink 
As String " http://moddec.eb2a.com/myprog/UpdateLink.txt"

            
CheckL.Text "هناك اصدار جديد"

            ' قراءة الملف الذي يوجد به رابط التحميل
            Dim LinkRequest As HttpWebRequest = WebRequest.Create(UpdateLink)
            Dim LinkReader As StreamReader = New StreamReader(LinkRequest.GetResponse.GetResponseStream())
            Dim DownNewVersion As String = LinkReader.ReadToEnd

            LinkReader.Dispose()

            '
نوع الملف الموجود في الرابط
            Dim FileFormate 
As String Strings.Right(DownNewVersion4)

            
'فحص الرابط اذا كان يوجد به نوع الملف ام لا. لو لا يوجد به نوع الملف نجعل نوع الملف الذي سنحملة كملف تنفيذي (exe)
            If Strings.Left(FileFormate, 1) <> "." Then FileFormate = ".exe"

            '
هذه للعب بالفورمات حيث ان معظم المواقع لا تقبل الملفات التنفيزية
            
If FileFormate ".noo" Then FileFormate ".exe"

            ' تحميل الملف الجديد

            CheckL.Text = "جاري التحميل"

            My.Computer.Network.DownloadFile(DownNewVersion, Application.StartupPath & "\NewUpdate" & NewVersion & FileFormate, "", "", True, 100, True)

            CheckL.Text = "تم تحميل التحديث بنجاح"

            MsgBox("تم تحميل التحديث بنجاح", MsgBoxStyle.Information)

            ' 
فتح الملف الجديد
            System
.Diagnostics.Process.Start(Application.StartupPath "\NewUpdate" NewVersion FileFormate)


            
End ' الخروج

        Else '
-------لا يوجد اي اصدارات جديدة-----------

            
CheckL.Text "لا يوجد اي اصدارات جديدة"

            
MsgBox("لا يوجد اي اصدارات جديدة"MsgBoxStyle.Information)
        
End If

    
End Sub


    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

    End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة:
#2


المثال مرفق اتمنى يعجبك
فقط سجل لدى الموقع drivehq.com
وقم بتعديل اسم المستخدم في المثال accountusername
الى اسم المستخدم الخاص بك
وكذلك كلمة المرور accountpassword غيرها الى كلمة المرور الخاصة بك
وتاكد من اسماء الملفات الموجودة بمجلد Debug يعني عدل ما يلزم ليعمل المثال معك
انا الان اعمل عليه حاليا وممتاز
----------
اعذرني لعدم التعديل على الكود الموجود بالموضوع


الملفات المرفقة
.zip   Forum_updater.zip (الحجم : 50.77 ك ب / التحميلات : 102)
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
مشكور اخي سعود على مشاركتك ولي عودة بعد التجربة ان شاء الله
الرد }}}}
تم الشكر بواسطة:
#4
المهندس علي كتب :مشكور اخي سعود على مشاركتك ولي عودة بعد التجربة ان شاء الله
العفو ... وانا بانتظاركSmile
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يرجى المساعدة طلب كود hikmat 1 60 23-09-17, 07:35 PM
آخر رد: khodor1985
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 34 21-09-17, 06:34 PM
آخر رد: D-Z
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 89 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 125 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  عمل تحديث تلقائي للبرنامج عبدالرحمن المكاوي 4 103 19-09-17, 10:53 PM
آخر رد: محمدصلاح
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 97 19-09-17, 01:49 PM
آخر رد: أبو نوره
  [VB.NET] الرجاء المساعدة cheurfa 1 80 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  ممكن طريقه طباعه محتويات داتاجريد فيو من خلال الكريستال ريبورت hashish2003 7 243 11-09-17, 10:05 PM
آخر رد: hashish2003
Photo ممكن الرد ضرورى aliomar333 2 86 11-09-17, 09:55 PM
آخر رد: aliomar333
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 56 10-09-17, 12:29 PM
آخر رد: سعود الشامان

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


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