扫雷游戏雷区查看器

老刘1号 · 发表于 2017-8-24 20:13:31

本帖最后由老刘1号于 2017-9-3 16:27 编辑

@Echo off&Mode 94,36&Pushd "%~dp0"&TITLE 【老刘制作】扫雷游戏雷区查看器
Set 第三方名称=ReadProcessMemory.exe Loca.exe
For %%a in (%第三方名称%) Do ^
If "%%~$PATH:a" EQU "" ^
If Not Exist .\%%a ^
Echo 第三方%%a丢失。&&Pause&&Exit
Setlocal ENABLEDELAYEDEXPANSION
:Get
For /F "Tokens=2" %%a in ('Tasklist /FI "WINDOWTITLE eq 扫雷"') Do 2>nul Set /A PID=%%a
If !PID! EQU 0 GOTO Get
:Loop
Set /A 雷区=1
Set 输出=
For /f "Delims=" %%a in ('ReadProcessMemory !PID! 16798560 864') Do (
For %%b in (%%a) Do (
If %%b EQU 10 (
If !雷区! EQU 1 (
For /F "Delims=" %%. in ("!输出!") Do Echo %%.&&Echo.
Set 输出=
)
Set /A "雷区^=1"
)
If !雷区! EQU 1 (
If %%b NEQ 10 (
Set "输出=!输出! %%b"
Set "输出=!输出:0F=空!"
Set "输出=!输出:8F=雷!"
Set "输出=!输出:8E=旗!"
Set "输出=!输出:8D=﹖!"
Set "输出=!输出:0E=旗!"
Set "输出=!输出:CC=×!"
Set "输出=!输出:8A=×!"
Set "输出=!输出:40=０!"
Set "输出=!输出:41=１!"
Set "输出=!输出:42=２!"
Set "输出=!输出:43=３!"
Set "输出=!输出:44=４!"
Set "输出=!输出:45=５!"
Set "输出=!输出:46=６!"
Set "输出=!输出:47=７!"
Set "输出=!输出:48=８!"
)
)
)
)
Ping 127.1 -n 2 >nul
Loca 0,0&Goto Loop

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[游戏娱乐] 扫雷游戏雷区查看器