Salut à tous!
Je sais pas si on peut parler des programmes externes au domaine de dofus sur ce forum... :geek:
Dans le doute, je m'attend à ce qu'il soit supprimé! Mais tant pis! :D
Bref. J'suis en stage dans une entreprise de maintenance informatique, et vue que je suis très très performant je me retrouve souvent sans travail.
(ironie hein? hein? ME JUGEZ PAS!)
Donc j'me suis dit que c'était l'occasion de reprendre de zéro mon apprentissage en Visual Basic, parce que c'est comme ça que ça rentre! :)
Je programme donc un petit utilitaire pour faciliter la vie de tout les jours des techniciens informatiques!
(zyko m'a aidé quand je bloquais, big up à lui)
Je l'ai commencé, voici un screen de mon avancement:
![[Image Introuvable]](https://puu.sh/5KaJL.png)
Loading Image
Comme je l'ai déjà dit, je débute hein? Donc ceux qui rigolent au fond de la salle, BEN ILS ARRÊTENT!
Pour le moment seul les cinq premier boutons fonctionnent, et encore, j'me suis chié dans le code parce que Ninite et Adwcleaner sont tout les deux renommés en Ninite quand je les télécharge (depuis le button)!
Âmes sensibles, s'abstenir!
Cliquez pour révéler
Cliquez pour masquer
Imports System.IO
Public Class Form1
Inherits DevComponents.DotNetBar.Office2007Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Dim directory As String = "C:\ninite.exe"
Dim directory2 As String = "C:\adwcleaner.exe"
Dim title As String = "Code by -FaLcOn-"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(directory) Then
MsgBox("Déjà là!", 64, title)
Else
My.Computer.Network.DownloadFile("http://general-changelog-team.fr/fr/downloads/finish/20-outils-de-xplode/2-adwcleaner", directory)
MsgBox("Réussite totale", 64, title)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start("C:\adwcleaner.exe")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Process.Start("SystemPropertiesPerformance.exe")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If File.Exists(directory) Then
MsgBox("Déjà là!", 64, title)
Else
My.Computer.Network.DownloadFile("http://ninite.com/java/ninite.exe", directory)
MsgBox("Réussite totale", 64, title)
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Process.Start("C:\ninite.exe")
End Sub
End Class
C'est sale, t'as vus? :mrgreen:
Pour le moment j'essaye de me débrouiller un maximum tout seul!
Donc voila, j"vous mettrais au courant de mon avancement, là ou je bloque etc.
Cordialement w€sh!