SharkyEXE
18-11-2023, 00:14
Здравствуйте
Операционная система: Microsoft Windows 7 Professional Service Pack 1 x64 Russian
Что делает код ниже
Анимация
https://disk.yandex.ru/i/n4hXyzdMX8oxuw
Видео
https://disk.yandex.ru/i/-etD5nUxRGIxlg
Есть код в интернете
https://winsourcecode.blogspot.com/2020/08/quickeditexe-turns-on-or-off-quick-edit.html
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
Прилагаю готовый архив
https://disk.yandex.ru/d/rSOhZjiwCAeH-Q
В готовом архиве извлечь два файла и запустить файл QuickEdit_While_Wend.vb.bat
Появятся много exe файлов одинаковой работы для использования.
Разница - только под какую версию .Net Framework компилировалось
v1.0.3705
v1.1.4322
v2.0.50727
v3.0
v3.5
v4.0.30319
В процессе использования одного и того-же exe файла QuickEdit_While_Wend_v2.0.50727.exe на разных:
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивируса
появлялись картинки ошибок
https://disk.yandex.ru/i/lUhahz-8uQ86GA
https://disk.yandex.ru/i/LLub1_kQKWYVCQ
Пожалуйста, будьте так, любезны, возможно или нет реализовать exe файл без разницы, какой язык программирования, PureBasic, Python, C+, C++, QBasic, Delphi и прочее, чтобы, откровенно, работало на максимальном количестве
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивирусаи самое главное - не зависло, установлена или нет некая версия .Net Framework, чтобы НЕ было предложения установить некую версию .Net Framework - так сказать, смешно, ради 1-2-3 Килобайтного файла на разном количестве
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивирусаесли увижу ошибку - сразу устанавливать некую версию .Net Framework
Спасибо.
Операционная система: Microsoft Windows 7 Professional Service Pack 1 x64 Russian
Что делает код ниже
Анимация
https://disk.yandex.ru/i/n4hXyzdMX8oxuw
Видео
https://disk.yandex.ru/i/-etD5nUxRGIxlg
Есть код в интернете
https://winsourcecode.blogspot.com/2020/08/quickeditexe-turns-on-or-off-quick-edit.html
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
Прилагаю готовый архив
https://disk.yandex.ru/d/rSOhZjiwCAeH-Q
В готовом архиве извлечь два файла и запустить файл QuickEdit_While_Wend.vb.bat
Появятся много exe файлов одинаковой работы для использования.
Разница - только под какую версию .Net Framework компилировалось
v1.0.3705
v1.1.4322
v2.0.50727
v3.0
v3.5
v4.0.30319
В процессе использования одного и того-же exe файла QuickEdit_While_Wend_v2.0.50727.exe на разных:
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивируса
появлялись картинки ошибок
https://disk.yandex.ru/i/lUhahz-8uQ86GA
https://disk.yandex.ru/i/LLub1_kQKWYVCQ
Пожалуйста, будьте так, любезны, возможно или нет реализовать exe файл без разницы, какой язык программирования, PureBasic, Python, C+, C++, QBasic, Delphi и прочее, чтобы, откровенно, работало на максимальном количестве
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивирусаи самое главное - не зависло, установлена или нет некая версия .Net Framework, чтобы НЕ было предложения установить некую версию .Net Framework - так сказать, смешно, ради 1-2-3 Килобайтного файла на разном количестве
- версиях Windows (7, 10, 11)
- права администратора или права пользователя
- х86 или х64
- антивирус доктор веб 13 или нет антивирусаесли увижу ошибку - сразу устанавливать некую версию .Net Framework
Спасибо.