Comment j'ai lu cmd sortie en VB.NET à partir de cmd shell?

Je suis en utilisant gnokii pour envoyer des Sms.

Mon VB Codes:

Dim xCmd As String
xCmd = "cmd.exe /c echo msgcontent "| c:\gnokii\gnokii.exe --sendsms 12345678"
Shell(xCmd)

Points à noter:

  1. J'ai essayé de rediriger la sortie vers un .fichier txt, mais l' .txt fichier semble être vide. En outre, le programme peut envoyer plusieurs Sms à chaque seconde, de sorte que la création d'un .txt n'est pas possible.
  2. Processus.Start() n'est pas faisable, parce que je dois vérifier si gnokii.exe est en cours d'exécution.
  3. J'ai besoin de la sortie pour vérifier si le SMS est envoyé avec succès.
  4. J'ai essayé d'utiliser (codes ci-dessous), mais il ne fonctionne pas non plus; aucune sortie n'a été montré.

    Fonction exe(ByVal fileName, ByVal args)

    Dim p As Process = New Process
Dim output As String

With p
    .StartInfo.CreateNoWindow = True
    .StartInfo.UseShellExecute = False
    .StartInfo.RedirectStandardOutput = True
    .StartInfo.FileName = fileName
    .StartInfo.Arguments = args
    .Start()
    output = .StandardOutput.ReadToEnd
End With

Return output

    Fin De La Fonction

Si vous modifiez votre xCMD d'avoir un > c:\xxx.txt le contenu de xxx.txt contiennent la sortie que vous vouliez?
Peut-être que ce lien de l'aide.
Nan ce n'est pas
Bon, salut à tous, hier j'ai trouvé une réponse sur la façon d'enregistrer la sortie dans le .fichier txt. Simplement changer "... > xxx.txt" pour "... 2> xxx.txt" Merci pour toute l'aide qui vous a été donné 🙂
OK, 2 est l'erreur, pas de mst, c'est pourquoi il nétait pas en travaillant avec d'autres méthodes.

OriginalL'auteur Joyce | 2011-06-18

  1. 2

    Essayez ceci:

        Dim p As Process = New Process
    Dim output As String

    With p
        .StartInfo.CreateNoWindow = True
        .StartInfo.RedirectStandardOutput = True
        .StartInfo.UseShellExecute = False
        .StartInfo.FileName = fileName
        .StartInfo.Arguments = args
        .Start()
        output = .StandardOutput.ReadToEnd
        .WaitForExit()
    End With

    Return output
    Euh, n'est-ce pas ce que j'ai cité.. lol, mais tout de même, merci pour l'aide 🙂
    .WaitForExit()

    OriginalL'auteur aligray

  2. 1

    Pour envoyer la sortie d'une .fichier txt (la meilleure solution que je peux trouver)

    REMPLACER

    xCmd = "cmd.exe /c echo msgcontent "| c:\gnokii\gnokii.exe --sendsms 12345678 > file.txt"

    AVEC

    xCmd = "cmd.exe /c echo msgcontent "| c:\gnokii\gnokii.exe --sendsms 12345678 2> file.txt"

    OriginalL'auteur Joyce

  3. 0

    Vous pouvez utiliser cela fonctionne à 100%, mais seulement vous montrer les résultats

    Comment montrer shell résultats dans vb.net:

    'create 1 textbox1
'create 1 button1
'create 1 richtextbox1
'in the start up directory of this program make a file could 123.text
'------------------------------------------------------------------------
Dim read As System.IO.StreamReader
read = File.OpenText(Application.StartupPath & "3.text")

Shell("cmd.exe /c" & TextBox1.Text + ">123.text")
Do Until read.EndOfStream
    RichTextBox1.Text = read.ReadLine & vbCrLf
Loop
'--------------------------------------------------------------------------
'you can add on the top to create the file if it does not exists,   

If IO.File.Exists(Application.StartupPath & "3.text") = False Then
    IO.File.Create(Application.StartupPath & "3.text")
End If
'-------------------------------------------------------------------------

    Le code est également disponible sur ce lien http://pastebin.com/iEhv61jG

    OriginalL'auteur Wisdom oparaocha

  4. 0

    Je pourrais suggérer quelque chose comme cela, moi-même. Ceci est similaire à ce que quelqu'un d'autre a posté, mais il offre un peu plus de fonctionnalités, je pense.

    Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Shell("cmd.exe /c " & TextBox1.Text + " > c:\temp\output.txt")
    Dim read As System.IO.StreamReader
    read = File.OpenText("c:\temp\output.txt")
    RichTextBox1.Clear()
    Do Until read.EndOfStream
        RichTextBox1.Text += read.ReadLine & vbCrLf
    Loop
    RichTextBox1.Select(RichTextBox1.Text.Length, 0)
    RichTextBox1.ScrollToCaret()
End Sub
End Class

    OriginalL'auteur Skotte