一秒扫雷【扫雷源码】非常好的扫雷源码【戳进来看看喽】【精品源码】

不曾LM

欢迎大家来 www.3600gz.cn   精易论坛

官网 www.3600gz.cn      

更多精彩内容关注精易论坛   www.3600gz.cn




给大家分享个扫雷源码，百分百1秒扫雷

1. 
   
2. <DIV> .版本 2</DIV>
   
3. <DIV>.子程序 _按钮1_被单击
   
4. .局部变量 NULL, 整数型, , , 0
   
5. .局部变量 wm, 整数型, , , 为了理解.变量原封不动
   
6. .局部变量 pid, 整数型
   
7. .局部变量 lpBuffer1, 字节集
   
8. .局部变量 b, 逻辑型
   
9. .局部变量 ph, 整数型
   
10. .局部变量 aa, 整数型, , "0"
    
11. .局部变量 lpBuffer2, 字节集
    
12. .局部变量 bb, 字节型
    
13. .局部变量 x, 整数型
    
14. .局部变量 y, 整数型</DIV>
    
15. <DIV>
    
16. lpBuffer1 ＝ 取空白字节集 (1024)
    
17. wm ＝ FindWindowA (NULL, “扫雷”)
    
18. .如果真 (wm ＝ 0)
    
19. 信息框 (“请先打开WINDOWS自带的扫雷游戏”, 64, )
    
20. 返回 ()
    
21. .如果真结束
    
22. GetWindowThreadProcessId (wm, pid)
    
23. ph ＝ OpenProcess (16, 假, pid)
    
24. .如果真 (ph ＝ 0)
    
25. 信息框 (“打开进程失败！”, 64, )
    
26. 返回 ()
    
27. .如果真结束
    
28. b ＝ ReadProcessMemory (ph, 16798560, lpBuffer1, 1024, 0)
    
29. .如果真 (b ＝ 假)
    
30. 信息框 (“读取内存出错!”, 64, )
    
31. 返回 ()
    
32. .如果真结束
    
33. lpBuffer2 ＝ 取空白字节集 (8)
    
34. b ＝ ReadProcessMemory (ph, 16798516, lpBuffer2, 8, 0)
    
35. .如果真 (b ＝ 假)
    
36. 信息框 (“读取内存出错!”, 64, )
    
37. 返回 ()
    
38. .如果真结束
    
39. 加入成员 (aa, 取字节集数据 (lpBuffer2, #整数型, 1))
    
40. 加入成员 (aa, 取字节集数据 (lpBuffer2, #整数型, 5))
    
41. .变量循环首 (0, aa [2], 1, y)
    
42. .计次循环首 (aa [1], x)
    
43. .如果 (lpBuffer1 [x ＋ y × 32 ＋ 1] ＝ 143)
    
44. ' SendMessageA (wm, #WM_RBUTTONDOWN, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x))
    
45. ' SendMessageA (wm, #WM_RBUTTONUP, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x))
    
46. .否则
    
47. SendMessageA (wm, #WM_LBUTTONDOWN, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x))
    
48. SendMessageA (wm, #WM_LBUTTONUP, 0, 4194304 ＋ 位或 (y × 1048576, 16 × x))
    
49. .如果结束</DIV>
    
50. <DIV>.计次循环尾 ()
    
51. .变量循环尾 ()
    
52. CloseHandle (ph)
    
53. 信息框 (“恭喜您成功1秒扫雷”, 64, )</DIV>

复制代码

很牛逼的源码哦！

回复免费下载：
百度网盘下载：
http://pan.baidu.com/share/link?shareid=1523639573&uk=3224700238

来一个软件实现更新的源码~【不是很完美、求交流、完善！】 ， 传送门：http://bbs.125.la/thread-13657446-1-1.html
AndroidQQ登陆 — 傻瓜式【极其简单】 可继续开发！【求高手指教】， 传送门：http://bbs.125.la/thread-13657054-1-1.html
ICO图标转换工具+UPX加壳工具 （进来看一看喽！）， 传送门：http://bbs.125.la/thread-13655034-1-1.html

     支持精易论坛！ {:soso__3110130392203091378_3:}

大家可以加我为好友哦，一起学习易！

laoliu1987

.版本 2  .判断开始 (按钮索引 ＝ 0)     选择夹1.现行子夹 ＝ 0

laoliu1987

感谢大佬分享，这使我更加的想要学习易语言了。

我不行了

666666666666666666666666666666666

nizhanxindaren

6666666666666666666666666

萌mszc神

fgxgggggggggg

卢本伟LBW

感谢分享……

忘忧愁

56666666666666

wangxinxin

   sdsdsdsasasasas

1531217734

6666666666666666

Mengmew

56666666666666