Ajouter la variable textbox a Shell

Bonjour a tous ,

je débute dans le la programmation en VB.net et voudrais exécuté un commande DOS dans un petit programme en VB.net

donc , voudrais qui prenne en compte se qu'on mais dans les textbox ( s'est pour des tâches planifiées )

donc par exemple on rentre dans la textBox1 l'heure ect .. et quand on clique sur le bouton : sa lance le CMD avec la commande


voilà le début de mon petit code ( bouton )

Code:

---

1 2 3 4 5 6

Public Class Form1   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell("C:\Windows\System32\cmd.exe /K ") End Sub End Class

---

Mais je sais pas comment mettre les textBox

je voudrais que sa fasse :
( la commande DOS )

Code:

---

schtasks /create /s "TextBox1" /sc ONCE /tn "TextBox2" /tr "Chemin du fichier " /ru "identifiant" /rp "mot de passe" /st "TextBox3" /sd "TextBox3"

---

Voilà merci a vous .

Bonjour,

pense à mettre des balises de code pour rendre ton post plus lisible

Avant tout un exemple simple:

• Ta TextBox contient le nom de l'appli cmd.exe
  
• exemple de code:
  
  Code:

  ---

  1 2 3 4

  Shell("C:\Windows\System32\" & TextBox.Text & " /K ")   ' équivalent à: ' --> Shell("C:\Windows\System32\cmd.exe /K ")

  ---

Pour ton problème, essaye de faire comme ça:

Code:

---

1 2 3 4 5

Shell(" schtasks /create /s" & TextBox1.Text &_ " /sc ONCE /tn " & TextBox2.text &_ " /tr Chemin du fichier /ru identifiant /rp mot de passe /st " &_ TextBox3.Text & " /sd " & TextBox3.Text)

---

Les "_" permettent faire comme si ton code était sur un seul ligne
Par contre j'ai pas trop compris ton histoire de chemin, identifiant et mdp, donc j'ai laissé tel quel.
Juste pour te donner une idée de la syntaxe ;)

Je ferais un truc du genre :

Code:

---

1 2	string.Format("schtasks /create /s {0} /sc ONCE /tn {1} /tr {2} /ru {3} /rp {4} /st {5} /sd {5}", TextBox1.Text, TextBox2.Text, "Chemin fichier", "Identifiant", "Mot de passe", TextBox3.Text)

---

Citation:

---

Envoyé par hunteshiva

Pour ton problème, essaye de faire comme ça:

Juste pour te donner une idée de la syntaxe ;)

---

Personnellement, je n'aime pas trop les concaténations de chaîne de caractère pour plusieurs raisons :
- Quand on passe à une requête SQL, ça donne envie de faire de la merde
- C'est très peu lisible
- C'est extrêmement peu performant

Du coup je préfère largement utiliser :
- string.Format() qui est plus lisible et plus performant (et ça rappelle les requêtes paramétrées)
- StringBuilder, qui est encore plus performant, mais niveau lisibilité c'est pas terrible non plus
- Eventuellement, une combinaison des deux

Mais jamais de concaténation ;)

Alors pour tout vous dire je suis vraiment pas fort ,

Les identifient / mot de passe / chemin s'est car enfaîte je veut créer une tâche planifié sur un PC sur le réseau et j'ai besoin des identifient ADMIN du poste , et le chemin pour qu'il télécharge le fichier sur le serveur .( exemple le 17 mars a 22h le poste78 lancera la tâche planifié "Mise a Jour" )

Car d'habitude je le fait directement depuis des petits fichiers batch mais je mais des plombs a tout changer ( nom de poste / heure / date / nom de tache )


Voilà j'espère que vous avez compris


PS : je suis en stage dans une entreprise en Info et je doit déployés une MAJ sur 200 poste et au bout de 20 ton cerveau comprends plus a force de changer dans le fichiers bat .

et j'ai 15 ans :S

Peux tu nous donner une exemple exact de ce que tu saisi (sans donner de login ou mdp)

Courage :mouarf:

PS: "- Quand on passe à une requête SQL, ça donne envie de faire de la merde"
je vois pas en quoi ça change, c'est vraiment un histoire de gouts :mouarf:

Ok alors , voilà la commande exact ( merci pour ton encouragement )

schtasks /create /S PC0707100 /sc ONCE /tn "MISEAJOUR" /tr "\\svr-appli-maj\MAJ\setup.exe" /ru "Adm" /rp "1597538624" /st 11:50:00 /sd 25/01/2012


PC0707100 = nom du poste
MISEAJOUR = nom de tâche
svr ..... = nom du serveur ou il va chercher le logiciel
adm = Login
1597538624 = mot de passe
11:50:00 = Heure du lancement de la tache
25/01/2012 = Jour du lancement de la tache


Donc , avec les textBox je voudrais modifier

nom du poste / nom de la tache / heure / date


Voilà merci a vous !
espère être clair :S

Le Projet :
http://img545.imageshack.us/img545/1341/forumui.jpg

ok, alors je ne veux pas me fâcher avec StringBuilder,
mais je vais quand même te proposer l'exemple avec de la concaténation :mrgreen:

1. créer des TextBox avec un nom correct:
   
   • txtPoste
   • txtTache
   • txtHeure
   • txtDate
     
   
   
2. utilise le code suivant
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9 10 11

   Dim Test as string   Test = "schtasks /create /S " & txtPoste.Text & _ "/sc ONCE /tn "& txtTache.Text & _ " /tr " & chr(34) & "\\svr-appli-maj\MAJ\setup.exe" & chr(34) & _ " /ru " & chr(34) & "Adm" & chr(34) & _ " /rp " & chr(34) & "1597538624" & chr(34) & _ " /st " & txtHeure.Text & _ " /sd " & txtDate.Text   MsgBox(Test)

   ---

   Commence par ce code avant de faire le Schell pour vérifier que la commande saisie est bien ce que tu veux ;)
   
   PS: les chr(34) c'est pour mettre des " dans ta chaine de caractéres

Aprés ça tu n'aura plus qu'a faire

Code:

---

Shell(Test)

---

Met un nom plus approprié que "Test" par contre :mouarf:

Ok merci !! je vais manger je vous tiens au courant

En ce qui concerne l'execution d'une commande DOS en vb.net,
j'ai trouvé quelque chose ici:
http://social.msdn.microsoft.com/for...2-ac35a8b6d532

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   Dim myProcess As New Process() myProcess.StartInfo.FileName = "cmd.exe" myProcess.StartInfo.UseShellExecute = False myProcess.StartInfo.RedirectStandardInput = True myProcess.StartInfo.RedirectStandardOutput = True myProcess.Start()   Dim myStreamWriter As StreamWriter = myProcess.StandardInput Dim mystreamreader As StreamReader = myProcess.StandardOutput   myStreamWriter.WriteLine("E:\tool\MySql\bin\mysql.exe --host=localhost --user=root --password=pwd test < c:\back.sql") Dim str As String = mystreamreader.ReadToEnd MessageBox.Show(str) myStreamWriter.Close() myProcess.WaitForExit() myProcess.Close()   End Sub

---