返回列表 发帖

[其他] 全屏运行批处理的方法总结及原理简介

【方案一】debug
@echo off
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437 >nul
graftabl 936 >nul
echo Welcome to full screen mode... 坚持全屏运行批处理,不动摇、不懈怠、不折腾。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
rem 把你自己需要的代码写到这里
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
pauseCOPY
原理讲解:

1、e是debug的修改命令,用于修改内存单元的内容。这里的e 100是编辑ds:0100的内容(这点不详细说了)

2、B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 这些是机器码,这些机器码转化为汇编语言就成了:
MOV AH,00
MOV AL,12
INT 10
MOV AL,03
INT 10
INT 20
这段汇编主要运用了10号中断的00h号功能调用。这里调用了两次,其实一次就可以实现。
MOV AH,00
MOV AL,12
INT 10
INT 20
寄存器AH里的值代表了10号中断的功能调用,这里是00h。如果没记错的话12代表640×400黑白文字。int 20是调用20号中断将控制权交给dos。所谓中断就相当于调用固有的子程序。

3、$_是换行。

4、g是debug的运行命令,q是debug的退出命令。
【方案二】调用XP系统自带的reg命令设置注册表(运行完毕之后会恢复注册表)
@echo off
if "%1"=="" (
  goto :FullScreen
)
reg add HKEY_CURRENT_USER\Console /v FullScreen /t REG_DWORD /d %1 /f>nul
echo Welcome to full screen mode... 坚持全屏运行批处理,不动摇、不懈怠、不折腾。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
rem 把你自己需要的代码写到这里
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
goto :end
:FullScreen
set OriginalMode=0
for /f "delims=" %%i in ('REG QUERY HKEY_CURRENT_USER\Console /v FullScreen') do (
  set OriginalMode=%%i
)
set OriginalMode=%OriginalMode:~-1%
reg add HKEY_CURRENT_USER\Console /v FullScreen /t REG_DWORD /d 1 /f>nul
start "" %0 %OriginalMode%
goto :eof
:end
pause
exitCOPY
【方案三】调用临时VBS代码(目的在于摆脱对reg命令的依赖)设置注册表(运行完毕之后会恢复注册表)
@echo off
if "%1"=="" (
  goto :FullScreen
)
>"%temp%\RestoreMode.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%temp%\RestoreMode.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER\Console\FullScreen", "%1", "REG_SZ"
cscript /nologo "%temp%\RestoreMode.vbs"
echo Welcome to full screen mode... 坚持全屏运行批处理,不动摇、不懈怠、不折腾。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
rem 把你自己需要的代码写到这里
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
goto :end
:FullScreen
set OriginalMode=0
>"%temp%\BackupMode.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%temp%\BackupMode.vbs" echo WScript.Echo WshShell.RegRead ("HKEY_CURRENT_USER\Console\FullScreen")
for /f %%a in ('cscript /nologo "%temp%\BackupMode.vbs"') do (
  set "OriginalMode=%%a"
)
>"%temp%\FullMode.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%temp%\FullMode.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER\Console\FullScreen", "1", "REG_SZ"
cscript /nologo "%temp%\FullMode.vbs"
start "" %0 %OriginalMode%
goto :eof
:end
pause
exitCOPY
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

@echo off
echo exit|%comspec% /k prompt e 100 b4 00 b0 12 cd 10 b0 03 cd 10 cd 20
$_g$_q$_|debug>nul
chcp 437 >nul
graftabl 936 >nul
pauseCOPY
上面的代码不能运行
复制LZ的代码能运行,奇怪啊!明明是一样的啊
仔细一瞧,复制的代码$_g$_q$_|debug>nul是连在上一行后的
但复制到论坛后却变成两行了!所以看上去跟上面的代码一样,其实不一样!
是自动换行的原因吗?

TOP

回复 2楼 的帖子

因为你的文本编辑里面选择了自动换行吧?取消它即可。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 3楼 的帖子

不是编辑器有问题!我复制代码下来能运行!
请看你发的代码看上去是不是两行?

TOP

回复 4楼 的帖子

哦,恭喜,能运行就好。
不过你在2楼贴的代码是错的,多了一个回车。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

【方案一】debug

这个方法我用很久了,以前在CN-DOS上看到的~~

TOP

不知道【方案一】debug
会不会对批处理有要求比如变量延迟等等。。。
还求高人解答下

TOP

回复 7楼 的帖子

亲自试试不就知道了?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

也帖个自己用的
@ECHO OFF
REGSVR32 %WINDIR%\SYSTEM32\WSHOM.OCX /S
WMIC /NAMESPACE:\\ROOT\DEFAULT PATH STDREGPROV CALL SETDWORDVALUE ^&H80000001,"CONSOLE","SCREENBUFFERSIZE","19661100" >NUL
IF "%1" == "H" GOTO :LOOP
MSHTA VBSCRIPT:CREATEOBJECT("WSCRIPT.SHELL").RUN("""%~DPNX0"" H",3)(WINDOW.CLOSE)&&EXIT
:LOOP
rem 代码
PAUSECOPY

TOP

返回列表