Imports System.Runtime.InteropServices

Public Class Form1

    Private WithEvents _commandExecutor As New CommandExecutor()

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '_commandExecutor.Execute("cmd.exe", "/c c:\miner\claymore\EthDcrMiner64.exe -epool us2.ethermine.org:4444 -esm 1 -ewal {ADDRESS}.{RIGNAME} -epsw x")
        _commandExecutor.Execute("cmd.exe", "/c c:\miner\claymore\ping.bat")
    End Sub

    Private Sub _commandExecutor_OutputRead(ByVal output As String) Handles _commandExecutor.OutputRead
        Me.Invoke(New processCommandOutputDelegate(AddressOf processCommandOutput), output)
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        _commandExecutor.Dispose()
    End Sub

    Private Delegate Sub processCommandOutputDelegate(ByVal output As String)

    Private Sub processCommandOutput(ByVal output As String)
        Debug.Print(output)
    End Sub

End Class