Hallo Alle,
nachdem ich mir bereits Blasen an die Finger gegoogelt habe stelle ich in meiner Verzweiflung folgende Frage:
wie programmiert man eine Progressbar, welche mitläuft solange ich auf das Ende eines ausgeführten externen Programmes warte?
Hier mein Code der das Ext. Proggi ausführt:
Private Sub Sendbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sendbutton.Click
Dim adress, news, answer As String
Dim cmd
Dim p As New Process()
adress = Adressbox.Text
news = Newsbox.Text
answer = Answerbox.Text
cmd = " \\" & adress & " msg /time:3600 /v /w * " & news
p.StartInfo.FileName = "D:\Sysinternals\psexec.exe"
p.StartInfo.Arguments = cmd
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.CreateNoWindow = True
p.Start()
answer = p.StandardOutput.ReadToEnd()
p.WaitForExit()
p.Close()
Answerbox.Text = answer
End Sub
Das Proggi startet psexec mit den Parametern und "sendet" eine Nachricht auf den Zielrechner und wartet bis der User diese bestätigt. Die Rückmeldung von Psexec wird dann in der Answerbox dargestgellt. Während dieser Wartezeit soll die Progressbar laufen. Wenn der User die Meldung bestätigt soll die Progressbar natürlich entsprechend abbrechen. Für jede Hilfe dankbar
nachdem ich mir bereits Blasen an die Finger gegoogelt habe stelle ich in meiner Verzweiflung folgende Frage:
wie programmiert man eine Progressbar, welche mitläuft solange ich auf das Ende eines ausgeführten externen Programmes warte?
Hier mein Code der das Ext. Proggi ausführt:
Private Sub Sendbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sendbutton.Click
Dim adress, news, answer As String
Dim cmd
Dim p As New Process()
adress = Adressbox.Text
news = Newsbox.Text
answer = Answerbox.Text
cmd = " \\" & adress & " msg /time:3600 /v /w * " & news
p.StartInfo.FileName = "D:\Sysinternals\psexec.exe"
p.StartInfo.Arguments = cmd
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.CreateNoWindow = True
p.Start()
answer = p.StandardOutput.ReadToEnd()
p.WaitForExit()
p.Close()
Answerbox.Text = answer
End Sub
Das Proggi startet psexec mit den Parametern und "sendet" eine Nachricht auf den Zielrechner und wartet bis der User diese bestätigt. Die Rückmeldung von Psexec wird dann in der Answerbox dargestgellt. Während dieser Wartezeit soll die Progressbar laufen. Wenn der User die Meldung bestätigt soll die Progressbar natürlich entsprechend abbrechen. Für jede Hilfe dankbar