VB/VB.Net Un programme pour une entreprise!

Inscrit
9 Mai 2012
Messages
44
Reactions
0
#1
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:



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

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#2
Cadernis.fr
Le forum où on apprend à programmer tout et n'importe quoi

bonne continuation pour ton projet :)
 
Inscrit
9 Mai 2012
Messages
44
Reactions
0
#3
Depuis que j'ai fais ce post j'ai réglé tout les problèmes que j'avais, je suis content!

Et merki :3
 
A

Anonymous

Invité
#4
Il fait du sale le petit :p
Si tu as besoin d'aide n'hésite pas :3
 

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#5
Fait gaffe si tu tourne sur un poste ou C n'est pas le disque dur qui contient le programme tu auras des soucis. Par exemple si tu as un ssd ce sera D:/.
 

Geraff

Administrateur
Membre du personnel
Inscrit
13 Mars 2008
Messages
564
Reactions
0
#6
Essaie de voir si tu peux choper les liens des programmes par le registre windows qui est fait pour ça.

(Sur Linux c'est tellement plus simple...)
 

Sparkdaemon

Staff
Membre du personnel
Inscrit
7 Avril 2009
Messages
556
Reactions
3
#7
Suggestion !

Deux version. Online, et Offline.

Moi qui travaille avec un DD externe c'est plus simple d'avoir les soft direct avec le launcher et, plug and shit o/

Des bisous ♥
 
Inscrit
28 Février 2014
Messages
99
Reactions
35
#8
FaLcOn t'on pseudo me rappel quelque chose...
 
Inscrit
12 Avril 2013
Messages
21
Reactions
1
#9
Gg ! tu t'es ameliorée vu que maintenant tu codes un bot dofus xD
ca doit être grâce à Cadernis
 

BlueDream

Administrateur
Membre du personnel
Inscrit
8 Decembre 2012
Messages
2 010
Reactions
149
#10
Merci le détérage pour rien dire...
 
Haut Bas