按键精灵源码与TC源码对比【秒过扫雷】

冷月无痕

首先是按键精灵的源码

1. WinminePath = "winmine.exe"
   
2.     WinmineTitle = "扫雷"
   
3.     Call RunApp(WinminePath)
   
4.     Delay 1000
   
5.     WinmineHwnd=Plugin.Window.Find(0,WinmineTitle)
   
6.     If WinmineHwnd = 0 Then
   
7.         Delay 1000
   
8.         WinmineHwnd=Plugin.Window.Find(0,WinmineTitle)
   
9.     End If
   
10.     If WinmineHwnd=0 Then
    
11.         Call Plugin.File.WriteFileEx(TestFilePath,"☆" & WinminePath & "运行失败")
    
12.     Else
    
13.         Dim x, y
    
14.         x=Plugin.Memory.Read32Bit(WinmineHwnd,&h1005334)
    
15.         y=Plugin.Memory.Read32Bit(WinmineHwnd,&h1005338)
    
16.         ClickX = 18
    
17.         ClickY = 56
    
18.         Call Plugin.Bkgnd.LeftClick(WinmineHwnd,ClickX,ClickY)
    
19.         For i = 0 To y-1
    
20.             For j = 0 To x-1
    
21.                 Val = Plugin.Memory.Read8Bit(WinmineHwnd,&h1005360+(j+i*32+1))
    
22.                 If Val = &h8F or Val = &h8A Then
    
23.                     Call Plugin.Bkgnd.RightClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
    
24.                 Else
    
25.                     Call Plugin.Bkgnd.LeftClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
    
26.                 End If
    
27.             Next
    
28.             strview = strview & vbcrlf
    
29.         Next

复制代码

接下来是TC的源码：

1. 进程句柄=进程.获取进程句柄("扫雷")
   
2.     窗口句柄=进程.获取窗口句柄(进程句柄)
   
3.     如果(进程句柄==0)
   
4.         辅助.消息框("扫雷游戏没有打开或者打开失败!")
   
5.         返回 0
   
6.     如果结束
   
7.     x=进程.读4byte(进程句柄,#1005334)
   
8.     y=进程.读4byte(进程句柄,#1005338)
   
9.     点击x = 18
   
10.     点击y = 56
    
11.     窗口.鼠标左键单击(窗口句柄,点击x,点击y)
    
12.     遍历(i=0;i<y;i++)
    
13.         遍历(j=0;j<x;j++)
    
14.             内容=进程.读byte(进程句柄,#1005360+(j+i*32+1))
    
15.             如果(内容==#8f||内容==#8a)
    
16.                 窗口.鼠标右键单击(窗口句柄,点击x+16*j,点击y+16*i)
    
17.             否则
    
18.                 窗口.鼠标左键单击(窗口句柄,点击x+16*j,点击y+16*i)
    
19.             如果结束
    
20.         遍历结束
    
21.     遍历结束

复制代码

耗时对比




大家可以自己测试一下，希望可以给一些学过按键的朋友一点帮助
测试源码分享回复可下载：

游客，如果您要查看本帖隐藏内容请回复

lupei199

学习。。。。

幼园留级老油条

学习

xuhekkll

看看啥东西

Sky_Pro

这个要学习。。

Sky_Pro

传说中的全内存啊、、

我又来了

00000000000000000000000

TC管理员

31346337

回复 1楼冷月无痕的帖子

dddddddddddddddddd

陌上青衣。

这个是毋庸置疑的0.0