CMD控制台最小的鼠标与键盘兼定时三方【持续回贴更新】 - 第三方命令行 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

16楼 跳转到 »

发表于 2021-12-16 23:40 | 只看该作者

回复 13# cmd1152
在延时的时间要不断检查按键，所以不是单纯的Sleep。
/W 毫秒
/s 毫秒
功能，可以不同需求使用。

/g time
可以很好的控制进程的节奏。
已经有了思路，准备重写俄罗斯方块：提速+只显示一个窗口。

命令行直接输入出现空行的BUG,有空找一下原因在哪。谢谢测试。

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

17楼

发表于 2021-12-17 00:26 | 只看该作者

14楼发现的Bug已经处理好。

@echo off&setlocal enabledelayedexpansion

rem 解压并转码
if not exist mk.exe (
setlocal enabledelayedexpansion
for /l %%a in (1,1,100) do set /a n+=1&set t=!t!A&set A!n!=!t!
(
for /f "tokens=*" %%a in ('type "%~dpf0"') do (
if "%%a" equ "-----BEGIN CERTIFICATE-----" set a=开始
if defined a echo;%%a
)
)>mk.exe
Certutil -Decode -f "mk.exe" "mk.exe" > nul
endlocal

)

title   mk.exe 测试，按【ESC】退出！
:loop
set key=【无】
for /f "tokens=1-5" %%1 in ('mk.exe /s 50') do (
rem	echo;%%1	%%2	%%3	%%4	%%5
set str=无当前无按键
	IF "%%1" equ "2" (
		set str=鼠标
		if "%%5" equ "1" (set str=移动!str!)
		if "%%5" equ "2" (set str=双击!str!)
		if "%%5" equ "0" (
			if "%%4" equ "0" (set str=松开!str!)
			if "%%4" equ "1" (set str=按下!str!左键)
			if "%%4" equ "2" (set str=按下!str!右键)
			if "%%4" equ "4" (set str=按下!str!中键)
		)
		if "%%5" equ "4" if %%4 gtr 0 (set str=向上滚动!str!) else (set str=向下滚动!str!)
		set str=!str!，坐标：%%3行，%%2列


	) else (
		set str=键盘
		if "%%4" equ "1" (set str=按下!str!) else (set str=松开!str!)
		if "%%2" equ "0" (set str=!str!扫描码是：%%3，状态码是：%%5) else (set str=!str!ASCII码是：%%2，状态码是：%%5&set key=%%2)
	)
	
echo;!str!
)

echo;按键是%key%
if "%key%" neq "27" goto :loop

echo;测试结束，按任意键或者等待【5秒】后自动退出。
mk /w 100 >nul

mk /w 5000 >nul

goto :eof
-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALg!A9!Q!A31!
!A16!u!A5!4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJ!A10!Z2aFVXbjPBl24zwZduM8G
06fcBk+4zwahmN0GX7jPBlJpY2hduM8G!A21!FBFAABMAQMA
fmC7YQ!A10!4AAPAQsBBQwABgAAACQ!A7!DCEAAAAB!A5!g!A5!EAA
AB!A5!CAAAE!A10!Q!A10!G!A5!E!A9!w!A6!EAAAEAAA
AAAQAAAQ!A8!E!A15!PCAAADw!A25!
!A64!
!A23!gAAA8!A36!
LnRleHQAAAAcBQAAAB!A5!GAAAAB!A19!IAAAYC5yZGF0YQAA
kgEAAAAg!A5!gAAAAo!A18!EAAAEAuZGF0YQAAAOghAAAAMAAA
AAIAAAAM!A18!BAAAD!A33!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A21!FWL7IPE/GDHRfw!A5!6GUEAACL8PysCsB0IDwgdPdO
/0X8rArAdBM8IHTqPCJ186wKwHQGPCJ19+voYYtF/MnDVYvsg8T4YP9FCMdF/AAA
AACLfQzoHgQAAIvw/KwKwHRYPCB0907/RfzHRfg!A5!i0UIO0X8dQfHRfgBAAAA
rArAdDU8IHTUPCJ0EoN9EAF+CoN9+AF1BKr/TRDr4awKwHQWPCJ02IN9EAF+CoN9
+AF1BKr/TRDr5TLAqmHJwgwA6AYAAABQ6KUDAABVi+yDxPRXU1Zq9uinAwAAo2BR
QABq9eibAwAAo2RRQACNRfhQ/zVgUUAA6IEDAAC4n////yNF+IPIEFD/NWBRQADo
iAMAAOjn/v//UI9F9P9N9IN99AB1E4M9VzBAAAB0BenyAAAA6d!A5!zwKNXMEAA
aIAAAABoYDBAAP919Ojv/v//aDgwQADowQIAAGg7MEAA6LcCAABoPjBAAOitAgAA
aEEwQABoYDBAAOhBAwAAC8B0DlCPBUswQABQjwVXMEAAaEQwQABoYDBAAOggAwAA
C8B0LYM9TzBAAAB1Dv91+I8FWzBAAOlMAQAA/zVPMEAA/zVgUUAA6NACAADpNgEA
AA+2HWAwQACA+zByHoD7OXcZaGAwQADoWQIAAFCPBU8wQABqAY8FVzBAAIM9VzBA
AAB0BekU////agCNRfxQaidoADBAAP81ZFFAAOiHAgAA6eEAAADoXwIAAFCPBVMw
QAD/NUcwQABYPTgwQAB1Nf81TzBAAFgBBVMwQADowQAAAAvAdAXpiQAAAOgqAgAA
OwVTMEAAcwlqAegzAgAA69zrcetvPTswQAB1LP81TzBAAFgBBVMwQADo/AEAADsF
UzBAAHMJagHoBQIAAOvq6G8AAADrPus8PT4wQAB1NTPAOwVPMEAAdQ7ozAEAAFCP
BVswQADrQOi+AQAAOwVPMEAAdgfoOgAAAOsJagHowAEAAOvjaGAxQADoxgEAAFBb
agCNRfxQU2hgMUAA/zVkUUAA6KEBAAD/NVswQABYXltfycNVi+yDxNBTM8BQj0XQ
/zVLMEAAW41F6FBqAY1F7FD/NWBRQADoVAEAAIN96AB1B/910FhbycONRehQagGN
RexQ/zVgUUAA6DgBAAAzwGaLRexQj0Xkg/gBdS2D+wJ1CIN98AB1AuutZotF+lCP
ReBmi0X2UI9F3P918I9F2P91/I9F1OtE6zaD+AJ1MYP7AnUO/3X8W4P7AXUF6XX/
//9mi0XwUI9F4GaLRfJQj0Xc/3X0j0XY/3X8j0XU6wxqAujLAAAA6Uv/////ddT/
ddj/ddz/deD/deRoJzBAAGhoUUAA6MAAAACDxBxoaFFAAGhgMUAA6KIAAABqAY9F
0IMFWzBAAAHpCv///1WL7P91CGhgMEAA6JMAAAALwHQQ/3UIjwVHMEAAUI8FVzBA
AMnCBABVi+xXU/91COhiAAAAUFkzwFBb/3UIX2oKW/fjih+A6zADw0fi8VtfycIE
AMz/JQAgQAD/JQQgQAD/JQggQAD/JQwgQAD/JRAgQAD/JRQgQAD/JRggQAD/JRwg
QAD/JSAgQAD/JSQgQAD/JSggQAD/JSwgQAD/JTQgQACLTCQEi1QkCFNWuP////++
AQAAAAPGD7YcCDocEHU2hdt0LQPGD7YcCDocEHUnhdt0HgPGD7YcCDocEHUYhdt0
DwPGD7YcCDocEHUJhdt1xF5bwggAM8BeW8II!A28!
!A64!
!A64!
!A64!
!A64!
!A21!LQgAADCIAAA1CAAAOYgAAD2IAAABiEAABohAAAuIQAA
QCEAAEghAABUIQAAYCE!A7!B6IQ!A7!Hgg!A13!GwhAAAAIAAA
rC!A14!hiEAADQg!A29!LQgAADCIAAA
1CAAAOYgAAD2IAAABiEAABohAAAuIQAAQCEAAEghAABUIQAAYCE!A7!B6IQAA
!A5!JsARXhpdFByb2Nlc3MA5gBHZXRDb21tYW5kTGluZUEA8gBHZXRDb25zb2xl
TW9kZQAAagFHZXRTdGRIYW5kbGUAAI0BR2V0VGlja0NvdW50AAAeAlBlZWtDb25z
b2xlSW5wdXRBADQCUmVhZENvbnNvbGVJbnB1dEEAbgJTZXRDb25zb2xlTW9kZQAA
twJTbGVlcAD3AldyaXRlRmlsZQAPA2xzdHJjYXRBAAAZA2xzdHJsZW5BAABrZXJu
ZWwzMi5kbGwAAH0Cd3NwcmludGZBAHVzZXIzMi5kbGw!A21!
!A64!
!A64!
v8nRobLOyv2julsvdyAvcyAvZ10gWy9jXSBbL21dIFtudW1dAAoAJWQgJWQgJWQg
JWQgJWQNCgAvdwAvcwAvZwAvYwAvbQ!A34!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A43!=
-----END CERTIFICATE-----
复制代码

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

18楼

发表于 2021-12-17 00:45 | 只看该作者

mk /g %time%
发一个节奏控制，演示！

@echo off&setlocal enabledelayedexpansion

title 俄罗斯方块按键测试，按【Esc】键可退出。
for %%a in (1037 1039 1040 13232 11313 12727) do set /a n+=1,k%%a=n
rem 按键   【左      右     下     空格    回车    Esc】

set t=%time%
set /a a=%t:~0,2%,b=1%t:~3,2%-100,c=1%t:~6,2%-100,odt=a*3600+b*60+c
rem 计算时间

mk.exe /g
set tt=%errorlevel%

:loop
set /a tt+=25
rem 1000 / 25 = 40 ，控制节奏为：40次/秒

mk.exe /g /c %tt% >tt.txt
for /f "tokens=1-5" %%1 in (tt.txt) do (
	echo;%%1 %%2 %%3 %%4 %%5
	set /a key=k%%1%%2%%3
)

set t=%time%
set /a a=%t:~0,2%,b=1%t:~3,2%-100,c=1%t:~6,2%-100,dt=a*3600+b*60+c-odt
set /a n+=1,zhen=n/dt
rem 计算时间，算出每秒循环次数。

echo;!key!		起动以来流逝时间：%tt%	%zhen%次循环/秒
rem for /l %%a in (1,1,100) do ver >nul
if !key! neq 6 goto :loop

echo;测试结束，5 秒后自动关闭。。。
mk.exe /s /c 5000
goto :eof
复制代码

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

帖子: 675
积分: 3226
技术: 75
捐助: 101
注册时间: 2009-4-10

19楼

发表于 2021-12-30 23:13 | 只看该作者

;所有参数使用小写字母。
;参数错误，显示参数使用格式

;在等待指定的时间内，检查是否有按键，如果有则取出所有按键，并返回。如果没有则到时间后再返回。无按键返回0，有按键时返回码为事件的【数量】
;希望一直等待时，指定一个比较大的数值。
;mk /w [毫秒]

;等待指定的时间后返回，返回时检测是否有按键，有则取出所有按键返回。无按键返回0，有按键时返回码为返回事件的【数量】
;如果指定的时间太长，有点像假死，可以按Ctrl+C强制退出。
;mk /s [毫秒]

;等待到起动以来的时间超过指定时间后返回，返回时检测是否有按键，有则取出所有按键返回。无按键返回0，有按键时返回码为事件的【数量】
;指定的数值为零时，在%errorlevel%返回起动以来的时间，
;此功能可以很好的控制程序的运行节奏
;mk /G [毫秒]

;【/w,/s,/g】不能同时有效，同时使用时，以第一个为准。
;指定2个以上数字时，以第一个为准。

;起用控制台起用鼠标支持，%errorlevel%返回值为原来的状态，可设置为指定的值<num>
;不使用 /m 参数也一样有效，这个功能主要是如果有必要的话，用来恢复原来的模式。
;mk /m
;mk /m <num>

;按键过滤，使得鼠标移动不处理，键盘按下才有效，松开不处理。
;mk /c

;显示文本，支持ansi转义功能。（正在编写）
;mk /e "显示的文本"

;指定返回数据存放的文件名。如果不指定，默认为：“mk.ini” (因为要增加显示功能，将不在使用直接回显再管道接收的方式，正在编写)
;mk /f "文件名"

;回显多行为多个输入事件，需要根据自己需求进行处理。
;mk.exe 只有3.5K
;Encode 再压缩后的，文本只有3K

@echo off&setlocal enabledelayedexpansion

rem 解压并转码
if not exist mk.exe (
setlocal enabledelayedexpansion
for /l %%a in (1,1,100) do set /a n+=1&set t=!t!A&set A!n!=!t!
(
for /f "tokens=*" %%a in ('type "%~dpf0"') do (
if "%%a" equ "-----BEGIN CERTIFICATE-----" set a=开始
if defined a echo;%%a
)
)>mk.exe
Certutil -Decode -f "mk.exe" "mk.exe" > nul
endlocal

)

title   mk.exe 测试，按【ESC】退出！
:loop

for /f "tokens=1-5" %%1 in ('mk.exe /s 50') do (
rem	echo;%%1	%%2	%%3	%%4	%%5
set str=无当前无操作
set key=【无】
	IF "%%1" equ "2" (
		set str=鼠标
		if "%%5" equ "1" (set str=移动!str!)
		if "%%5" equ "2" (set str=双击!str!)
		if "%%5" equ "0" (
			if "%%4" equ "0" (set str=松开!str!)
			if "%%4" equ "1" (set str=按下!str!左键)
			if "%%4" equ "2" (set str=按下!str!右键)
			if "%%4" equ "4" (set str=按下!str!中键)
		)
		if "%%5" equ "4" if %%4 gtr 0 (set str=向上滚动!str!) else (set str=向下滚动!str!)
		set str=!str!，坐标：%%3行，%%2列


	) else IF "%%1" equ "1" (
		set str=键盘
		if "%%4" equ "1" (set str=按下!str!) else (set str=松开!str!)
		if "%%2" equ "0" (set str=!str!扫描码是：%%3，状态码是：%%5) else (set str=!str!ASCII码是：%%2，状态码是：%%5&set key=%%2 - %%3)
	) else IF "%%1" equ "4" (
		set str=改变了窗口大小为：行：%%3，列：%%2。
	)
	
echo;!str!，按键 !key!
)
set /a n+=1
title mk.exe 测试，循环 !n! 次， %time%，按Esc键退出。
if "%key%" neq "27" goto :loop

echo;测试结束，按任意键或者等待【5秒】后自动退出。
mk /w 100 >nul

mk /w 5000 >nul

goto :eof
-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALg!A9!Q!A31!
!A16!u!A5!4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJ!A10!Z2aFVXbjPBl24zwZduM8G
06fcBk+4zwahmN0GX7jPBlJpY2hduM8G!A21!FBFAABMAQMA
EAvAYQ!A10!4AAPAQsBBQwABgAAACQ!A7!DCEAAAAB!A5!g!A5!EAA
AB!A5!CAAAE!A10!Q!A10!G!A5!E!A9!w!A6!EAAAEAAA
AAAQAAAQ!A8!E!A15!PCAAADw!A25!
!A64!
!A23!gAAA8!A36!
LnRleHQAAABMBQAAAB!A5!GAAAAB!A19!IAAAYC5yZGF0YQAA
kgEAAAAg!A5!gAAAAo!A18!EAAAEAuZGF0YQAAAOghAAAAMAAA
AAIAAAAM!A18!BAAAD!A33!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A21!FWL7IPE/GDHRfw!A5!6I8EAACL8PysCsB0IDwgdPdO
/0X8rArAdBM8IHTqPCJ186wKwHQGPCJ19+voYYtF/MnDVYvsg8T4YP9FCMdF/AAA
AACLfQzoSAQAAIvw/KwKwHRYPCB0907/RfzHRfg!A5!i0UIO0X8dQfHRfgBAAAA
rArAdDU8IHTUPCJ0EoN9EAF+CoN9+AF1BKr/TRDr4awKwHQWPCJ02IN9EAF+CoN9
+AF1BKr/TRDr5TLAqmHJwgwA6AYAAABQ6M8DAABVi+yDxPRXU1Zq9ujRAwAAo2BR
QABq9ejFAwAAo2RRQACNRfhQ/zVgUUAA6KsDAAC4n////yNF+IPIEFD/NWBRQADo
sgMAAOjn/v//UI9F9P9N9IN99AB1E4M9VzBAAAB0BenyAAAA6d!A5!zwKNXMEAA
aIAAAABoYDBAAP919Ojv/v//aDgwQADo7AIAAGg7MEAA6OICAABoPjBAAOjYAgAA
aEEwQABoYDBAAOhxAwAAC8B0DlCPBUswQABQjwVXMEAAaEQwQABoYDBAAOhQAwAA
C8B0LYM9TzBAAAB1Dv91+I8FWzBAAOlMAQAA/zVPMEAA/zVgUUAA6PoCAADpNgEA
AA+2HWAwQACA+zByHoD7OXcZaGAwQADohAIAAFCPBU8wQABqAY8FVzBAAIM9VzBA
AAB0BekU////agCNRfxQaidoADBAAP81ZFFAAOixAgAA6eEAAADoiQIAAFCPBVMw
QAD/NUcwQABYPTgwQAB1Nf81TzBAAFgBBVMwQADowQAAAAvAdAXpiQAAAOhUAgAA
OwVTMEAAcwlqAehdAgAA69zrcetvPTswQAB1LP81TzBAAFgBBVMwQADoJgIAADsF
UzBAAHMJagHoLwIAAOvq6G8AAADrPus8PT4wQAB1NTPAOwVPMEAAdQ7o9gEAAFCP
BVswQADrQOjoAQAAOwVPMEAAdgfoOgAAAOsJagHo6gEAAOvjaGAxQADo8AEAAFBb
agCNRfxQU2hgMUAA/zVkUUAA6MsBAAD/NVswQABYXltfycNVi+yDxNBTM8BQj0XQ
/zVLMEAAW41F6FBqAY1F7FD/NWBRQADofgEAAIN96AB1B/910FhbycMzwGaLRexQ
j0Xkg/gBdS2D+wJ1CIN98AB1AutzZotF+lCPReBmi0X2UI9F3P918I9F2P91/I9F
1Otv60yD+AJ1MIP7AnUL/3X8W4P7AXUC6z5mi0XwUI9F4GaLRfJQj0Xc/3X0j0XY
/3X8j0XU6zrrF4P4BHUSZotF8FCPReBmi0XyUI9F3OshagXo9AAAAI1F6FBqAY1F
7FD/NWBRQADo0wAAAOk1////jUXoUGoBjUXsUP81YFFAAOi5AAAA/3XU/3XY/3Xc
/3Xg/3XkaCcwQABoaFFAAOi/AAAAg8QcaGhRQABoYDFAAOihAAAAagGPRdCDBVsw
QAAB6d/+//9Vi+z/dQhoYDBAAOiYAAAAC8B0EP91CI8FRzBAAFCPBVcwQADJwgQA
VYvsV1P/dQjoYQAAAFBZM8BQW/91CF9qClv344ofgOswA8NH4vFbX8nCBAD/JQAg
QAD/JQQgQAD/JQggQAD/JQwgQAD/JRAgQAD/JRQgQAD/JRggQAD/JRwgQAD/JSAg
QAD/JSQgQAD/JSggQAD/JSwgQAD/JTQgQADMzMzMzMyLTCQEi1QkCFNWuP////++
AQAAAAPGD7YcCDocEHU2hdt0LQPGD7YcCDocEHUnhdt0HgPGD7YcCDocEHUYhdt0
DwPGD7YcCDocEHUJhdt1xF5bwggAM8BeW8II!A28!
!A64!
!A64!
!A64!
!A21!LQgAADCIAAA1CAAAOYgAAD2IAAABiEAABohAAAuIQAA
QCEAAEghAABUIQAAYCE!A7!B6IQ!A7!Hgg!A13!GwhAAAAIAAA
rC!A14!hiEAADQg!A29!LQgAADCIAAA
1CAAAOYgAAD2IAAABiEAABohAAAuIQAAQCEAAEghAABUIQAAYCE!A7!B6IQAA
!A5!JsARXhpdFByb2Nlc3MA5gBHZXRDb21tYW5kTGluZUEA8gBHZXRDb25zb2xl
TW9kZQAAagFHZXRTdGRIYW5kbGUAAI0BR2V0VGlja0NvdW50AAAeAlBlZWtDb25z
b2xlSW5wdXRBADQCUmVhZENvbnNvbGVJbnB1dEEAbgJTZXRDb25zb2xlTW9kZQAA
twJTbGVlcAD3AldyaXRlRmlsZQAPA2xzdHJjYXRBAAAZA2xzdHJsZW5BAABrZXJu
ZWwzMi5kbGwAAH0Cd3NwcmludGZBAHVzZXIzMi5kbGw!A21!
!A64!
!A64!
v8nRobLOyv2julsvdyAvcyAvZ10gWy9jXSBbL21dIFtudW1dAAoAJWQgJWQgJWQg
JWQgJWQNCgAvdwAvcwAvZwAvYwAvbQ!A34!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A64!
!A43!=
-----END CERTIFICATE-----
复制代码

TOP

ivanbj

列兵

Rank: 1

帖子: 2
积分: 13
技术: 0
捐助: 0
注册时间: 2021-9-10

20楼

发表于 2022-11-11 14:18 | 只看该作者

怎么找不到下载的地方呢？

TOP

hnfeng

二级士官

Rank: 2

帖子: 139
积分: 162
技术: 1
捐助: 0
注册时间: 2012-4-21

21楼

发表于 2023-11-17 08:39 | 只看该作者

强大，只是我不知道怎么用在菜单选择上

TOP

返回列表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]