Sunday, 9 August 2020

QuickEdit.exe Turns on or off Quick Edit mode in the console.

This uses the inbuilt compilers in Windows 10 - there are three VB.NET compilers and three C# compilers - just copy each text file into the same folder and double click the batch file to make the program.
REM QuickEdit.bat
REM This file compiles QuickEdit.vb to QuickEdit.exe
REM QuickEdit.exe turns on or off Quick Edit mode in the command prompt.
REM To Use
Rem          QuickEdit [on|off]
REM              Without parameters reports on the state of Quick Edit mode.
"C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe" /target:exe /out:"%~dp0\QuickEdit.exe" "%~dp0\QuickEdit.vb" 
pause


'QuickEditOff.vb
Imports System
Imports System.IO
Imports System.Runtime.InteropServices
Imports Microsoft.Win32

Public Module MyApplication 
 
	Public Declare Function GetStdHandle Lib "kernel32" Alias "GetStdHandle" (ByVal nStdHandle As Long) As Long
	Public Declare Function GetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As IntPtr, ByRef lpMode As Integer) As Integer
	Public Declare Function SetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Long, ByVal dwMode As Integer) As Integer

	Public Const STD_ERROR_HANDLE = -12&
	Public Const STD_INPUT_HANDLE = -10&
	Public Const STD_OUTPUT_HANDLE = -11&

	'Input
	Public Const ENABLE_EXTENDED_FLAGS = &h0080
	Public Const ENABLE_ECHO_INPUT = &h0004
	Public Const ENABLE_INSERT_MODE = &h0020
	Public Const ENABLE_LINE_INPUT = &h0002
	Public Const ENABLE_MOUSE_INPUT = &h0010
	Public Const ENABLE_PROCESSED_INPUT = &h0001
	Public Const ENABLE_QUICK_EDIT_MODE = &h0040
	Public Const ENABLE_WINDOW_INPUT = &h0008
	Public Const ENABLE_VIRTUAL_TERMINAL_INPUT = &h0200
	'Output
	Public Const ENABLE_PROCESSED_OUTPUT = &h0001
	Public Const ENABLE_WRAP_AT_EOL_OUTPUT = &h0002
	Public Const ENABLE_VIRTUAL_TERMINAL_PROCESSING = &h0004
	Public Const DISABLE_NEWLINE_AUTO_RETURN = &h0008
	Public Const ENABLE_LVB_GRID_WORLDWIDE = &h0010

Sub Main()
	Dim hIn As IntPtr
	Dim Ret As Integer
	Dim Mode As Integer
	hIn  = GetStdHandle(STD_INPUT_HANDLE)
	Ret = GetConsoleMode(hIn, Mode)
	If Command() = "" then
		If (Mode And ENABLE_QUICK_EDIT_MODE) = ENABLE_QUICK_EDIT_MODE then
			Console.writeline("Quick Edit On")
		Else
			Console.writeline("Quick Edit Off")
		End If
	ElseIf LCase(Command()) = "on"
		If (Mode And ENABLE_QUICK_EDIT_MODE) = 0 then Ret = SetConsoleMode(hIn, Mode + ENABLE_QUICK_EDIT_MODE)
		If Ret = 0 then Console.WriteLine(Hex(Ret) & " - " & err.lastdllerror)
	ElseIf LCase(Command()) = "off"
		If (Mode And ENABLE_QUICK_EDIT_MODE) = ENABLE_QUICK_EDIT_MODE then Ret = SetConsoleMode(hIn, Mode - ENABLE_QUICK_EDIT_MODE)
		If Ret = 0 then Console.WriteLine(Hex(Ret) & " - " & err.lastdllerror)
	End If
End Sub
End Module

No comments:

Post a Comment