Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [Tuto]Créer un launcher VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 10:56 (2011)    Sujet du message: [Tuto]Créer un launcher VB.net Répondre en citant

Pour créer un lanceur en VB rien de plus facile, il suffit de créer une forme avec un bouton et de faire un clic droit sur un raccourci et de copier coller la cible après System.Diagnostics.Process.Start("copier collé de la cible")

Exemple:




  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         System.Diagnostics.Process.Start("C:\Documents and Settings\%username%\Local Settings\Application Data\Google\Chrome\Application\chrome.exe")  
  5.     End Sub  
  6. End Class  




Seulement il y as un souci, le programme ne sera pas portable a cause que VB ne prend pas en compte les variable d'environnement%username%) directement.

Pour palier à ce problème il faut déclarer une variable user avec le code suivant:



  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Dim user As String = Environment.GetEnvironmentVariable("username")  
  5.         Shell("C:\Documents and Settings\" & user & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe")  
  6.     End Sub  
  7. End Class  





Résultat:



Un code plus complet



  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Dim user As String = Environment.GetEnvironmentVariable("username")  
  5.         If ComboBox1.SelectedItem = "Chrome" Then  
  6.             Shell("C:\Documents and Settings\" & user & "\Local Settings\Application Data\Google\Chrome\Application\chrome.exe")  
  7.         End If  
  8.         If ComboBox1.SelectedItem = "notepad" Then  
  9.             Shell("notepad")  
  10.         End If  
  11.         If ComboBox1.SelectedItem = "cmd" Then  
  12.             Shell("cmd")  
  13.         End If  
  14.         If ComboBox1.SelectedItem = "Media player" Then  
  15.             Shell("C:\Program Files\Windows Media Player\wmplayer.exe")  
  16.         End If  
  17.         If ComboBox1.SelectedItem = "internet explorer" Then  
  18.             Shell("C:\Program Files\Internet Explorer\iexplore.exe")  
  19.         End If  
  20.     End Sub  
  21.   
  22.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  23.         Me.Close()  
  24.     End Sub  
  25. End Class  


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 10:56 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com