.版本 2 .子程序 _按钮1_被单击 .局部变量 NULL, 整数型, , , 0 .局部变量 wm, 整数型, , , 为了理解.变量原封不动 .局部变量 pid, 整数型 .局部变量 lpBuffer1, 字节集 .局部变量 b, 逻辑型 .局部变量 ph, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 aa, 整数型, , "0" .局部变量 lpBuffer2, 字节集 .局部变量 bb, 字节型 .局部变量 x, 整数型 .局部变量 y, 整数型 lpBuffer1 ＝ 取空白字节集 (1024) wm ＝ FindWindowA (NULL, “扫雷”) .如果真 (wm ＝ 0) 信息框 (“请先打开WINDOWS自带的扫雷游戏”, 64, ) 返回 () .如果真结束 GetWindowThreadProcessId (wm, pid) ph ＝ OpenProcess (16, 假, pid) .如果真 (ph ＝ 0) 信息框 (“打开进程失败！”, 64, ) 返回 () .如果真结束 b ＝ ReadProcessMemory (ph, 16798560, lpBuffer1, 1024, 0) .如果真 (b ＝ 假) 信息框 (“读取内存出错!”, 64, ) 返回 () .如果真结束 lpBuffer2 ＝ 取空白字节集 (8) b ＝ ReadProcessMemory (ph, 16798516, lpBuffer2, 8, 0) .如果真 (b ＝ 假) 信息框 (“读取内存出错!”, 64, ) 返回 () .如果真结束 加入成员 (aa, 取字节集数据 (lpBuffer2, #整数型, 1)) 加入成员 (aa, 取字节集数据 (lpBuffer2, #整数型, 5)) .变量循环首 (0, aa [2], 1, y) .计次循环首 (aa [1], x) .如果 (lpBuffer1 [x ＋ y × 32 ＋ 1] ＝ 143) ' SendMessageA (wm, #WM_RBUTTONDOWN, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x)) ' SendMessageA (wm, #WM_RBUTTONUP, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x)) .否则 SendMessageA (wm, #WM_LBUTTONDOWN, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x)) SendMessageA (wm, #WM_LBUTTONUP, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x)) .如果结束 .计次循环尾 () .变量循环尾 () CloseHandle (ph) 信息框 (“成功扫雷！1秒～～”, 64, )