UserVar YS1=0 "窗口间延时/毫秒"
UserVar XL=DropList{"Num 1":"Num 1"|"Num 2":"Num 2"|"Num 3":"Num 3"}=1 "寻路设置键"

UserVar A=0 "窗口一的句柄"
UserVar C1=DropList{"采药":"采集"|"采纤维":"采集"|"砍树":"伐木"|"挖矿":"挖掘"|"狩猎药":"狩猎"|"狩猎皮革":"狩猎"}=1 "窗口一采集类别"
UserVar B1=DropList{"镰刀":"镰刀"|"斧头":"斧头"|"弓箭":"弓箭"|"矿锄":"矿锄"}=1 "窗口一的采集工具"

UserVar B=0 "窗口二的句柄"
UserVar C2=DropList{"采药":"采集"|"采纤维":"采集"|"砍树":"伐木"|"挖矿":"挖掘"|"狩猎药":"狩猎"|"狩猎皮革":"狩猎"}=1 "窗口二采集类别"
UserVar B2=DropList{"镰刀":"镰刀"|"斧头":"斧头"|"弓箭":"弓箭"|"矿锄":"矿锄"}=1 "窗口二的采集工具"


UserVar C=0 "窗口三的句柄"
UserVar C3=DropList{"采药":"采集"|"采纤维":"采集"|"砍树":"伐木"|"挖矿":"挖掘"|"狩猎药":"狩猎"|"狩猎皮革":"狩猎"}=1 "窗口三采集类别"
UserVar B3=DropList{"镰刀":"镰刀"|"斧头":"斧头"|"弓箭":"弓箭"|"矿锄":"矿锄"}=1 "窗口三的采集工具"


//=======================================窗口一============================================
Rem 窗口一
Delay 1500

//查找窗口一的句柄
HwndA = A
//激活窗口
Call Plugin.Window.Active(HwndA)
Delay 2000
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(HwndA)
dim MyArrayA   
MyArrayA = Split(sRect, "|")
//下面这句将字符串转换成数值   
Ux = Clng(MyArrayA(0))
Uy = Clng(MyArrayA(1))

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






//=======================================窗口二============================================
Rem 窗口二
Delay 1500

//查找窗口一的句柄
HwndB = B
//激活窗口
Call Plugin.Window.Active(HwndB)
Delay 2000
//得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(HwndB)
dim MyArrayB   
MyArrayB = Split(sRect, "|")
//下面这句将字符串转换成数值   
Ux = Clng(MyArrayB(0))
Uy = Clng(MyArrayB(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