peterboy666

回复  peterboy666  

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

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

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

peterboy666

回复  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

cmd1152

改进一下示范代码：

@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-----
复制代码

netbenton

回复 2# peterboy666

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

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

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

netbenton

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


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

peterboy666

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)