Discussion :

[MADA BLACK]

Salut tout le monde
SVP gentelman .. si vous pouvez m'aider a corriger ce code pour essayer de faire Update a mon programme
J'ai vu plusieurs videos et j'ai j'ai essaye d'appliquer ce que j'ai vu mais malheureusement j'ai eu cet erreur .. malgres que les liens sont bien corrects

Merci beaucoup d'avance pour n'importe quelle suggestion
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Class Form1
    Public Sub CheckForUpdates()
        If ProgressBar1.Value = 100 Then
            Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://dl.dropbox.com/s/extdecighawem8m/Version.txt?dl=0")
            Dim response As System.Net.HttpWebResponse = request.GetResponse()
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
            Dim newestversion As String = sr.ReadToEnd()
            Dim currentversion As String = Application.ProductVersion
            If newestversion.Contains(currentversion) Then
                Button1.Text = ("You are up todate!")
                Label2.Text = ("You may now close this dialog")
            Else
                Button1.Text = ("Downloading update!")
                WebBrowser1.Navigate("http://dl.dropbox.com/s/5e1fkjdq5ki87v7/BITTORENT.exe?dl=0")
                Label2.Text = ("You may now close this dialog")
            End If
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button1.Text = "Checking for updates..."
        Timer1.Start()
        Label1.Text = ProgressBar1.Value
        CheckForUpdates()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(5)
        Label1.Text = ProgressBar1.Value
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            If ProgressBar1.Value = 100 Then
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://dl.dropbox.com/s/extdecighawem8z/Version.txt?dl=0")
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                Dim newestversion As String = sr.ReadToEnd()
                Dim currentversion As String = Application.ProductVersion
                If newestversion.Contains(currentversion) Then
                    Button1.Text = ("You are up todate!")
                    Label2.Text = ("You may now close this dialog")
                Else
                    Button1.Text = ("Downloading update!")
                    WebBrowser1.Navigate("http://dl.dropbox.com/s/5e1fkjdq5ki87v7/BITTORENT.exe?dl=0")
                    Label2.Text = ("You may now close this dialog")
                End If
            End If
        End If
    End Sub
End Class

NB : Fichier Text ( 1.0.0.1 )
Amicalement
MADA