,zijiu,zi,sha,hpb UserVar ck=1 UserVar hpx=176 UserVar hpy=183 UserVar mpx=140 UserVar mpy=195 UserVar hpkey=55 UserVar mpkey=56 UserVar skill1=50 UserVar skill2=51 UserVar skill3=52 UserVar mapx=209 UserVar mapy=311 UserVar maprx=630 UserVar mapry=610 UserVar isx=308 UserVar isy=328 UserVar isrx=487 UserVar isry=513 UserVar leftx=114 UserVar lefty=219 UserVar leftrx=457 UserVar leftry=679 UserVar rightx=442 UserVar righty=219 UserVar rightrx=785 UserVar rightry=675 UserVar maxx=111 UserVar maxy=215 UserVar maxrx=783 UserVar maxry=675 UserVar mx=62 UserVar my=281 zijiu=0 zi=1 sha=0 //Plugin hwnd=Window.Find("IEFrame",0) //下面这句是得到鼠标指向的窗口句柄 Plugin hwnd = Window.MousePoint() //下面这句是得到当前最前面的窗口句柄 //下面这句是移动窗口到(100, 100)位置 //Plugin Bkgnd.LeftClick(句柄,横坐标,纵坐标) //模拟鼠标左键点击 //Plugin Bkgnd.RightClick(句柄,横坐标,纵坐标) //模拟鼠标右键点击 Plugin s = Window.GetClientRect(hwnd) hpb=hpx-3 Rem 开始 //千位 Rem 补红 IfColor hpx,hpy,181C42,2 Plugin Bkgnd.KeyPress(hwnd,hpkey) Delay 1000 EndIf //百位 Rem 补红 IfColor hpb,hpy,181842,2 Plugin Bkgnd.KeyPress(hwnd,hpkey) Delay 1000 EndIf Rem 补蓝 IfColor mpx,mpy,21204A,2 Plugin Bkgnd.KeyPress(hwnd,mpkey) Delay 1000 EndIf Rem 找怪 //下面这句按(从中间到四周的顺序找色)模糊查找窗口句柄(变量:hwnd)窗口的指定矩形区域内指定颜色 //下面这句按(从中间到四周的顺序找色)模糊查找窗口句柄(变量:hwnd)窗口的指定矩形区域内指定颜色 Plugin XY = Bkgnd.FindColorEx(hwnd,isx,isy,isrx,isry,"52FF84",0, ck) //下面这句用于分割字符串 MyArray = Split(XY, "|") //下面这句将字符串转换成数值 X = CInt(MyArray(0)): Y = CInt(MyArray(1)) If X>-1 and Y>-1 X=X+20 Y=Y-30 Plugin Bkgnd.LeftClick(hwnd, X, Y) Delay 2000 IfColor mx,my,0004D6,2 Delay 1000 Rem 捡取 If zijiu<zi Plugin Bkgnd.KeyPress(hwnd,skill1) Plugin Bkgnd.KeyPress(hwnd,skill2) Plugin Bkgnd.KeyPress(hwnd,skill3) //Delay 1000 zijiu=zijiu+1 sha=sha+1 Plugin Msg.ShowScrTXT(6, 118, 122, 145, "杀怪数"&sha, "0000FF") EndIf IfColor mx,my,21204A,2 Plugin Bkgnd.KeyPress(hwnd,32) Plugin Bkgnd.KeyPress(hwnd,32) zijiu=0 Goto 开始 Else Delay 1000 If zijiu>=zi zijiu=0 Goto 开始 EndIf Goto 捡取