@echo off
:: ax = b8h
:: bx = bbh
:: cx = b9h
:: dx = bah
:: sp = bch
:: bp = bdh
:: si = beh
:: di = bfh

setlocal

if not exist "c:\windows\system32\debug.exe" goto no_debug

set dq="
set excla=!
md temp
cd temp

goto :length

:main
echo e 0100 b8 0 13 bb %1 0 b9 %hex% ba %y% %x% bd 16 1 cd 10 b8 0 4c cd 21 >1.txt
(echo rcx & echo 16 & echo n temp & echo w & echo q) >>1.txt
debug<1.txt>nul
echo[!str!>>echoing
copy /b temp+echoing writing.com >nul
del 1.txt
del TEMP
del echoing
del $
writing
cd..
rd/s/q temp

endlocal
endlocal
goto :eof

:hexconvert
set hexstring=0123456789abcdef
set /a h3=(strlen^>^>12)^&15
set /a h2=(strlen^>^>8)^&15
set /a h1=(strlen^>^>4)^&15
set /a h0=(strlen^>^>0)^&15
set hex=!hexstring:~%h1%,1!!hexstring:~%h0%,1! !hexstring:~%h3%,1!!hexstring:~%h2%,1!
set /a h3=(x^>^>4)^&15
set /a h2=(x^>^>0)^&15
set /a h1=(y^>^>4)^&15
set /a h0=(y^>^>0)^&15
set x=!hexstring:~%h1%,1!!hexstring:~%h0%,1!
set y=!hexstring:~%h3%,1!!hexstring:~%h2%,1!
goto main

:length
set x=%2
set y=%3
set str=%4


setlocal enabledelayedexpansion

if not "!str:~0,1!" == "!dq!" goto returning
set str=!str:~1,-1!&rem                      删除引号
if not "!str!" == "" set str=!str:""=^"!&rem 反向转义
:returning
echo[!str!>$
for /f %%@ in ("$") do set/a strlen=%%~z@-2
goto hexconvert

:no_debug

echo 我机器上没有 debug :(
goto :eof
复制代码

cmd/cwriteloca e 0 0 "hello world"
复制代码

1、禁止用户关闭功能
2、Message Beep
3、设置本控制台的标题
4、闪动窗体
5、设置本控制台的图标功能
6、窗体置顶
7、取消窗体置顶
8、将BMP文件显示在屏幕上
9、移动光标
10、开启文件夹/文件/链接
11、延迟
12、字符计算
13、字符填充
14、以特定颜色填充输出
15、以特定的颜色输出文本
16、控制台支持鼠标
17、字串转换为大写
18、字串转换为小写
19、将ASCII转换为字符
复制代码