FNZ Index du Forum
FNZ
Bienvenue sur le forum FNZ
 
FNZ Index du ForumFAQRechercherS’enregistrerConnexion

:: Pour les wesh ::

 
Poster un nouveau sujet   Répondre au sujet    FNZ Index du Forum -> Coin détente -> Bar
Sujet précédent :: Sujet suivant  
Auteur Message
Langouste
Invité

Hors ligne




MessagePosté le: Mar 31 Jan - 19:49 (2012)    Sujet du message: Pour les wesh Répondre en citant

J'avais suivi un début de tuto d'un mec pour le launcher puis je l'ai fais à ma manière. J'l'ai fais en VB.NET pour les curieux

Vlà bonne nuit ( faut cliquer sur spoiler )
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If CheckBox1.Checked = True Then
Dim sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
sw.WriteLine(TextBox1.Text)
sw.WriteLine(TextBox2.Text)
sw.Close()
Process.Start("minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " 77.111.248.142:25565")


ElseIf CheckBox1.Checked = False Then
Process.Start("minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " 77.111.248.142:25565")
Kill("log.txt")
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Process.Start("http://fnz.xooit.com/index.php")
End Sub



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/Update.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Update.txt")

// Lien de la plateforme de téléchargement

Dim up As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Update.txt")
Label3.Text = up.ReadToEnd
up.Close()
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Update.txt")
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt") = True Then
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/Langousteversion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Langousteversion.txt")
Dim vn As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt")
Dim vni As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Langousteversion.txt")
Dim nk As String
Dim nki As String
nk = vn.ReadLine
nki = vni.ReadLine
vn.Close()
vni.Close()
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Langousteversion.txt")
If nk < nki Then
MsgBox("Une mise à jour est disponible, elle va être téléchargée.", MsgBoxStyle.Information)
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.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://designcraft.fr/Launcher/Langousteversion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
End If
End If

If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt") = False Then
MsgBox("C'est la première fois que tu lances le Launcher, une mise à jour va être téléchargée.", MsgBoxStyle.Information)
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/Langousteversion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")

End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt") = True Then
CheckBox1.Checked = True
Dim sr As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
TextBox1.Text = sr.ReadLine
TextBox2.Text = sr.ReadLine
sr.Close()

End If


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Une mise à jour est disponible, elle va être téléchargée.", MsgBoxStyle.Exclamation)
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt") = True Then

Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.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://designcraft.fr/Launcher/Langousteversion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt") = False Then
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/Langousteversion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Langousteversion.txt")
My.Computer.Network.DownloadFile("http://designcraft.fr/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
End If
MsgBox("Mise à jour términée! Bon jeu sur le serveur FNZ Wink", MsgBoxStyle.Information)
End Sub
End Class


Revenir en haut
Publicité






MessagePosté le: Mar 31 Jan - 19:49 (2012)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
ninicou
Leader

Hors ligne

Inscrit le: 31 Déc 2011
Messages: 43

MessagePosté le: Mar 31 Jan - 21:46 (2012)    Sujet du message: Pour les wesh Répondre en citant

tout ça a lire ^^

Revenir en haut
Skype
Langouste
Invité

Hors ligne




MessagePosté le: Mer 1 Fév - 10:34 (2012)    Sujet du message: Pour les wesh Répondre en citant

Yep, suffit ce foutre une image en fond et puis c'est fini on a le launche, un jour je le referai en C, parce que le C, c'est cool.

Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 04:10 (2018)    Sujet du message: Pour les wesh

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    FNZ Index du Forum -> Coin détente -> Bar Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Panneau d’administration | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Flowers of Evil © theme by larme d'ange 2006
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com