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 !
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.