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