Createur automatique de serveur minecraft

Soyez le premier à donner votre avis sur cette source.

Vue 3 620 fois - Téléchargée 396 fois

Description

Voici un programme pour créer un serveur minecraft , codé entiérement par moi il utilise principalement webclient . Merci d'etre indulgent , c'est ma première source ...

Source / Exemple :


Imports System.Net
Imports System.IO

Public Class Form2
    Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" 

Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
    Private Sub VButton1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles VButton1.Click

        System.IO.Directory.CreateDirectory("C:\Documents and Settings\" + 

(Label3.Text))
        System.IO.Directory.CreateDirectory("C:\Documents and Settings\" + 

(Label3.Text) + "\plugins")
        logs.Text = "Téléchargement de CraftBukkit.jar ..."

      
        Form1.Show()
        WebClient1.DownloadFileAsync(New Uri(VTextBox1.Text), 

TextBox2.Text + "\CraftBukkit.jar")

        WebClient2.DownloadFileAsync(New 

Uri("http://dl.dropbox.com/u/102556229/Essentials.jar"), TextBox2.Text + 

"\plugins\Essentials.jar")

        logs.Text = (logs.Text & Environment.NewLine & "Téléchargement du 

plugin EssentialsAntiBuild ...")
        WebClient3.DownloadFileAsync(New 

Uri("http://dl.dropbox.com/u/102556229/EssentialsAntiBuild.jar"), 

TextBox2.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"), 

TextBox2.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"), 

TextBox2.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"), 

TextBox2.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"), TextBox2.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"), TextBox2.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"), TextBox2.Text + 

"\no-ip.exe")

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles MyBase.Load
        Label3.Text = (SystemInformation.UserName + 

"\Bureau\CraftBukkitServer")
        TextBox2.Text = ("C:\Documents and Settings\" + (Label3.Text))
        Timer1.Start()

    End Sub

    Sub writeFile()
        Dim sw As New StreamWriter("C:\Documents and Settings\" + 

(Label3.Text) + "\Launch.bat")
        sw.Write(Lab12.Text)
        sw.Close()
    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é !")
        VProgressBar1.Value = 0
        writeFile()
        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'' ")
        Form3.Show()
        Shell(TextBox2.Text + "\no-ip.exe")
    End Sub

    Private Sub WebClient1_DownloadProgressChanged(ByVal sender As 

Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) 

Handles WebClient1.DownloadProgressChanged

        VProgressBar1.Value = e.ProgressPercentage

        Label4.Text = e.ProgressPercentage.ToString + "%"

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Timer1.Tick

    End Sub
    Private Sub WebClient2_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & "Essentials.jar 

téléchargé !")
    End Sub
    Private Sub WebClient3_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & 

"EssentialsAntibuild.jar téléchargé !")
    End Sub
    Private Sub WebClient4_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted
 logs.Text = (logs.Text & Environment.NewLine & "EssentialsProtect.jar 

téléchargé !")
    End Sub
    Private Sub WebClient5_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & "EssentialsSpawn.jar 

téléchargé !")
    End Sub
    Private Sub WebClient6_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted
        logs.Text = (logs.Text & Environment.NewLine & 

"PermissionsBukkit-2.0.jar téléchargé !")
    End Sub
    Private Sub WebClient7_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & "WorldGuard.jar 

téléchargé !")
    End Sub
    Private Sub WebClient8_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & "WorldEdit.jar 

téléchargé !")
    End Sub
    Private Sub WebClient9_DownloadFileCompleted(ByVal sender As 

Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) 

Handles WebClient1.DownloadFileCompleted

        logs.Text = (logs.Text & Environment.NewLine & "No-ip téléchargé !")
    End Sub

    Private Sub VCheckBox2_CheckedChanged(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 

VCheckBox2.CheckedChanged
        If VCheckBox2.Checked = False Then
            MsgBox("Vous ne pouvez pas désactiver cette fonction !")
            VCheckBox2.Checked = True
        End If
    End Sub
End Class

Conclusion :


L'élément "Webclient" est très simple d'utilisation pour le téléchargement d'un fichier

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
42
Date d'inscription
samedi 26 mai 2012
Statut
Membre
Dernière intervention
25 décembre 2013

Bonjour , excusez moi d'avoir oublié les autres fichiers , j'ai fait ce post a l'arrache , je compte le refaire avec les commentaires + tout les fichiers .
Cordialement ,
DrDree3
Messages postés
17
Date d'inscription
mardi 10 octobre 2000
Statut
Membre
Dernière intervention
11 juin 2007

Dommage qu'il n y a pas tous les fichiers.
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Le nom des fichiers transférés ne devraient pas être hardcodés... Ca rend le code bien plus dur à lire.
Messages postés
371
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
17 juin 2013

J'ajouterai que les commentaires ne nous sautent pas aux yeux !
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonsoir,

Tu n'as pas mis la source complète... Il faut tous les fichiers dans le répertoire du projet où se trouve entre autre "Createur de serveur Minecraft.vbproj" et le repertoire "My project" et "obj" si tu as utilisé des objets.

Amicalement,
Us.

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.