按键精灵脚本源码 后台挖矿速度正常

运行环境：分辨率：1280x960 色深：32位 操作系统：Windows XP 按键精灵版本：7.10.4500

@junickal 2009/10/14

//当然，首先是获取窗口句柄，注意2种方式获得的句柄的区别：  
Plugin hwnd1=window.foreground()  
//上面这句获得的窗口句柄可以移动窗口，但是无法在窗口点击鼠标  
Plugin hwnds1=window.mousepoint()  
//现在用这句得到的句柄，可以在窗口内点击鼠标，但是无法移动这个窗口  
//所以，如果你需要移动窗口，使用的句柄应该是hwnd1，而点击使用的是hwnds1  
//当然，这2种方式取得的窗口，大小是一样的，所以坐标的计算就无所谓了  
//获得鼠标位置，并转换为窗口坐标  
VBSCall GetCursorPos(xget,yget)  
Plugin clixy=BGKM5.ScrToCli(hwnds1,xget,yget)  
VBSCall MyArray1=split(clixy,"|",-1,1)  
VBSCall x=CInt(MyArray1(0))  
VBSCall y=CInt(MyArray1(1))  
//脚本开始寻找精确的挖矿点  
LockMouse   
MoveR 60,0  
//锁定鼠标，并将鼠标移动开，防止矿锄的颜色、“挖矿”这样的字眼影响取色判断  
Plugin wkxy=BkgndColor.FindColor(hwnds1,x,y,x+4,y+32,"000000")  
//以鼠标最开始的点为左上角，在 4x32的范围内寻找黑色  
//这么做的目的是找到地块格子的第一个黑色点，所以要求打开地块显示  
wkxyarray=Split(wkxy,"|",-1,1)  
hsx=wkxyarray(0)  
hsy=wkxyarray(1)  
Rem 寻找挖矿点  
//在找到黑色的点之后，分别取这个点的左、右和左上的点的颜色  
//具体的相对坐标，见脚本中  
Plugin colorzuo=BkgndColor.GetPixelColor(hwnds1,hsx-4,hsy)  
Plugin coloryou=BkgndColor.GetPixelColor(hwnds1,hsx+4,hsy)  
Plugin colorzuoshang=BkgndColor.GetPixelColor(hwnds1,hsx-4,hsy-2)  
//这个目的是为了找到当前格子最下面的2个黑色点  
//如果你截图放大会很清楚的看到格子的边框是由黑色的点组成  
If colorzuo=0  
    xwk=hsx-2  
    ywk=hsy  
    Goto 找到  
EndIf   
If coloryou=0  
    xwk=hsx+2  
    ywk=hsy  
    Goto 找到  
EndIf   
//无论左边的点还是右边的点是黑色，都证明已经找到格子的最下方  
//把准确的挖矿点的坐标(xwk,ywk)定义好，跳出判断  
//在左边和右边都不是黑色的情况下，说明不是格子最下方  
//此时左上角的点或者右上角的点必定为黑色  
//如果左上角的点是黑色，说明此点偏左上，将此点的坐标向右下移动，继续判断  
//如果左上角不是黑色，那么必然是右上角是黑色，此点坐标向左下移动  
If colorzuoshang=0  
    Delay 10  
    hsx=hsx+4  
    hsy=hsy+2  
    Goto 寻找挖矿点  
Else   
    hsx=hsx-4  
    hsy=hsy+2  
    Goto 寻找挖矿点  
EndIf   
//设置这个标记的目的是用来释放鼠标  
//其中鼠标相对移动回原来的位置可要可不要，因为是后台  
Rem 找到  
MoveR -60,0  
UnlockMouse   
Rem 开始挖矿  
Gosub 体力  
//选择矿锄（F1）  
Plugin BGKM5.KeyClick(hwnds1,112)  
Delay 100  
//挖矿  
Plugin BGKM5.MMove(hwnds1,xwk,ywk)  
Plugin BGKM5.LClick(hwnds1,xwk,ywk)  
//延迟时间可自己修改，或用自定义变量在最开始设置  
Delay 6800  
//以下4次点击，是在格子的4个角各点击一次拿矿  
//经过测试，包括男女普通角色、男女豆丁都没问题  
Plugin BGKM5.MMove(hwnds1,xwk,ywk)  
Plugin BGKM5.LClick(hwnds1,xwk,ywk)  
Delay 80  
Plugin BGKM5.MMove(hwnds1,xwk,ywk-30)  
Plugin BGKM5.LClick(hwnds1,xwk,ywk-30)  
Delay 80  
Plugin BGKM5.MMove(hwnds1,xwk+15,ywk-20)  
Plugin BGKM5.LClick(hwnds1,xwk+15,ywk-20)  
Delay 80  
Plugin BGKM5.MMove(hwnds1,xwk-15,ywk-20)  
Plugin BGKM5.lClick(hwnds1,xwk-15,ywk-20)  
Delay 80  
//切换一次食物，玩庄园的都知道，是为了防止连续挖矿造成人物抽动  
Plugin BGKM5.KeyClick(hwnds1,113)  
Delay 200  
Goto 开始挖矿  
//体力补充  
Sub 体力  
    Plugin color7=BkgndColor.GetPixelColor(hwnds1,90,62)  
    //对血条取色90，60大概是10%体力的位置，可以自己修改  
    //如果颜色为黑，吃血  
    If color7=2106400  
        //选择食物（F2）  
        Plugin BGKM5.KeyDown(hwnds1,113)  
        Plugin BGKM5.KeyUp(hwnds1,113)  
        Delay 200  
    //点击“吃”  
    Plugin BGKM5.Mouse(hwnds1,0,570,507)  
    Plugin BGKM5.Mouse(hwnds1,1,570,507)  
    Plugin BGKM5.Mouse(hwnds1,2,570,507)  
    Delay 1800  
    //再次选择锄头  
    Plugin BGKM5.KeyDown(hwnds1,112)  
    Plugin BGKM5.KeyUp(hwnds1,112)  
EndIf   
rn 体力