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

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

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

  1. @Echo off&Mode 94,36&Pushd "%~dp0"&TITLE 【老刘制作】扫雷游戏雷区查看器
  2. Set 第三方名称=ReadProcessMemory.exe Loca.exe
  3. For %%a in (%第三方名称%) Do ^
  4. If "%%~$PATH:a" EQU "" ^
  5. If Not Exist .\%%a ^
  6. Echo 第三方%%a丢失。&&Pause&&Exit
  7. Setlocal ENABLEDELAYEDEXPANSION
  8. :Get
  9. For /F "Tokens=2" %%a in ('Tasklist /FI "WINDOWTITLE eq 扫雷"') Do 2>nul Set /A PID=%%a
  10. If !PID! EQU 0 GOTO Get
  11. :Loop
  12. Set /A 雷区=1
  13. Set 输出=
  14. For /f "Delims=" %%a in ('ReadProcessMemory !PID! 16798560 864') Do (
  15. For %%b in (%%a) Do (
  16. If %%b EQU 10 (
  17. If !雷区! EQU 1 (
  18. For /F "Delims=" %%. in ("!输出!") Do Echo %%.&&Echo.
  19. Set 输出=
  20. )
  21. Set /A "雷区^=1"
  22. )
  23. If !雷区! EQU 1 (
  24. If %%b NEQ 10 (
  25. Set "输出=!输出! %%b"
  26. Set "输出=!输出:0F=空!"
  27. Set "输出=!输出:8F=雷!"
  28. Set "输出=!输出:8E=旗!"
  29. Set "输出=!输出:8D=﹖!"
  30. Set "输出=!输出:0E=旗!"
  31. Set "输出=!输出:CC=×!"
  32. Set "输出=!输出:8A=×!"
  33. Set "输出=!输出:40=0!"
  34. Set "输出=!输出:41=1!"
  35. Set "输出=!输出:42=2!"
  36. Set "输出=!输出:43=3!"
  37. Set "输出=!输出:44=4!"
  38. Set "输出=!输出:45=5!"
  39. Set "输出=!输出:46=6!"
  40. Set "输出=!输出:47=7!"
  41. Set "输出=!输出:48=8!"
  42. )
  43. )
  44. )
  45. )
  46. Ping 127.1 -n 2 >nul
  47. Loca 0,0&Goto Loop
复制代码
第三方下载:Loca(设置屏幕坐标) ReadProcessMemory
XP版扫雷下载:http://js.downcc.com/game/gametool/winmine.zip
3

评分人数

返回列表