[其他] writeloca 程序输出彩色字符

email10t

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

email10t

最近研究起了 C，学着学着就心血来潮地写了这个批处理第3方 - gBatch话说 真的很感谢 defanive ～ 他的百度空间真的是太多好康了～（怎么最近没更新了啊？）

好啦，废话不多说，来介绍这个 批处理集合工具～
其实呢，这东东里面的功能，这论坛都应该有相应的第3方了吧～
我只是把他们全都集合起来，用自己的代码实现它们～

这个exe体积14KB，功能有哪些呢？看看吧～

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

双击exe有英文的帮助，压缩包内有个批处理演示工具
贴代码（很久没碰批处理了，代码很烂。。）
... http://www.bathome.net/thread-17383-1-1.html

email10t

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

email10t

[attach]8238[/attach][attach]8239[/attach][attach]8240[/attach][attach]8241[/attach]