|
14楼
发表于 2015-5-22 11:19:27
|
只看该作者
来自:新疆
ClickX = 18
ClickY = 56
Call Plugin.Bkgnd.LeftClick(WinmineHwnd,ClickX,ClickY)
For i = 0 To y-1
For j = 0 To x-1
Val = Plugin.Memory.Read8Bit(WinmineHwnd,&h1005360+(j+i*32+1))
If Val = &h8F or Val = &h8A Then
strview = strview & " *"
Call Plugin.Bkgnd.RightClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
Else
strview = strview & " @"
Call Plugin.Bkgnd.LeftClick(WinmineHwnd,ClickX + 16*j,ClickY + 16*i)
End If
Next
strview = strview & vbcrlf
Next |
|