Bonjour,
Je vais vous apprendre a faire un uplauncher.
Ce qu'il vous faut :
- Microsoft visual basic 2008
- Des connaissances en visual basic (un minimum)
- Des images pour votre uplauncher.
1- Ouvrez Microsoft visual basic 2008 express et faites un nouveau projet.
2- Faite comme le screen si vous voulez.
(il vous faut :
-1 richtextbox
-2 boutons
-1 Timer)
Je vais vous apprendre a faire un uplauncher.
Ce qu'il vous faut :
- Microsoft visual basic 2008
- Des connaissances en visual basic (un minimum)
- Des images pour votre uplauncher.
1- Ouvrez Microsoft visual basic 2008 express et faites un nouveau projet.
2- Faite comme le screen si vous voulez.
(il vous faut :
-1 richtextbox
-2 boutons
-1 Timer)
3- Double-cliquez sur le bouton "Jouer" et ajouter se code :
Shell("C:Program FilesDofusDofus.exe")
4- Double-cliquez sur le bouton "Mise a jour" et ajouter se code :
Dim address As String = "http://votresite/config.xml"
Me.RichTextBox1.AppendText("Recherche de mise a jour" & vbCrLf)
Dim num As Integer = FileSystem.FreeFile
Dim client As New WebClient
Me.RichTextBox1.AppendText("Cr" & ChrW(233) & "ation du controle client " & vbCrLf)
Dim fileName As String = "config.xml"
Me.RichTextBox1.AppendText("Votre config.xml a été télécharger" & vbCrLf)
Try
client.DownloadFile(address, fileName)
Me.RichTextBox1.AppendText("Fini " & vbCrLf)
Catch exception1 As Exception
End Try
Me.Timer1.Enabled = False
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
Me.ProgressBar1.Value = 100
Interaction.MsgBox("Fichier télécharger", MsgBoxStyle.OkOnly, Nothing)
Me.RichTextBox1.AppendText("Recherche de mise a jour" & vbCrLf)
Dim num As Integer = FileSystem.FreeFile
Dim client As New WebClient
Me.RichTextBox1.AppendText("Cr" & ChrW(233) & "ation du controle client " & vbCrLf)
Dim fileName As String = "config.xml"
Me.RichTextBox1.AppendText("Votre config.xml a été télécharger" & vbCrLf)
Try
client.DownloadFile(address, fileName)
Me.RichTextBox1.AppendText("Fini " & vbCrLf)
Catch exception1 As Exception
End Try
Me.Timer1.Enabled = False
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
Me.ProgressBar1.Value = 100
Interaction.MsgBox("Fichier télécharger", MsgBoxStyle.OkOnly, Nothing)
Modifier :
http:// votre site/config.xml par le lien ou se trouve votre config.xml sur votre site
Ensuite enregistrez et compilez votre projet.
Ensuite testez votre projet vous verez que la config.xml a été téléchargé.
Cordialement, Phiter
http:// votre site/config.xml par le lien ou se trouve votre config.xml sur votre site
Ensuite enregistrez et compilez votre projet.
Ensuite testez votre projet vous verez que la config.xml a été téléchargé.
Cordialement, Phiter
Last edited: