Rank: 8 Rank: 8

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

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2021-11-22 23:52 | 只看该作者

[其他] CMD控制台最小的鼠标与键盘兼定时三方【持续回贴更新】

mk.exe，只有1,248字节
同时等待接受键盘和鼠标的输入，
win10和win XP 测试过可以使用。
支持全键盘按键，包括，控制键和状态键
支持鼠标左、右、中按键
支持定时、延时，程序节奏控制
增强版：3.5KB，最新请看11楼

使用方法，请从测试例子中找。

批处理使用测试例子

@echo off&setlocal enabledelayedexpansion

if not exist mk.exe (
(
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
)

:loop
for /f "tokens=1-5" %%1 in ('mk.exe') do (
rem	echo;%%1	%%2	%%3	%%4	%%5

	IF "%%1" equ "2" (
		set str=鼠标
		if "%%5" equ "1" (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)
	)
)

echo;!str!
goto :loop


pause
goto :eof
-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAwAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABfVwu/GzZl7Bs2ZewbNmXs
lSl27BY2ZeznFnfsGjZl7FJpY2gbNmXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
UEUAAEwBAgA4dJxhAAAAAAAAAADgAA8BCwEFDLABAAAgAQAAAAAAABACAAAQAgAA
wAMAAAAAQAAQAAAAEAAAAAQAAAAAAAAABAAAAAAAAADgBAAAEAIAAAAAAAADAAAA
AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAADoAwAAPAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAMAACgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAudGV4dAAAAKoBAAAQAgAAsAEAABACAAAAAAAAAAAAAAAAAAAgAABg
LnJkYXRhAAAcAQAAwAMAACABAADAAwAAAAAAAAAAAAAAAAAAQAAAQAAAAAAAAAAA
6BcAAABQ6G8BAAAlZCAlZCAlZCAlZCAlZA0KAFWL7IHESP///2Bq9uhZAQAAiYVg
////avXoTAEAAImFXP///42FZP///1D/tWD////oLgEAALif////I4Vk////g8gQ
UP+1YP///+gmAQAAjYVo////UGoBjYVs////UP+1YP///+gFAQAAM8Bmi4Vs////
UI+FWP///4P4AXU4ZouFev///1CPhVT///9mi4V2////UI+FUP////+1cP///4+F
TP////+1fP///4+FSP///+tJ6zuD+AJ1NmaLhXD///9Qj4VU////ZouFcv///1CP
hVD/////tXT///+PhUz/////tXz///+PhUj////rDGoC6IIAAADpUf////+1ZP//
//+1YP///+hmAAAA/7VI/////7VM/////7VQ/////7VU/////7VY////aBsCQACN
RYBQ6EwAAACDxBxQW2oAjYVo////UFONRYBQ/7Vc////6CgAAABhycPM/yXAA0AA
/yXEA0AA/yXIA0AA/yXMA0AA/yXQA0AA/yXUA0AA/yXYA0AA/yXgA0AAAAAAAAAA
TAQAAFoEAABsBAAAfAQAAJAEAACiBAAAqgQAAAAAAADEBAAAAAAAACQEAAAAAAAA
AAAAALYEAADAAwAARAQAAAAAAAAAAAAA0AQAAOADAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAEwEAABaBAAAbAQAAHwEAACQBAAAogQAAKoEAAAAAAAAxAQAAAAAAACbAEV4
aXRQcm9jZXNzAPIAR2V0Q29uc29sZU1vZGUAAGoBR2V0U3RkSGFuZGxlAAA0AlJl
YWRDb25zb2xlSW5wdXRBAG4CU2V0Q29uc29sZU1vZGUAALcCU2xlZXAA9wJXcml0
ZUZpbGUAa2VybmVsMzIuZGxsAAB9AndzcHJpbnRmQQB1c2VyMzIuZGxsAAAAAAAA
-----END CERTIFICATE-----
复制代码

测试结果如下：

鼠标，坐标：16行，54列
鼠标，坐标：16行，54列
鼠标，坐标：16行，54列
移动鼠标，坐标：16行，54列
移动鼠标，坐标：16行，55列
移动鼠标，坐标：16行，55列
鼠标，坐标：16行，55列
移动鼠标，坐标：16行，55列
移动鼠标，坐标：16行，55列
鼠标，坐标：16行，55列
按下键盘扫描码是：17，状态码是：8
松开键盘扫描码是：17，状态码是：0
移动鼠标，坐标：16行，55列
按下键盘ASCII码是：97，状态码是：0
松开键盘扫描码是：16，状态码是：0
按下键盘ASCII码是：102，状态码是：0
松开键盘ASCII码是：102，状态码是：0
按下键盘ASCII码是：100，状态码是：0
松开键盘ASCII码是：100，状态码是：0
按下鼠标左键，坐标：16行，55列
松开鼠标，坐标：16行，55列
鼠标，坐标：16行，55列
松开鼠标，坐标：16行，55列
移动鼠标，坐标：16行，55列
复制代码

MASM32,源码

comment * ?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Sample code for < Win32ASM Programming 2nd Edition>
; by netBenton,37659560
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 编译链接：
;ml /c /coff mk.asm
;Link /SUBSYSTEM:CONSOLE /ALIGN:16 mk.obj
; 功能：
; mk.asm ---> CMD控制台最小的鼠标与键盘三方。

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                
   ?*

    .586                       ; create 32 bit code
    .model flat, stdcall       ; 32 bit memory model
    option casemap :none       ; case sensitive

 ;包含windows 关键字以及数据结构
    include \masm32\include\windows.inc

 ;包含API库
    include \masm32\include\kernel32.inc
    include \masm32\include\user32.inc
    include \masm32\include\masm32.inc
; 包含宏库
    include \masm32\macros\macro$.asm		;注意并非使用源版，是函数增加版。所有子过程作为函数使用在过程名后加 “$”
;    include \masm32\macros\macros.asm		


    includelib \masm32\lib\kernel32.lib
    includelib \masm32\lib\user32.lib
    includelib \masm32\lib\masm32.lib

szText MACRO Name, Text:VARARG
    LOCAL lbl
	Name db Text,0dh,0ah,0
ENDM


STATE	STRUCT
	dw	?
	dw	?
STATE	ENDS

USBUFF	STRUCT
 	dw	64 dup (?)
USBUFF	ENDS



    .code


;程序入口
start:
	call main
	invoke ExitProcess,eax
  
;这里定义数据，
	szText szTx,"%d %d %d %d %d"
;这里写代码
main		proc
		local	@rvstring:USBUFF		;输入缓存
		local	@inRec:INPUT_RECORD		;输入缓存结构定义
		local	@state:STATE		;用来接收api调用返回值
		local	@oldmode:DWORD		;原控制台模式，以备退出时恢复
		local	@hStdIn:DWORD
		local	@hStdOut:DWORD	
		local	@varar1:DWORD		;数据一
		local	@varar2:DWORD		;...
		local	@varar3:DWORD		;...
		local	@varar4:DWORD		;...
		local	@varar5:DWORD		;数据五
		pusha
		
	mov	@hStdIn,fn$(GetStdHandle,STD_INPUT_HANDLE)			;获取输入句柄
	mov	@hStdOut,fn$(GetStdHandle,STD_OUTPUT_HANDLE)		;获取输出句柄
	fn	GetConsoleMode,@hStdIn,addr @oldmode			;获取输入模式
	mov	eax,not (ENABLE_QUICK_EDIT_MODE or ENABLE_INSERT_MODE)	;清除快速编辑、插入模式
	and	eax,@oldmode
	or	eax,ENABLE_MOUSE_INPUT					;增加鼠标支持模式
	fn	SetConsoleMode,@hStdIn,eax					;起用鼠标支持
	
@@:

	fn	ReadConsoleInputA,@hStdIn,addr @inRec,1,addr @state	;读取输入缓存
	xor	eax,eax
	mov ax,@inRec.EventType			;处理字宽数据，清零高位。
	m2m	@varar1,eax
	
	.if (eax == KEY_EVENT )		;键盘事件
	mov	ax,@inRec.KeyEvent.UnicodeChar				;转换后的 ASCII 字符
	m2m	@varar2,eax
	
	mov	ax,@inRec.KeyEvent.wVirtualKeyCode			;给定键的 虚拟键代码
	m2m @varar3,eax
	m2m @varar4,@inRec.KeyEvent.bKeyDown			;如果按下该键，则此成员为 TRUE。 否则，此成员为 FALSE 
	m2m @varar5,@inRec.KeyEvent.dwControlKeyState	;控制键的状态。
	
	jmp @F
	
	.elseif (eax == MOUSE_EVENT )	;鼠标事件
	mov	ax,@inRec.MouseEvent.dwMousePosition.x		;列
	m2m @varar2,eax
	mov	ax,@inRec.MouseEvent.dwMousePosition.y		;行
	m2m @varar3,eax
	m2m @varar4,@inRec.MouseEvent.dwButtonState		;按键
	m2m @varar5,@inRec.MouseEvent.dwEventFlags		;键状态，双击等

	jmp @F
	
	.endif
	fn	Sleep,2			;延迟等待事件处理完成
	jmp	@B
@@:

	fn	SetConsoleMode,@hStdIn,@oldmode				;恢复原来输入模式
	invoke wsprintfA,addr @rvstring,offset szTx,@varar1,@varar2,@varar3,@varar4,@varar5	;转换输出格式
	
	m2m ebx,eax		;用EAX传送参数回出错
	fn	WriteFile,@hStdOut,addr @rvstring,ebx,addr @state,NULL	;输出结果,写标准句柄，输出到屏幕
	popa
	
	ret

main	endp


end start
复制代码

4 评分人数

cmd1152: 让我的批处理OS 更进一步！技术 + 1
HOPE2021: 感谢分享技术 + 1
slimay: 好久不见技术 + 1
523066680: 持续输出技术 + 1

peterboy666

一级士官

Rank: 2

帖子: 98
积分: 126
技术: 1
捐助: 0
注册时间: 2020-10-14

2楼

发表于 2021-11-23 19:35 | 只看该作者

本帖最后由 peterboy666 于 2021-11-23 20:00 编辑

1.
此批处理在 Windows XP X86 中有问题,
因为 Windows XP 没有 certutil.exe

2.
此批处理在 Windows 7 X64 中有问题,
当运行 mk.exe 时报错

---------------------------
mk.exe - 应用程序错误
---------------------------
应用程序无法正确启动 (0xc0000018)。请按一下 [确定] 关闭应用程序。
---------------------------
确定
---------------------------

3.
将此批处理在 Windows 7 X64 中运行时建立的 mk.exe 复制到 Windows XP X86,
可正常运行.

4.
netbenton> include \masm32\macros\macro$.asm
netbenton> ;注意并非使用源版，是函数增加版。所有子过程作为函数使用在过程名后加 “$”

可有下载点 ?
我用原版 MASM32V10R 无法编译.

5.
F1 扫瞄码应该是 59(0x3B),
为何显示是 112 ?

6.
建议加个 Hex 显示,
例如 59(0x3B)

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

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

3楼

发表于 2021-11-23 21:30 | 只看该作者

win7 我没有测试，win10 64位，以及winXP 32位测试没有问题。

macro$.asm，只是把全部有返回值的宏都加了“$”，以区分是作为函数使用，还是作为子程序使用。
百度贴吧下载：
链接：[url]https://pan.baidu.com/s/1FKD6eqOxyUWzKC9VXP4knQ
提取码：Bat8[/url]

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

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

4楼

发表于 2021-11-25 17:15 | 只看该作者

回复 2# peterboy666

我特意装了个win7 32位系统，测试了一下，发现可以正常运行！您可能因为 Certutil 反编码时会提示病毒，没有生成正确的mk.exe。

win XP 32位, win7 32位，win10 64位，三个系统都可以通过。

Certutil 反编码时会提示病毒，这个和mk.exe无关系，mk.exe是很纯正的

TOP

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

5楼

发表于 2021-11-25 21:58 | 只看该作者

本帖最后由 cmd1152 于 2021-12-1 18:19 编辑

改进一下示范代码：

@echo off&setlocal enabledelayedexpansion
if not exist mk.exe (
(
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
)
:loop
set tmp=!time:~6,-3!
for /f "tokens=1-5" %%1 in ('mk.exe') do (
        set ex=%%1 %%2 %%3 %%4 %%5
        set /a sleep=!time:~6,-3!-!tmp! 2>nul
        if not "!sleep:~0,1!" == "-" (set Sleeps=程序等待了!sleep!秒) else (set Sleeps=程序等待未知)
	IF "%%1" equ "2" (
		set str=鼠标
		if "%%5" equ "1" (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 str=!str!，!sleeps!，mk返回!ex!，批处理返回!sleep!
echo;!str!
goto :loop

pause
goto :eof
-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAwAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABfVwu/GzZl7Bs2ZewbNmXs
lSl27BY2ZeznFnfsGjZl7FJpY2gbNmXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
UEUAAEwBAgA4dJxhAAAAAAAAAADgAA8BCwEFDLABAAAgAQAAAAAAABACAAAQAgAA
wAMAAAAAQAAQAAAAEAAAAAQAAAAAAAAABAAAAAAAAADgBAAAEAIAAAAAAAADAAAA
AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAADoAwAAPAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAMAACgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAudGV4dAAAAKoBAAAQAgAAsAEAABACAAAAAAAAAAAAAAAAAAAgAABg
LnJkYXRhAAAcAQAAwAMAACABAADAAwAAAAAAAAAAAAAAAAAAQAAAQAAAAAAAAAAA
6BcAAABQ6G8BAAAlZCAlZCAlZCAlZCAlZA0KAFWL7IHESP///2Bq9uhZAQAAiYVg
////avXoTAEAAImFXP///42FZP///1D/tWD////oLgEAALif////I4Vk////g8gQ
UP+1YP///+gmAQAAjYVo////UGoBjYVs////UP+1YP///+gFAQAAM8Bmi4Vs////
UI+FWP///4P4AXU4ZouFev///1CPhVT///9mi4V2////UI+FUP////+1cP///4+F
TP////+1fP///4+FSP///+tJ6zuD+AJ1NmaLhXD///9Qj4VU////ZouFcv///1CP
hVD/////tXT///+PhUz/////tXz///+PhUj////rDGoC6IIAAADpUf////+1ZP//
//+1YP///+hmAAAA/7VI/////7VM/////7VQ/////7VU/////7VY////aBsCQACN
RYBQ6EwAAACDxBxQW2oAjYVo////UFONRYBQ/7Vc////6CgAAABhycPM/yXAA0AA
/yXEA0AA/yXIA0AA/yXMA0AA/yXQA0AA/yXUA0AA/yXYA0AA/yXgA0AAAAAAAAAA
TAQAAFoEAABsBAAAfAQAAJAEAACiBAAAqgQAAAAAAADEBAAAAAAAACQEAAAAAAAA
AAAAALYEAADAAwAARAQAAAAAAAAAAAAA0AQAAOADAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAEwEAABaBAAAbAQAAHwEAACQBAAAogQAAKoEAAAAAAAAxAQAAAAAAACbAEV4
aXRQcm9jZXNzAPIAR2V0Q29uc29sZU1vZGUAAGoBR2V0U3RkSGFuZGxlAAA0AlJl
YWRDb25zb2xlSW5wdXRBAG4CU2V0Q29uc29sZU1vZGUAALcCU2xlZXAA9wJXcml0
ZUZpbGUAa2VybmVsMzIuZGxsAAB9AndzcHJpbnRmQQB1c2VyMzIuZGxsAAAAAAAA
-----END CERTIFICATE-----
复制代码

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

peterboy666

一级士官

Rank: 2

帖子: 98
积分: 126
技术: 1
捐助: 0
注册时间: 2020-10-14

6楼

发表于 2021-11-25 23:31 | 只看该作者

回复 peterboy666

我特意装了个win7 32位系统，测试了一下，发现可以正常运行！您可能因为 ...
netbenton 发表于 2021-11-25 17:15

把手边的 OS 测了一遍

Windows XP X86: OK

Windiws 7 X86 : OK
Windiws 7 X64 : NG

Windiws 8.1 X86 : OK
Windiws 8.1 X64 : NG

Windiws 10 X86 : OK
Windiws 10 X64 : OK

Windiws 11 X64 : OK

TOP

peterboy666

一级士官

Rank: 2

帖子: 98
积分: 126
技术: 1
捐助: 0
注册时间: 2020-10-14

7楼

发表于 2021-11-25 23:47 | 只看该作者

回复 peterboy666

我特意装了个win7 32位系统，测试了一下，发现可以正常运行！您可能因为 ...
netbenton 发表于 2021-11-25 17:15

< ml /c /coff mk.asm
< Link /SUBSYSTEM:CONSOLE /ALIGN:16 mk.obj

我编译了你的 ASM 也是无法运行,
但取消 /ALIGN:16 就可以运行.

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

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

8楼

发表于 2021-11-26 16:49 | 只看该作者

回复 7# peterboy666
使用参数 /ALIGN:16，主要是为了去掉为0无效字节，达到最少字节。
使用参数 /MERGE（合并节），编译文件为1536字节。能运行，但是杀软会报毒。
不使用参数为2048字节。应该包括win10以下的32位64位系统都可以正常。

TOP

peterboy666

一级士官

Rank: 2

帖子: 98
积分: 126
技术: 1
捐助: 0
注册时间: 2020-10-14

9楼

发表于 2021-11-26 19:03 | 只看该作者

本帖最后由 peterboy666 于 2021-11-26 19:17 编辑

回复 8# netbenton

这个我知道.

为了兼容性,
我自编译了.

Windows 7/8.1 X64 无法运行,
我猜 Windows 8 X64 也是无法运行(手边没有,无法测试).

TOP

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

10楼

发表于 2021-11-27 12:33 | 只看该作者

本帖最后由 cmd1152 于 2021-11-27 12:36 编辑

mk改进版(红色参数是我增加的，其他的参数是mk返回的)
注：使用时间如果返回-1，代表系统时间经过了1分钟，批处理时间溢出
返回参数： [mk参数1] [mk参数2] [mk参数3] [mk参数4] [mk参数5] [使用时间]

@echo off&setlocal enabledelayedexpansion
if not exist mk.exe (
(
set /p=创建mk.exe...>nul
for /f "tokens=*" %%a in ('type "%~dpf0"') do (
if "%%a" equ "-----BEGIN CERTIFICATE-----" set a=开始
if defined a echo;%%a
set /p=^[完成^]>nul
echo;
)
)>mk.exe
Certutil -Decode -f "mk.exe" "mk.exe" > nul
)
set tmp=!time:~6,-3!
for /f "tokens=1-5" %%1 in ('mk.exe') do (
        set /a sleep=!time:~6,-3!-!tmp! 2>nul
        if not "!sleep:~0,1!" == "-" (set Sleeps=!sleep!) else (set Sleeps=-1)
        echo %%1 %%2 %%3 %%4 %%5 !Sleeps!
        exit /b
)

-----BEGIN CERTIFICATE-----
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAwAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5v
dCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAABfVwu/GzZl7Bs2ZewbNmXs
lSl27BY2ZeznFnfsGjZl7FJpY2gbNmXsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
UEUAAEwBAgA4dJxhAAAAAAAAAADgAA8BCwEFDLABAAAgAQAAAAAAABACAAAQAgAA
wAMAAAAAQAAQAAAAEAAAAAQAAAAAAAAABAAAAAAAAADgBAAAEAIAAAAAAAADAAAA
AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAADoAwAAPAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAMAACgAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAudGV4dAAAAKoBAAAQAgAAsAEAABACAAAAAAAAAAAAAAAAAAAgAABg
LnJkYXRhAAAcAQAAwAMAACABAADAAwAAAAAAAAAAAAAAAAAAQAAAQAAAAAAAAAAA
6BcAAABQ6G8BAAAlZCAlZCAlZCAlZCAlZA0KAFWL7IHESP///2Bq9uhZAQAAiYVg
////avXoTAEAAImFXP///42FZP///1D/tWD////oLgEAALif////I4Vk////g8gQ
UP+1YP///+gmAQAAjYVo////UGoBjYVs////UP+1YP///+gFAQAAM8Bmi4Vs////
UI+FWP///4P4AXU4ZouFev///1CPhVT///9mi4V2////UI+FUP////+1cP///4+F
TP////+1fP///4+FSP///+tJ6zuD+AJ1NmaLhXD///9Qj4VU////ZouFcv///1CP
hVD/////tXT///+PhUz/////tXz///+PhUj////rDGoC6IIAAADpUf////+1ZP//
//+1YP///+hmAAAA/7VI/////7VM/////7VQ/////7VU/////7VY////aBsCQACN
RYBQ6EwAAACDxBxQW2oAjYVo////UFONRYBQ/7Vc////6CgAAABhycPM/yXAA0AA
/yXEA0AA/yXIA0AA/yXMA0AA/yXQA0AA/yXUA0AA/yXYA0AA/yXgA0AAAAAAAAAA
TAQAAFoEAABsBAAAfAQAAJAEAACiBAAAqgQAAAAAAADEBAAAAAAAACQEAAAAAAAA
AAAAALYEAADAAwAARAQAAAAAAAAAAAAA0AQAAOADAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAEwEAABaBAAAbAQAAHwEAACQBAAAogQAAKoEAAAAAAAAxAQAAAAAAACbAEV4
aXRQcm9jZXNzAPIAR2V0Q29uc29sZU1vZGUAAGoBR2V0U3RkSGFuZGxlAAA0AlJl
YWRDb25zb2xlSW5wdXRBAG4CU2V0Q29uc29sZU1vZGUAALcCU2xlZXAA9wJXcml0
ZUZpbGUAa2VybmVsMzIuZGxsAAB9AndzcHJpbnRmQQB1c2VyMzIuZGxsAAAAAAAA
-----END CERTIFICATE-----
复制代码

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

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

11楼

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

本帖最后由 netbenton 于 2021-12-15 23:31 编辑

mk.exe 增强了！！！！

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

;在等待指定的时间内，检查是否有按键，如果有则取出所有按键，并返回。如果没有则到时间后再返回。无按键返回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

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

具体用法，请在测试中找。可以尝试同时按2个，3个，4个键，看看效果如何！！！

@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-%%5)
	)
	
echo;!str!
)

echo;按键是%key%
if "%key%" neq "27-0" 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
lf+5YQ!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!6F8EAACL8PysCsB0IDwgdPdO
/0X8rArAdBM8IHTqPCJ186wKwHQGPCJ19+voYYtF/MnDVYvsg8T4YP9FCMdF/AAA
AACLfQzoGAQAAIvw/KwKwHRYPCB0907/RfzHRfg!A5!i0UIO0X8dQfHRfgBAAAA
rArAdDU8IHTUPCJ0EoN9EAF+CoN9+AF1BKr/TRDr4awKwHQWPCJ02IN9EAF+CoN9
+AF1BKr/TRDr5TLAqmHJwgwA6AYAAABQ6J8DAABVi+yDxPRXU1Zq9uihAwAAo2BR
QABq9eiVAwAAo2RRQACNRfhQ/zVgUUAA6HsDAAC4n////yNF+IPIEFD/NWBRQADo
ggMAAOjn/v//UI9F9P9N9IN99AB1E4M9VzBAAAB0BenyAAAA6d!A5!zwKNXMEAA
aIAAAABoYDBAAP919Ojv/v//aDgwQADouwIAAGg7MEAA6LECAABoPjBAAOinAgAA
aEEwQABoYDBAAOhBAwAAC8B0DlCPBUswQABQjwVXMEAAaEQwQABoYDBAAOggAwAA
C8B0LYM9TzBAAAB1Dv91+I8FWzBAAOlGAQAA/zVPMEAA/zVgUUAA6MoCAADpMAEA
AA+2HWAwQACA+zByHoD7OXcZaGAwQADoUwIAAFCPBU8wQABqAY8FVzBAAIM9VzBA
AAB0BekU////agCNRfxQaidoADBAAP81ZFFAAOiBAgAA6dsAAADoWQIAAFCPBVMw
QAD/NUcwQABYPTgwQAB1Nf81TzBAAFgBBVMwQADouwAAAAvAdAXpiQAAAGoC6DoC
AADoHQIAADsFUzBAAHMC69zrcetvPTswQAB1LP81TzBAAFgBBVMwQADrDGoC6AoC
AADo7QEAADsFUzBAAHLs6GkAAADrPus8PT4wQAB1NTPAOwVPMEAAdQ7oxgEAAFCP
BVswQADrOjsFTzBAAHYH6DkAAADrDmoC6L8BAADoogEAAOvjUFtqAI1F/FBoACAA
AGhgMUAA/zVkUUAA6KEBAAD/NVswQABYXltfycNVi+yDxNBTM8BQj0XQ/zVLMEAA
W41F6FBqAY1F7FD/NWBRQADoVAEAAIN96AB1B/910FhbycONRehQagGNRexQ/zVg
UUAA6DgBAAAzwGaLRexQj0Xkg/gBdS2D+wJ1CIN98AB1AuutZotF+lCPReBmi0X2
UI9F3P918I9F2P91/I9F1OtE6zaD+AJ1MYP7AnUO/3X8W4P7AXUF6XX///9mi0Xw
UI9F4GaLRfJQj0Xc/3X0j0XY/3X8j0XU6wxqAujLAAAA6Uv/////ddT/ddj/ddz/
deD/deRoJzBAAGhoUUAA6MAAAACDxBxoaFFAAGhgMUAA6KIAAABqAY9F0IMFWzBA
AAHpCv///1WL7P91CGhgMEAA6JkAAAALwHQQ/3UIjwVHMEAAUI8FVzBAAMnCBABV
i+xXU/91COhiAAAAUFkzwFBb/3UIX2oKW/fjih+A6zADw0fi8VtfycIEAMz/JQAg
QAD/JQQgQAD/JQggQAD/JQwgQAD/JRAgQAD/JRQgQAD/JRggQAD/JRwgQAD/JSAg
QAD/JSQgQAD/JSggQAD/JSwgQAD/JTQgQADMzMzMzMyLTCQEi1QkCFNWuP////++
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

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

12楼

发表于 2021-12-16 20:03 | 只看该作者

我的ESC按下时返回的是 27-32 而不是 27-0 ？？？

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

13楼

发表于 2021-12-16 20:06 | 只看该作者

本帖最后由 cmd1152 于 2021-12-16 20:08 编辑

延时不准确：关闭360安全卫士只延时1秒不到，打开360安全卫士延时了8秒？
建议使用 Sleep ，而不是其他FOR延时
（注：C语言有FOR和Sleep）

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

14楼

发表于 2021-12-16 20:13 | 只看该作者

本帖最后由 cmd1152 于 2021-12-16 20:16 编辑

还有在直接打开的cmd里执行，会Tab很大一段距离（不要问为什么不只发1帖子，因为发不下）：

Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Users\Administrator\Desktop>mk /w 5000
2 35 1 0 1

































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































C:\Users\Administrator\Desktop>
复制代码

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

netbenton

荣誉版主

Rank: 8 Rank: 8

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

15楼

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

回复 12# cmd1152
谢谢关注。
最后一位是状态码，ESC,只要ASCII码是27就可以确定了。确实有误。

TOP

12 下一页

返回列表

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

[其他] CMD控制台最小的鼠标与键盘兼定时三方【持续回贴更新】

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

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