Bonjours j'ai un probleme :voila donc voici mon code :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("veuillez fermer minecraft et attendre le message de confirmation de la mise a jour", MsgBoxStyle.Exclamation)
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\chainversion.txt") = True Then
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\chainversion.txt")
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
My.Computer.Network.DownloadFile("http://Chain.olympe-network.com/launcher/chainversion.txt",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\chainversion.txt")
My.Computer.Network.DownloadFile("http://Chain.olympe-network.com/launcher/minecraft.jar",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\chainversion.txt") = False Then
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("http://Chain.olympe-network.com/launcher/chainversion.txt",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\chainversion.txt")
My.Computer.Network.DownloadFile("http://Chain.olympe-network.com/launcher/minecraft.jar",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe",Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
End If
MsgBox("Mise a jour terminée", MsgBoxStyle.Information)
End Sub
End Class
et il me dit fin d'instruction attendut donc ne marche pas pouriez vous m'expliqué mes erreur ou me corriger le code svp ? merci d'avence
Si tu regardes bien, tu as une parenthèse en trop dans chaque ligne qui commence par My.Computer.Network.DownloadFile.
Sinon, mlescaudron, il ne manquais plus que l'indentation et c'était parfait.
fin d'instruction attendu launcher
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.