![Board logo](images/default/logo.gif)
标题: [游戏娱乐] 扫雷游戏雷区查看器 [打印本页]
作者: 老刘1号 时间: 2017-8-24 20:13 标题: 扫雷游戏雷区查看器
本帖最后由 老刘1号 于 2017-9-3 16:27 编辑
![](http://s1.wailian.download/2017/08/24/QQ20170823225821.png)
- @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=0!"
- Set "输出=!输出:41=1!"
- Set "输出=!输出:42=2!"
- Set "输出=!输出:43=3!"
- Set "输出=!输出:44=4!"
- Set "输出=!输出:45=5!"
- Set "输出=!输出:46=6!"
- Set "输出=!输出:47=7!"
- Set "输出=!输出:48=8!"
- )
- )
- )
- )
- Ping 127.1 -n 2 >nul
- Loca 0,0&Goto Loop
复制代码
第三方下载:Loca(设置屏幕坐标) ReadProcessMemory
XP版扫雷下载:http://js.downcc.com/game/gametool/winmine.zip
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |