Do cl=WaitClick() If cl = 32769 Then //32769是鼠标左键单击的ID GetCursorPos x, y Goto 开始 //点击NPC后,记录鼠标位置并跳转到“开始”处 End If //上面是等待鼠标左键点击交拾荒的NPC,右键点击无效。// Loop Rem 开始 Hwnd = Plugin.Window.Foreground() sRect = Plugin.Window.GetWindowRect(Hwnd) dim MyArray MyArray = Split(sRect, "|") W = Clng(MyArray(0)): H = Clng(MyArray(1)) Do Delay 200 t=true While t FindColor 22+W,172+H,247+W,430+H,"FF8877",x1,y1 If x1 > 0 And y1 > 0 Then t = False End If Wend //上面的代码是在寻找任务的文字 //0,0,276,486是任务列表的大概范围,范围不要太大,免得点错地方 //"FF8877"是文字的颜色,我一般取“[”的颜色。 MoveTo x1, y1 LeftClick 1 Delay 100 //上面是点击找到的任务文字 t =True While t c = Plugin.Color.GetPixelColor(W+46, H+451, 0) If c="063535" Then MoveTo W+46,H+451 LeftClick 1 t = False End If Wend //上面是寻找交任务的“确定”按钮 //判断依据是按钮位置颜色c等于我们预先取的颜色。 //不过我这里取色的依据是根据“关闭”按钮是否存在的。 MoveTo x, y LeftClick 1 //上面是点击NPC继续交任务 loop