[محمد]

W XP 2003 كتب :عملت الى قلت ولكن في مشكلة :

SaLoOoMX كتب :قم بتغيير كلة update الى ملفك المرفوع

تفضل اخى جرب هذا الكود يعمل معى

كود :

Try
            Dim descStream As New WebClient
            AddHandler descStream.DownloadFileCompleted, AddressOf FillTextBox
            descStream.DownloadFileAsync(New System.Uri("http://Web nme.com/Update.txt"), My.Computer.FileSystem.GetParentPath(My.Computer.FileSystem.SpecialDirectories.MyDocuments) + "\رثق_Config\desc.txt")
        Catch ex As Exception
            RichTextBox1.Text = "Unable to get new version description."

        End Try
        Dim web As New WebClient
        Dim update As String = web.DownloadString("http://Name Web.com/Update.txt")
        If update.Contains(Application.ProductVersion) Then
            Application.Exit()
        Else
            Process.Start = ("http://Name Web.com/[File Name].rar")
            Label5.Text = "A new update is available. DM and SD version " + "1.0.0.1" + " is ready For Download."

يكون الكود هكذا

كود :

If virsion.Contains(UpdateVersion) Then

        Else
            MsgBox("هناك نسخه جديده هل تود تحديثها !!")
        End If

ملاحضه



اذا رفعت الملف النصي يجب ان يكون مكتوب بداخله رقم النسخه وتكون 1.0.0.0

اذا اردت عمل نسخه جديده للبرنامج قم بتغغير الرقم الى 1.0.0.1

وفقك الله

شكررآ أخى جزاك الله كل خير