标题: [特效代码] [分享]批处理no cls no choice用键盘移动字符 [打印本页]
作者: batman 时间: 2011-3-2 15:04 标题: [分享]批处理no cls no choice用键盘移动字符
- @echo off&setlocal enabledelayedexpansion
- chcp 437 >nul&graftabl 936 >nul
- echo w上s下a左d右z退出(小写)
- ::请将下面的tab换成实际的制表符
- set "tb=tab"
- for /l %%a in (1,1,12) do set "t=!t!"
- for /l %%a in (1,1,80) do set "k=!k! "
- set "_115=echo,"&set "_97=set /a l-=1"&set "_100=set /a l+=1"&set "_122=exit"&set /a l=39
- for /l %%a in (1,1,10) do echo,
- for /l %%a in (1,1,%l%) do set /p= <nul
- set /p=a<nul
- :lp
- echo exit|cmd/kprompt $_e 100 CD 16 B4 4C CD 21$_g$_|debug>nul
- set "str=%errorlevel%"
- for %%a in (119 115 97 100 122) do if "!str!" equ "%%a" goto next
- goto lp
- :next
- set /p=%k%<nul
- if %str% equ 119 (
- 2>nul echo,%tb%%t%&set /p=<nul
- ) else (
- !_%str%!
- )
- if %l% lss 0 set /a l=0
- if %l% gtr 78 set /a l=78
- for /l %%a in (1,1,%l%) do set /p= <nul
- set /p=a<nul&pause>nul&goto lp
复制代码
[ 本帖最后由 batman 于 2011-3-2 15:07 编辑 ]
作者: CrLf 时间: 2011-3-2 16:54
呃,debug...虽然这里debug只是起choice的作用,但是既然可以用debug,那么其实连tab都可以省了吧
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |