按键精灵脚本游戏全自动扫雷

While 1=1
IfColor 0,0,"FFFFFF",0
Plugin PD.PrintDebug(1,1,500,200,"这个点不是雷!安全!"&vbcrlf&"如果要关闭本提示,请按F12键"&vbcrlf&"如果本提示一直显示有雷或无雷,则说明缓存未清除!"&vbcrlf&"解决方法:先按停止热键(F12),然后再按启动热键(F9)即可!"&vbcrlf&"或重新启动扫雷游戏 ","0000ff",1)
Goto start
EndIf
If fs=2
Plugin BGKM5.KeyClick(hwnd,88)
Delay 10
Plugin BGKM5.KeyClick(hwnd,89)
Delay 10
Plugin BGKM5.KeyClick(hwnd,90)
// obj.popup strview,0,"-- by xinr"
Plugin PD.PrintDebug(1,1,800,600,strview &"如果要关闭本提示,请按F12键 ","0000ff",1)
While 1=1
Delay 500
Delay 10
Plugin BGKM5.KeyClick(hwnd,90)
Delay 10
Plugin BGKM5.KeyClick(hwnd,89)
Delay 10
Plugin BGKM5.KeyClick(hwnd,16)
Delay 10
//说明：此文本装载自按键精灵官方论坛。仅供大家学习交流。
[General]
Description=扫雷
BeginHotkey=120
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
Else
Plugin PD.PrintDebug(1,1,500,200,"这个点是雷哟!危险!"&vbcrlf&"如果要关闭本提示,请按F12键"&vbcrlf&"如果本提示一直显示有雷或无雷,则说明缓存未清除!"&vbcrlf&"解决方法:先按停止热键(F12),然后再按启动热键(F9)即可!"&vbcrlf&"或重新启动扫雷游戏 ","0000ff",1)
EndIf
j=j+1
EndFor
strview=strview & vbcrlf
j=0
i=i+1
EndFor
If fs=1
// set obj=CreateObject("wscript.shell")
//8A=显示出的雷
//8F=未显示出的雷
//TracePrint value
If value=&h8A or value=&h8F
strview=strview & " * "
If fs=0
EndWhile
EndIf
EndScript
Sub OnScriptExit
Plugin PD.RefreshScreen()
RetrVar fs=DropList{自动扫雷:0|全部提示:1|单个提示:2}=0 方式设置
PutAttachment .\plugin *.dll
Rem start
Dim hwnd
Plugin hwnd=Window.Find("扫雷","扫雷")
If hwnd=0
高级:2秒
中级:1秒
低级:1秒
可以单个显示是否是雷,辅助你完成扫雷游戏!
【使用说明】
按启动热键(F9)即可,如果需要停止请按停止热键(F12)
如果你还没有运行扫雷游戏, 本工具将会自动运行扫雷游戏!
【设置说明】
自动扫雷:全自动扫雷
全部提示:一次性提示所有雷的位置
单个提示:提示你鼠标所在的位置是否是雷!(如果提示一直显示有雷或无雷,则说明缓存未清除!解决方法:先按停止热键(F12),然后再按启动热键(F9)即可!或重新启动扫雷游戏)
If fs=0
Plugin BGKM5.MMove(hwnd,xx+j*16,yy+i*16)
Plugin BGKM5.LClick(hwnd,xx+j*16,yy+i*16)
EndIf
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
全自动快速扫雷
仅支持windows xp 系统!
需时如下(视电脑配置及系统运行速度而定!)
Plugin BGKM5.MMove(hwnd,xx+j*16,yy+i*16)
Plugin BGKM5.RClick(hwnd,xx+j*16,yy+i*16)
EndIf
Else
strview=strview & " @"
EndIf
Delay 50
EndWhile
EndIf
Plugin s=Window.GetClientRect(hwnd)
TracePrint s
//x, y中分别保存当前扫雷的长与宽的格子数量
Dim x, y
Plugin x=Memory.Read32Bit(hwnd,&h1005334)
Plugin y=Memory.Read32Bit(hwnd,&h1005338)
TracePrint x&":"&y
strview="说明：@代表安全，* 代表雷" & vbcrlf
j=0:i=0
xx=19:yy=62
For y
For x
Plugin value=Memory.Read8Bit(hwnd,&h1005360+(j+i*32+1))
set obj=CreateObject("wscript.shell")
obj.popup "扫雷游戏没有打开,按确定(或9秒)后自动打开扫雷游戏",9,"-- 扫雷"
Delay 500
VBSCall RunApp("winmine.exe")
Delay 1000