Hello people,

I have a question, also i first want to thank pradeep for linking me to his blog for some information.

Well I wanted to make an server starter so that my windows form will start up and behaves like a command prompt (CMD), well that works! Thanks to Pradeep, but if i want to start an batch file it wont start, or if it does, i can't add the code?

Someone any idea?

Greatfull tnxs if you reply!

Greetzz
Hellsing112

That is because your delete the slected index then making a new index you need to replace the slected index

somthing like this (Not tested)

ListBox1.SelectedItem = textbox_Edit.text 

Do not remove the selected index but update/edit the slected index

Sorry the above is wrong the below works

  Dim int As Integer = ListBox1.SelectedIndex

        ListBox1.Items.RemoveAt(int)

        ListBox1.Items.Insert(int, TextBox1.Text)

hellsing112, on 09 May 2012 - 11:40 PM, said:

Actually that's my blog and I'm the author of that article.

Glad that it helped, and you could resolve the problem that you faced with it yourself!

If you face any further problems, or you don't understand any part of it, feel free to comment there or post it here in this thread.

Regards,
Pradeep

Dunno about the error so the best thing I can suggest is to 'catch' the error:

'if thingy.InvokeRequired Then
Try
 Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
        Me.Invoke(myDelegate, text)
Catch ex As Exception
End Try

I understand this isn't the best solution because we are only catching the error not preventing it.

pradeep1210, on 09 May 2012 - 12:50 PM, said:

hello Pradeep & Dimitry,

Accually what Pradeep linked me to worked !
So if you wanna know the code just use this:

What you need:

Textbox1
Name = OutputTextBox
Multiline = True
ReadOnly = True
Scrollbars = Both

Textbox2
Name = InputTextBox
TabIndex = 0

Button1
Name = ExecuteButton
Text = Execute

    Private WithEvents MyProcess As Process
    Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.AcceptButton = Executebutton
        MyProcess = New Process
        With MyProcess.StartInfo
            .FileName = "CMD.EXE"
            .UseShellExecute = False
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
        End With
        MyProcess.Start()
        MyProcess.BeginErrorReadLine()
        MyProcess.BeginOutputReadLine()
        AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        MyProcess.StandardInput.WriteLine("EXIT") 'send an EXIT command to the Command Prompt
        MyProcess.StandardInput.Flush()
        MyProcess.Close()
    End Sub
    Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
        AppendOutputText(vbCrLf & "Error: " & e.Data)
    End Sub
    Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
        AppendOutputText(vbCrLf & e.Data)
    End Sub
    Private Sub ExecuteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Executebutton.Click
        MyProcess.StandardInput.WriteLine(InputTextbox.Text)
        MyProcess.StandardInput.Flush()
        InputTextbox.Text = ""
    End Sub
    Private Sub AppendOutputText(ByVal text As String)
        If OutputTextbox.InvokeRequired Then
            Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
            Me.Invoke(myDelegate, text)
        Else
            OutputTextbox.AppendText(text)
        End If
    End Sub

Thank you Very much for helping me out but still there is an error:


Any sollution would be nice!
Also i need to mention that i get the Error if i close the form.

Greetzz
Hellsing112