按键精灵专接五色任务脚本源码

脚本附件：绿.bmp, 金色1.bmp, 蓝色1.bmp, 领取.bmp

运行环境：分辨率：1440x900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11534

UserVar YanShi=30 "任务刷新时间,单位:秒"  
UserVar YanShi1=5 "电脑刷新时间,单位:秒"  
GetCursorPos mx, my  
Delay 200  
Rem 开始挂机  
LeftClick 1  
Delay 200  
  
  
Call 蓝色任务()  
Call 金色任务()  
Delay YanShi1*1000  
Rem 接绿色任务  
Sub 绿色任务()  
    For 5  
    FindPic 200,160,800,600,"Attachment:\绿.bmp",1,intX1,intY1  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If intX1 > 0 And intY1 > 0 Then  
        //在这里可以添加找到坐标后，需要做的处理。  
        MoveTo intX1+10,intY1+5  
        Delay 200  
        LeftClick 1  
        Delay 200  
        IfColor intX1, intY1, "009955", 0 Then  
            Goto 领取  
           Else   
           Goto 接蓝色任务  
  
  
        End If  
    End If  
    Rem 领取  
    FindPic 200,160,1000,700,"Attachment:\领取.bmp",1,intX,intY  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If intX > 0 And intY > 0 Then  
        //在这里可以添加找到坐标后，需要做的处理。  
        MoveTo intX+10,intY+5  
        Delay 200  
        LeftClick 1  
        Delay 200  
        Else   
        MessageBox "找不到领取"  
  
    End If  
Next  
End Sub  
  
Rem 接蓝色任务  
  
Sub 蓝色任务()  
For 5  
FindPic 200,160,800,600,"Attachment:\蓝色1.bmp",0.9,intX2,intY2  
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
If intX2 > 0 And intY2 > 0 Then  
    //在这里可以添加找到坐标后，需要做的处理。  
     MoveTo intX2+10,intY2+5  
    Delay 200  
LeftClick 1  
Delay 200  
IfColor intX2, intY2, "FF9900", 0 Then  
Goto 领取  
Else  
Goto 接金色任务  
  
  
End If  
  
End If  
 Rem 领取  
    FindPic 200,160,1000,700,"Attachment:\领取.bmp",1,intX,intY  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If intX > 0 And intY > 0 Then  
        //在这里可以添加找到坐标后，需要做的处理。  
        MoveTo intX+10,intY+5  
        Delay 200  
        LeftClick 1  
        Delay 200  
        End If  
Next  
  
End Sub  
Rem 接金色任务  
  
Sub 金色任务()  
For 5  
FindPic 200,160,800,600,"Attachment:\金色1.bmp",0.9,intX3,intY3  
//以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
If intX3 > 0 And intY3 > 0 Then  
    //在这里可以添加找到坐标后，需要做的处理。  
      MoveTo intX3+10,intY3+5  
    Delay 200  
LeftClick 1  
Delay 200  
IfColor intX3, intY3, "0044DD", 0 Then  
Goto 领取  
Else  
Goto 延时  
  
  
End If  
End If  
 Rem 领取  
    FindPic 200,160,1000,700,"Attachment:\领取.bmp",1,intX,intY  
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。  
    If intX > 0 And intY > 0 Then  
        //在这里可以添加找到坐标后，需要做的处理。  
        MoveTo intX+10,intY+5  
        Delay 200  
        LeftClick 1  
        Delay 200  
        End If  
Next  
  
End Sub  
Rem 延时  
Delay YanShi * 1000  
MoveTo mx, my  
Delay 200  
LeftClick 1  
Delay 200  
  
Goto 开始挂机