Hi
Ich habe meinem Programm eine Konsole hinzugefügt.
Jedoch stürzt diese beim schliessen immer ab bzw. Es kommen Fehler. Hier meinen Konsolen-Code:
Bin Rahtlos, könnt ihr mir weiterhelfen?
mfg & thx
gfcwfzkm
Ich habe meinem Programm eine Konsole hinzugefügt.
Jedoch stürzt diese beim schliessen immer ab bzw. Es kommen Fehler. Hier meinen Konsolen-Code:
VB.NET-Quellcode
- Imports System.Runtime.InteropServices
- Imports System
- Module Module1
- <DllImport("kernel32.dll")> _
- Public Sub AllocConsole()
- End Sub
- <DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _
- Private Function FreeConsole() As Boolean
- End Function
- Dim x As New Threading.Thread(AddressOf Read)
- Public Sub Main()
- AllocConsole()
- Console.ForegroundColor = ConsoleColor.White
- x.Start()
- End Sub
- Public Sub Write(ByVal text As String)
- Console.ForegroundColor = ConsoleColor.Green
- Console.WriteLine("OUTPUT\> " & text)
- End Sub
- Public Sub fehler(ByVal text As String)
- Console.ForegroundColor = ConsoleColor.Red
- Console.WriteLine("OUT_ERROR\> " & text)
- End Sub
- Private Sub Read()
- A: Console.ForegroundColor = ConsoleColor.White
- Dim text As String = Console.ReadLine()
- If Not text.Trim.ToLower = Nothing Then
- Console.WriteLine("INPUT\> " & text)
- Call Commands(text)
- End If
- GoTo A
- End Sub
- Private Sub Commands(ByVal text As String)
- If text.Trim.ToLower = "help" Then
- Console.WriteLine("COMMANDS:")
- Console.WriteLine("help - Show this here...")
- Console.WriteLine("exit - Close the Application")
- Console.WriteLine("FlushMemory - Call MemoryManagement.FlushMemory()")
- ElseIf text.Trim.ToLower = "exit" Then
- FreeConsole()
- Application.Exit()
- ElseIf text.Trim.ToLower = "FlushMemory" Then
- Call MemoryManagement.FlushMemory()
- Else
- Console.WriteLine("UNKNOW COMMAND")
- End If
- End Sub
- End Module
Bin Rahtlos, könnt ihr mir weiterhelfen?
mfg & thx
gfcwfzkm