Bonjour jai un petit probleme depuis plusieur jour regarder 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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
Imports System.Net
 
Public Class Form1
    Dim WithEvents WC As New WebClient
    Dim WithEvents WD As New WebClient
    Dim WithEvents WE As New WebClient
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt") = True Then
            'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
            My.Computer.Network.DownloadFile("http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
            Dim vn As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
            Dim vni As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
            Dim nk As String
            Dim nki As String
            nk = vn.ReadLine
            nki = vni.ReadLine
            vn.Close()
            vni.Close()
            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
            If nk < nki Then
                MsgBox("Une mise a jour est disponible.", MsgBoxStyle.Information)
                Button2.PerformClick()
            End If
        End If
        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt") = False Then
            'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
            My.Computer.Network.DownloadFile("http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
            MsgBox("Installation des fichiers necessaire au fonctionnement.", MsgBoxStyle.Information)
            Button2.PerformClick()
        End If
        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe") = False Then
            MsgBox("Installation des fichiers necessaire au fonctionnement.", MsgBoxStyle.Information)
            Button2.PerformClick()
        End If
        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
            CheckBox1.Checked = True
            Dim sr As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
            TextBox1.Text = sr.ReadLine
            TextBox2.Text = sr.ReadLine
            sr.Close()
        End If
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
            End If
            Dim sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
            sw.WriteLine(TextBox1.Text)
            sw.WriteLine(TextBox2.Text)
            sw.Close()
            'Remplacer "Votre Serveur" par l'ip:port de votre serveur (par exemple " 111.111.111.111:8888" ) Surtout Laissez L'espace entre " et l'adresse ip  
            Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " kerta.dedicraft.fr")
        Else
            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
            End If
            'Remplacer "Votre Serveur" par l'ip:port de votre serveur (par exemple " 111.111.111.111:8888" ) Surtout Laissez L'espace entre " et l'adresse ip  
            Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " kerta.dedicraft.fr")
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Pensez a fermer Minecraft et attendez le message de confirmation!", MsgBoxStyle.Information)
        Button1.Enabled = False
        Button2.Enabled = False
        'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
        WC.DownloadFileAsync(New Uri("http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/minecraft.jar"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
 
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
 
    End Sub
 
    Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
 
    End Sub
    Private Sub WebBrowser2_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser2.Navigating
        'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
        If (e.Url.ToString() = "http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/News.htm") Then
 
        Else
            'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
            If (e.Url.ToString() = "http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/Minecraft Update News_files/iframe.htm") Then
 
            Else
                e.Cancel = True
                System.Diagnostics.Process.Start(e.Url.ToString())
            End If
        End If
 
    End Sub
 
    Private Sub Label3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Value = 4 * (e.ProgressPercentage) / 6
    End Sub
    Private Sub WC_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
        'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
        WD.DownloadFileAsync(New Uri("http://ftp://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
    End Sub
    Private Sub WD_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WD.DownloadProgressChanged
        ProgressBar1.Value = (400 / 6) + (e.ProgressPercentage) / 6
    End Sub
    Private Sub WD_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WD.DownloadFileCompleted
        WE.DownloadFileAsync(New Uri("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
    End Sub
    Private Sub WE_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WE.DownloadProgressChanged
        ProgressBar1.Value = (500 / 6) + (e.ProgressPercentage) / 6
    End Sub
    Private Sub WE_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WE.DownloadFileCompleted
        Button1.Enabled = True
        Button2.Enabled = True
        MsgBox("Mise a jour Terminée!", MsgBoxStyle.Information)
    End Sub
End Class
J'ai une erreur sur la ligne 70 et je sais vraiment pas il sagit de quoi merci beaucoup si vous pouvez m'aider.