//说明正在采集中,跳转“选择窗口三”
Delay YS1
Goto 窗口三
Else
//说明采集中断,调用子程序:窗口二采集
Call 窗口二采集
End If
//=======================================窗口三============================================
Rem 窗口三
Delay 1500
//查找窗口一的句柄
HwndC = C
//激活窗口
Call Plugin.Window.Active(HwndC)
Delay 2000
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(HwndC)
dim MyArrayC
MyArrayC = Split(sRect, "|")
//下面这句将字符串转换成数值
Ux = Clng(MyArrayC(0))
Uy = Clng(MyArrayC(1))
Call 清除异常窗口
Call 确认战斗状态
Call 确认人物死亡
Rem 窗口三是否受伤
//下面这句是:在窗口三的查找受伤
FindPic Ux,Uy,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\采集\轻伤.bmp",0.8,intX,intY
//下面这句是:受伤了则
If intX > 0 And intY > 0 Then
//在这里可以添加找到坐标后,需要做的处理。
Call 换线疗伤
Else
Goto 寻找窗口三的采集依据
End If
Rem 寻找窗口三的采集依据
FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\采集的依据.bmp",0.7,intX,intY
//在左边窗口寻找采集的依据
If intX > 0 And intY > 0 Then
//说明正在采集中,跳转“选择窗口一”
Delay YS1
Goto 窗口一
Else
//说明采集中断,调用子程序:窗口三采集
Call 窗口三采集
End If
Sub 窗口一采集
//--------------------------------------------------------------------------------------------
FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C1&".bmp",0.7,intX,intY
//以下是条件判断;如果返回的坐标大于0,那么就说明找到了。
If intX > 0 And intY > 0 Then
//在这里可以添加找到坐标后,需要做的处理。
MoveTo intX + 5, intY + 5
Delay 900
LeftClick 1
Delay 900
MoveTo Ux+90, Uy+300
End If
//--------------------------------------------------------------------------------------------
FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&B1&".bmp",0.65,intX,intY
//以下是条件判断;如果返回的坐标大于0,那么就说明找到了。
If intX > 0 And intY > 0 Then
//在这里可以添加找到坐标后,需要做的处理。
MoveTo intX+8,intY+8
Delay 900
LeftClick 1
Delay 900
End If
//--------------------------------------------------------------------------------------------
FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C1&".bmp",0.7,intX,intY
//以下是条件判断;如果返回的坐标大于0,那么就说明找到了。
If intX > 0 And intY > 0 Then
//在这里可以添加找到坐标后,需要做的处理。
MoveTo intX + 5, intY + 5
Delay 900
LeftClick 1
Delay 900
MoveTo Ux+90, Uy+300
End If