.NET (Core and Framework)

extProcess = gcnew System::Diagnostics::Process;
extProcess->StartInfo = gcnew System::Diagnostics::ProcessStartInfo;
extProcess->StartInfo->RedirectStandardOutput = true;
extProcess->StartInfo->UseShellExecute = false;	//Necessary to redirect
extProcess->StartInfo->FileName = EXTPROC_EXE;
extProcess->StartInfo->CreateNoWindow = true;		//Don't open a new window for Process
extProcess->OutputDataReceived += gcnew System::Diagnostics::DataReceivedEventHandler (this, &Form1::StdoutHandler);
try
{
	extProcessThread->RunWorkerAsync();

void extProcessThreadDoWork (System::Object^ sender, System::ComponentModel::DoWorkEventArgs^ e)
{
	extProcess->Start();
	extProcess->BeginOutputReadLine();
}
void Form1::StdoutHandler (Object ^ sender,
	 System::Diagnostics::DataReceivedEventArgs ^output)
 {
	 //Get text
	 textBox->AppendText (output->Data + "\n");
 }

superMinerProcess->Start();
superMinerProcess->BeginOutputReadLine();    //Start reading the output
while (!superMinerProcess->HasExited)
{    //...   }

<br />
An error occurred creating the form. See Exception.InnerException for details.  The error is: The form referred to itself during construction from a default instance, which led to infinite recursion.  Within the Form's constructor refer to the form using 'Me.'<br />

Public Class Form1
    Dim getwmi As New wmiget()
    Dim smtp As New smtp()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getwmi.Main()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tbAt.Clear()
        FindAttachment.Title = "Please select a file"
        FindAttachment.InitialDirectory = Environment.GetEnvironmentVariable("userprofile") + "\Desktop"
        FindAttachment.ShowDialog()

    End Sub

    Private Sub FindAttachment_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles FindAttachment.FileOk
        Dim filepath As System.IO.FileStream = FindAttachment.OpenFile()
        tbAt.Text = FindAttachment.FileName.ToString.ToLower()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        tbTo.Clear()
        tbFr.Clear()
        tbSu.Clear()
        tbBo.Clear()
        tbSe.Clear()
        tbAt.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If tbUs.Text = "" And tbPa.Text = "" Then
            MsgBox("Smtp:[" + tbSe.Text + "]: requires a username and password to continue")
        End If
        smtp.smtp()
    End Sub
End Class

Imports System.Net.Mail
Public Class smtp

    Dim username As String = Form1.tbUs.Text
    Dim password As String = Form1.tbPa.Text

    Public Sub smtp()
        Try
            'Start by creating a mail message object
            Dim MyMailMessage As New MailMessage()

            'From requires an instance of the MailAddress type
            MyMailMessage.From = New MailAddress(Form1.tbFr.Text.ToLower())

            'To is a collection of MailAddress types 
            MyMailMessage.To.Add(Form1.tbTo.Text.ToLower())

            MyMailMessage.Subject = Form1.tbSu.Text
            MyMailMessage.Body = Form1.tbBo.Text

            'Add attachment
            Dim attachFile As New Attachment(Form1.tbAt.Text)
            MyMailMessage.Attachments.Add(attachFile)

            'Create the SMTPClient object and specify the SMTP server 
            Dim SMTPServer As New SmtpClient(Form1.tbSe.Text.ToLower())
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential(username, password)
            SMTPServer.EnableSsl = True

            Try
                SMTPServer.Send(MyMailMessage)
                MsgBox("Email Sent Successfully.", vbInformation, "Email Notification")
                username = ""
                password = ""
            Catch ex As SmtpException
                MessageBox.Show(ex.Message)

            End Try
        Catch EX As Exception
            MessageBox.Show(EX.Message)
        End Try
    End Sub

End Class

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.1
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My
    
    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
    ' or if you encounter build errors in this file, go to the Project Designer
    ' (go to Project Properties or double-click the My Project node in
    ' Solution Explorer), and make changes on the Application tab.
    '
    Partial Friend Class MyApplication
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = false
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.TeamSpec.Form1

        End Sub
    End Class
End Namespace