Besoin d'aide ! , CMD + commande

Question

Bonjours , 
J'aimerais savoir si vous pourriez m'apporter votre aide sur un sujet plutot dur (selon les niveaux ^^). Voila je n'arrive pas a trouver une commande et je suis bloquer ! 
J'aimerais savoir si c'est possible de de lancer un 'cmd avec un commande VB (déjà fait) d'afficher son contenus dans une rictbox (fait aussi j'arrive au point)
Mais je n'arrive pas a faire qu'il envoie de commande avec une textbox !? Merci de votre aide !!! :)

Form : 



Script :



Plus lisible ^^ : 

Imports System.IO

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim truc As New System.Diagnostics.Process()
        Dim path_ As String = "C:	est\fichier.txt"
        truc.StartInfo.RedirectStandardOutput = True
        truc.StartInfo.UseShellExecute = False
        truc.StartInfo.CreateNoWindow = True
        truc.StartInfo.FileName = ("C:\Windows\System32\CMD.EXE")
        truc.Start()
        Me.RichTextBox1.Text = truc.StandardOutput.ReadToEnd

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
            Dim dlg As SaveFileDialog = New SaveFileDialog
            dlg.Title = "Enregistrer le Texte"
            dlg.Filter = "Fichier Texte (*.txt)|*.txt"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception : End Try

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End Sub
End Class

jordane45 · Answer

Bonjour,
1 - Attention... tu as posté ta question dans la section VBscript du forum.. hors, vu tes captures d'écran.. tu es en VB.NET (j'ai déplacé ta question au bon endroit).

2 - Ici, pour montrer son code.. on évite les captures d'écrans... on POSTE directement le code (celui qui pose problème) en utilisant la coloration syntaxique : 
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
 

EDIT : Je n'avais pas vu le " Plus lisible ^^ : " 



Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

NHenry · Answer

Bonsoir,

Que se passe-t-il ?
Tu ne nous dis pas ce que tu constates. 

La ligne :
Me.RichTextBox1.Text = truc.StandardOutput.ReadToEnd
M'indiquerais que ton interface se fige, mais il faut ajouter des précisions pour que l'on puisse t'aider.

TheDoka · Answer

Non je voudrais simplement que mon programme exécute un batch en arrière plan et que je puisse interagir avec l'interface vb net :)

Si j'ai mis une richtbox , c'est vraiment tout bête c'est parce que je la trouve mieux pour afficher plus gros et avec je peut enregistrer en autre format ...

J'aimerais trouver un scripts qui dise au boutons envoyer -->d'envoyer la commande directement dans le batch en arrière plan (par conséquent afficher dans la richtbox :) 

Donc :

RictBox = Batch
Boutton = Batch (envoie de commande) 
En gros j'aimerais qu'il servent d'interface secondaire a mon bat.
Voila je crois avoir tout dis :)

TheDoka · Answer

Quelque image du fonctionnement : 
Désoler pour la qualité de mon dessin :DD

Rykudos · Answer

salut, je fait comme ça pour afficher le résultat d'un batch si sa peut t'aider.

1 timer 
1 textbox
1 bouton 

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()        Try            My.Computer.FileSystem.DeleteFile("result_cmd.txt")        Catch ex As Exception        End Try        Try            My.Computer.FileSystem.DeleteFile("commande.bat")        Catch ex As Exception        End Try        Try            Dim sw As StreamWriter            sw = File.CreateText("commande.bat")            sw.WriteLine("@echo off")            sw.Flush()            sw.Close()            Dim kl = My.Computer.FileSystem.GetFileInfo("commande.bat")            Dim pp = kl.DirectoryName            sw = File.AppendText("commande.bat")            sw.WriteLine("dir c:	emp > " + pp + "esult_cmd.txt")            sw.Flush()            sw.Close()        Catch ex As Exception        End Try        Try            Dim startInfo As New ProcessStartInfo("commande.bat")            startInfo.WindowStyle = ProcessWindowStyle.Minimized            Process.Start(startInfo)        Catch ex As Exception        End Try    End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        If File.Exists("result_cmd.txt") = True Then            Try                Dim SR As New StreamReader("result_cmd.txt")                TextBox1.Clear()                TextBox1.Text = SR.ReadToEnd                SR.Close()                My.Computer.FileSystem.DeleteFile("commande.bat")                My.Computer.FileSystem.DeleteFile("result_cmd.txt")                Timer1.Stop()            Catch ex As Exception            End Try        End If    End Sub

Besoin d'aide ! , CMD + commande

5 réponses

Votre réponse

Discussions similaires