Wyłączająca się konsolka

[[email protected]]

Włącza się Konsolka i Wyłącza i nic macie tu kod:

 

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading


Public Class Launcher


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub


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


        Dim m100f As String = "SET BINDIR=%~dp0 CD /D "%BINDIR%" java -XmxTextBox2.TextM -XmsTextBox2.TextM -jar TextBox1.Text PAUSE"


        Shell("cmd.exe /c" & m100f)
            Thread.Sleep(10)
        Shell("taskkill.exe /f /im cmd.exe")


    End Sub


    Private Sub Form1_FormClosed1(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        My.Settings.Save()
    End Sub


End Class