Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,910,246) End if If wz=3 Then Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,908,302) Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,908,302) //满足条件,执行下面的脚本 ElseIf wz=4 Then Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,907,353) Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,907,353) End if If wz=5 Then Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,910,411) Delay 56 Call Plugin.Bkgnd.LeftClick(Hwnd,910,411) End if timedg=now //--------------------------------------------------------------------------以下测试部分 // Rem 判断弹出打怪确认窗体 //弹出窗体判断 // Delay 300 // Plugin op = Bkgnd.FindColorEx(Hwnd, 635,383,636,384,"060C0C", 0, 0.96) // Delay 32 // MyArray1 = Split(op, "|") // x2 = Clng(MyArray1(0)): y2 = Clng(MyArray1(1)) // If x2>0 and y2>0 // Delay 56 // Rem 重新点击打怪确认 // Plugin Window.SendKeyPress(Hwnd,32) // Plugin Bkgnd.LeftClick(Hwnd,488,401) //防止延时未点到 // Delay 256 // Plugin Window.SendKeyPress(Hwnd,32) // Plugin Bkgnd.LeftClick(Hwnd,488,401) //判断打怪确认窗口是不是没点到还在 // Else // Plugin Window.SendKeyPress(Hwnd,32) // Plugin Bkgnd.LeftClick(Hwnd,488,401) //防止延时未点到 // Delay 256 // Plugin Window.SendKeyPress(Hwnd,32) // Delay 256 // Goto 打怪开始2 // EndIf //----------------------------------------------------------------------------以上测试部分 Delay 500 Call Plugin.Window.SendKeyPress(Hwnd,32) Delay 56 Call Plugin.Window.SendKeyPress(Hwnd,32) If yys=1 Then Delay 56 Call 关闭打怪界面() Else Goto d End if Rem d //下面这句按(从左到右从上到下的顺序找色)模糊查找窗口句柄(变量:Hwnd)窗口的指定矩形区域内指定颜色 Call 复活() Delay 256 XY = Plugin.Bkgnd.FindColorEx(Hwnd, 509,436, 512,438, "020149", 0, 0.96) //下面这句用于分割字符串0 Delay 32 MyArray = Split(XY, "|") //下面这句将字符串转换成数值 x = Clng(MyArray(0)): y = Clng(MyArray(1)) Delay 23 If x>0 and y>0 Then //颜色一样 Call Plugin.Bkgnd.LeftClick(Hwnd,541,437) Delay 256 Call Plugin.Bkgnd.LeftClick(Hwnd,541,437) Delay 256 Else Delay 500 Call 时间判断() Goto d //颜色不一样 End if End Sub //通过判断表达式的取值,来执行后面的动作或控制 //循环小延时,防止出现CPU使用率过高,脚本卡x //补血延时 //---------------------------------------加血 Sub 加血() Delay 300 //---------------------------------判断是否为空血 mn = Plugin.Bkgnd.FindColorEx(Hwnd, inx,iny, inx+1,iny+1,inz, 0, 0.95) Delay 32 MyArray = Split(mn, "|") x = Clng(MyArray(0)): y = Clng(MyArray(1)) Delay 256 If x>0 and y>0 Then //-------------------------------点击人物打开人物属性 Call Plugin.Bkgnd.LeftClick(Hwnd,581,406) Delay 256