Login

Member Panel
# Lunedì Martedì Mercoledì Giovedì Venerdì Sabato Domenica
ORE 21 / / / / / / /

Reclutamenti: Hey amico. Sì, proprio tu che stai leggendo! Siamo alla ricerca di nuove e giovani reclute. Ti senti abbastanza forte da entrare nel clan ~»Skaarj!«~ e affrontare ondate di vibratori mutanti su Killing Floor oppure killare tacchini indifesi su Minecraft? Entra nella community e unisciti a questa ciurma di rubagalline.
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Informazione: Questo forum non è più gestito.

[VB.NET] Live bat streaming output

BAT, C, C++, C#, Delphi, Visual Basic, VB.NET

[VB.NET] Live bat streaming output

Messaggioda Prisoner849 il 05/10/2013, 18:18

Codice: Seleziona tutto
Imports system.io
Imports Microsoft.VisualBasic.ControlChars

Public Class Form1
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim p = New Process
 p.StartInfo.FileName = "Test.bat"
 p.StartInfo.UseShellExecute = False
 p.StartInfo.RedirectStandardOutput = True
 p.StartInfo.RedirectStandardError = True
 p.StartInfo.CreateNoWindow = True
 AddHandler p.OutputDataReceived, AddressOf p_OutputDataReceived
 p.Start()
 p.BeginOutputReadLine()
 End Sub

 Public Sub p_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
 UpdateTextBox(e.Data)
 End Sub

 Delegate Sub SetTextCallback(ByVal [text] As String)
 Private Sub UpdateTextBox(ByVal text As String)
 If Me.RichTextBox1.InvokeRequired Then
 Dim d As New SetTextCallback(AddressOf UpdateTextBox)
 Me.Invoke(d, New Object() {text})
 Else
 If RichTextBox1.Text = Nothing Then RichTextBox1.Text = text Else RichTextBox1.AppendText(vbNewLine & text)
 End If
 End Sub
End Class
L_IMAGE
Avatar utente
Prisoner849
Administrator
Administrator
 
Messaggi: 322
Iscritto il: 10/12/2012, 19:44
Località: Vortex Rikers
Given: 31 thanks
Received: 12 thanks

The following user would like to thank Prisoner849 for his or her post:
Yasuke97

Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

cron
 

Chi c’è in linea

In totale c’è 1 utente connesso: 0 iscritti, 0 nascosti e 1 ospite (basato sugli utenti attivi negli ultimi 5 minuti)
Record di utenti connessi: 404 registrato il 21/10/2020, 6:38

Visitano il forum: Nessuno e 1 ospite

 Benvenuto su skaarj! Per rimuovere questa barra registrati oppure effettua il login