Partage
  • Partager sur Facebook
  • Partager sur Twitter

fin d'instruction attendu launcher

    17 mars 2012 à 17:01:43

    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
    • Partager sur Facebook
    • Partager sur Twitter
    Anonyme
      21 mars 2012 à 17:00:35

      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. :p
      • Partager sur Facebook
      • Partager sur Twitter

      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.
      • Editeur
      • Markdown