[كود] كود تنفيد اوامر cmd في vb.net - نسخة قابلة للطباعة

كود :

Public Class Form1

    Private psi As ProcessStartInfo

    Private cmd As Process

    Private Delegate Sub InvokeWithString(ByVal text As String)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            cmd.Kill()

        Catch ex As Exception

        End Try

        TextBox2.Clear()

        If TextBox1.Text.Contains(" ") Then

            psi = New ProcessStartInfo(TextBox1.Text.Split(" ")(0), TextBox1.Text.Split(" ")(1))

        Else

            psi = New ProcessStartInfo(TextBox1.Text$)

        End If

        Dim systemencoding As System.Text.Encoding

        System.Text.Encoding.GetEncoding(Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)

        With psi

            .UseShellExecute = False

            .RedirectStandardError = True

            .RedirectStandardOutput = True

            .RedirectStandardInput = True

            .CreateNoWindow = True

            .StandardOutputEncoding = systemencoding

            .StandardErrorEncoding = systemencoding

        End With

        cmd = New Process With {.StartInfo = psi, .EnableRaisingEvents = True}

        AddHandler cmd.ErrorDataReceived, AddressOf Async_Data_Received

        AddHandler cmd.OutputDataReceived, AddressOf Async_Data_Received

        cmd.Start()

        cmd.BeginOutputReadLine()

        cmd.BeginErrorReadLine()

    End Sub

    Private Sub Async_Data_Received(ByVal sender As Object, ByVal e As DataReceivedEventArgs)

        Me.Invoke(New InvokeWithString(AddressOf Sync_Output), e.Data)

    End Sub

    Private Sub Sync_Output(ByVal text As String)

        TextBox2.AppendText(text & Environment.NewLine)

        TextBox2.ScrollToCaret()

    End Sub

End Class

كود :

   Shared Sub RunCommandCom(command as String, arguments as String, permanent as Boolean) 

        Dim p as Process = new Process() 

        Dim pi as ProcessStartInfo = new ProcessStartInfo() 

        pi.Arguments = " " + if(permanent = true, "/K" , "/C") + " " + command + " " + arguments 

        pi.FileName = "cmd.exe" 

        p.StartInfo = pi 

        p.Start() 

    End Sub

كود :

MyUtilities.RunCommandCom("DIR", "/W", true)

كود :

       Dim p As Process = New Process()

        Dim pi As ProcessStartInfo = New ProcessStartInfo()

        If (permanent = True) Then

            pi.Arguments = " " + "/K" & "/C" + " " + command + " " + arguments

        End If

        pi.FileName = "cmd.exe"

        p.StartInfo = pi

        p.Start()