wjxl1=DropList{"否":"1"|"是":"2"}=0 "武将一训练" UserVar wjxl2=DropList{"否":"1"|"是":"2"}=0 "武将二训练" UserVar wjxl3=DropList{"否":"1"|"是":"2"}=0 "武将三训练" UserVar wjxl4=DropList{"否":"1"|"是":"2"}=0 "武将四训练" UserVar wjxl5=DropList{"否":"1"|"是":"2"}=0 "武将五训练" UserVar wjtf=DropList{"否":"0"|"武将一":"1"|"武将二":"2"|"武将三":"3"|"武将四":"4"|"武将五":"5"}=0 "武将突飞猛进" Hwnd = Plugin.Window.MousePoint Delay 1000 s =Plugin.Window.GetClientRect(Hwnd) XYArray = Split(s, "|", -1, 1) dx = XYArray(0) dy = XYarray(1) Rem xh Delay 2000 //训练 Call Plugin.Bkgnd.LeftClick(Hwnd,843-dx,695-dy)//点击部队图标 Delay 1000 If wjxl1=2 Then Call 武将一训练 End If Delay 1000 If wjxl2=2 Then Call 武将二训练 End If Delay 1000 If wjxl3=2 Then Call 武将三训练 Delay 1000 End If If wjxl4=2 Then Call 武将四训练 End If Delay 1000 If wjxl5=2 Then Call 武将五训练 Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,814-dx,230-dy)//关闭窗口 End If //训练结束 Delay 300000 Goto xh Sub 突飞猛进 tftb=Plugin.Bkgnd.GetPixelColor(Hwnd,690-dx,575-dy)//得到突飞猛进图标颜色 If tftb="CCCCCC" Then Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,690-dx,575-dy)//点击突飞猛进图标 End If Delay 1000 End Sub Sub 提示 tss=Plugin.Bkgnd.GetPixelColor(Hwnd,499-dx,479-dy)//得到提示颜色 Delay 500 tss1=Plugin.Bkgnd.GetPixelColor(Hwnd,523-dx,483-dy)//得到提示颜色1 Delay 500 If tss="7197A3"and tss1="3D3C17" Then Call Plugin.Bkgnd.LeftClick(Hwnd,499-dx,479-dy)//点击确定 End If Delay 1000 End Sub Sub 判断并点击 ksxl=Plugin.Bkgnd.GetPixelColor(Hwnd,696-dx,542-dy)//开始训练图标色 If ksxl="CCCCCC" Then Call Plugin.Bkgnd.LeftClick(Hwnd,696-dx,542-dy)//点击开始 Delay 1000 Call 提示 End If End Sub Sub 武将一训练 Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,335-dy)//点击武将一 Delay 1000 Call 判断并点击 Delay 2000 If wjtf=1 Then Call 突飞猛进 End If End Sub Sub 武将二训练 Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,355-dy)//点击武将二 Delay 1000 Call 判断并点击 Delay 2000 If wjtf=2 Then Call 突飞猛进 End If End Sub Sub 武将三训练 Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,375-dy)//点击武将三 Delay 1000 Call 判断并点击 Delay 2000 If wjtf=3Then Call 突飞猛进 End If End Sub Sub 武将四训练 Call Plugin.Bkgnd.LeftClick(Hwnd,339-dx,395-dy)//点击武将四 Delay 1000 Call 判断并点击