Createur de serveur minecraft (updated) v1.2.

Soyez le premier à donner votre avis sur cette source.

Vue 6 043 fois - Téléchargée 617 fois

Description

Bonjour a tous et a toute , je fais un post sur ma source car j'ai ajouté de nouvelles fonction (ayant que cela de fonctionnait pas sur Win7) donc voila ^^
Je m'appelle Nicolas j'ai 12ans et j'apprend le vb.net , je vous présente aujourd'hui un programme qui permet de créer des serveurs craftbukkit (équivalent aux serveur minecraft) en toute simplicité !
Voilà ! J'ai ajouté les commentaires sur le code !

Source / Exemple :


Imports System.IO
Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form3.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Form3.RadioButton1.Checked = True Then
            Label3.Text = (SystemInformation.UserName + "\Bureau\CraftBukkitServer") 'récupération du nom d'utilisateur de la session + chemin vers le dossier du serveur
            TextBox3.Text = (WinXP.Text + (Label3.Text)) 'indique le chemin complet vers la destination des fichiers

        ElseIf Form3.RadioButton2.Checked = True Then
            Label3.Text = (SystemInformation.UserName + "\Desktop\CraftBukkitServer") 'récupération du nom d'utilisateur de la session + chemin vers le dossier du serveur
            TextBox3.Text = (Win7.Text + (Label3.Text)) 'indique le chemin complet vers la destination des fichiers

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.Directory.CreateDirectory(TextBox3.Text) 'création du dossier CraftBukkitServer
        System.IO.Directory.CreateDirectory(TextBox3.Text + "\plugins") 'création du dossier pour les plugins
        '
        '
        GroupBox1.Enabled = False 'groupbox grisée , donc aucune modifications possibles 
        GroupBox2.Enabled = False 'idem
        logs.Text = "Téléchargement de CraftBukkit.jar ..." 'écriture dans la textbox
        WebClient1.DownloadFileAsync(New Uri(TextBox1.Text), TextBox3.Text + "\CraftBukkit.jar") 'téléchargement du premier fichier , destination du fichier 
        '
        '
        WebClient2.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/Essentials.jar"), TextBox3.Text + "\plugins\Essentials.jar") 'lancement d'un 2ème téléchargement
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin EssentialsAntiBuild ...") 'retour a la ligne puis ecriture
        '
        '
        WebClient3.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/EssentialsAntiBuild.jar"), TextBox3.Text + "\plugins\EssentialsAntiBuild.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin EssentialsProtect ...")
        '
        '
        WebClient4.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/EssentialsProtect.jar"), TextBox3.Text + "\plugins\EssentialsProtect.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin EssentialsSpawn.jar ...")
        '
        '
        WebClient5.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/EssentialsSpawn.jar"), TextBox3.Text + "\plugins\EssentialsSpawn.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin PermissionsBukkit-2.0.jar ...")
        '
        '
        WebClient6.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/PermissionsBukkit-2.0.jar"), TextBox3.Text + "plugins\PermissionsBukkit-2.0.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin WorldGuard ...")
        '
        '
        WebClient7.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/WorldGuard.jar"), TextBox3.Text + "\plugins\WorldGuard.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du plugin WorldEdit ...")
        '
        '
        WebClient8.DownloadFileAsync(New Uri("http://dl.dropbox.com/u/102556229/WorldEdit.jar"), TextBox3.Text + "\plugins\WorldEdit.jar")
        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement de no-ip !")
        '
        '
        WebClient9.DownloadFileAsync(New Uri("http://www.noip.com/client/DUCSetup_v4_0_1.exe"), TextBox3.Text + "\no-ip.exe")

    End Sub
    Sub writeFile()
        Dim sw As New StreamWriter(TextBox3.Text + "\Launch.bat") 'ouverture du fichier 

        sw.Write(lab12.Text) 'ecriture en respectant les retour a la ligne du label

        sw.Close() 'fermeture du fichier
    End Sub
    Private Sub WebClient1_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
        logs.Text = (logs.Text & Environment.NewLine & "CraftBukkit.jar téléchargé !") 'ecriture dans le log
        ProgressBar1.Value = 0 'remise a zéro de la progressbar
        writeFile() 'ecriture
        MsgBox("Votre serveur a été crée avec succès ! Pour l'ouvrir , aller dans le dossier CraftBukkitServer qui se trouve sur votre bureau et executer le fichier ''launch.bat'' ") 'affichage d'une messagebox
        Form2.Show() 'ouverture de la form2
        Shell(TextBox3.Text + "\no-ip.exe") 'ouverture du setup de no-ip
        GroupBox1.Enabled = True 'groupbox activée
        GroupBox2.Enabled = True 'idem
    End Sub

    Private Sub WebClient1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage 'la progressbar avance en fonction de l'avancement du téléchargement
        Label6.Text = e.ProgressPercentage.ToString + "%" 'le label indique le pourcentage
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show() 'ouverture de la form2
        Me.Hide() 'la form actuelle n'est plus visible , mais encore active
    End Sub
End Class

Imports System.IO

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RadioButton3.Checked = True 'radiobutton3 automatiquement sélectionné par defaut

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton3.Checked = True Then 'si radiobutton 3 est choisi alors..
            writeFile() 'ecriture
            MsgBox("Le bug a été fixé ! Si vous rencontrer encore un problème , n'hésitez pas a m'utiliser ...")
        End If
        '
        '
        If RadioButton2.Checked = True Then 'si radiobutton 2 est choisi alors..
            writeFile32() 'ecriture
            MsgBox("Le bug a été fixé ! Si vous rencontrer encore un problème , n'hésitez pas a m'utiliser ...")
        End If
        '
        '
        If RadioButton1.Checked = True Then 'si radiobutton 1 est choisi alors..
            writeFile64() 'ecriture
            MsgBox("Le bug a été fixé ! Si vous rencontrer encore un problème , n'hésitez pas a m'utiliser ...")
        End If

    End Sub
    Sub writeFile() 'déclaration d'une ecriture
        Dim sw As New StreamWriter(Form1.TextBox3.Text + "\Launch.bat") 'ouverture du fichier 

        sw.Write(Win6432.Text) 'ecriture en respectant les retour a la ligne du label

        sw.Close() 'fermeture du fichier
    End Sub
    Sub writeFile64()
        Dim sw As New StreamWriter(Form1.TextBox3.Text + "\Launch.bat") 'Récupération du chemin vers le fichier

        sw.Write(Win64.Text) 'ecriture en respectant les retour a la ligne du label

        sw.Close() 'fermeture du fichier
    End Sub
    Sub writeFile32()
        Dim sw As New StreamWriter(Form1.TextBox3.Text + "\Launch.bat") 'ouverture du fichier 

        sw.Write(Win32.Text) 'ecriture en respectant les retour a la ligne du label

        sw.Close() 'fermeture du fichier
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form3.Show()

        Me.Hide()

    End Sub
End Class

Conclusion :


L'outil webclient est très utile et facile d'utilisation pour télécharger un fichier !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
bravo a vous les petits c'est du bon boulot!la relève est assurée ^^
Messages postés
1
Date d'inscription
samedi 21 juillet 2012
Statut
Membre
Dernière intervention
18 février 2013

Moi j'ai 13 ans je code depuis un petit moment en VB.net et joue un peu à Minecraft !
Un seul mot à dire sur ton programme : Excellent !!!
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
"to fix a bug" --> "corriger un bug".
Et utilise une fonction pour récupérer le chemin vers le Bureau au lieu de coder ça en dur !
Messages postés
42
Date d'inscription
samedi 26 mai 2012
Statut
Membre
Dernière intervention
25 décembre 2013

Désolé , je ne savais qu'on pouvait éditer une source ^^
Messages postés
14785
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 avril 2021
154
Pourquoi ne pas avoir mis à jour ta précédente source ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.