//脚本暂时仅支持1024*742分辨率下使用 Hwnd = Plugin.Window.Find(0, "Lineage II")//窗口句柄 //ClientRect = Plugin.Window.GetClientRect(Hwnd)//获取窗口大小 WindowRect = Plugin.Window.GetWindowRect(Hwnd)//获取桌面大小 dim WMyArray WMyArray = Split(WindowRect, "|") //下面这句将字符串转换成数值 Ux=Clng(WMyArray(2)) Uy = Clng(WMyArray(3)) //Msgbox Ux & Uy //-----------------------调整标准目标栏位置--------------------------------- Call 显示目标栏() //-----------------------第一步 找到图形,个人认为简单,符合就移动到坐标。------------------------ FindPic 0,0,Ux,Uy,"Attachment:\自己角色.bmp",0.3,PlayX,PlayY If PlayX > 0 And PlayY > 0 Then MoveTo PlayX,PlayY //移动到坐标 LeftDoubleClick 3//单击角色3次 Delay 200 Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//Esc Delay 200 //-----------------------程序开始提示------------------------------- While i=0 Hwnd = Plugin.Window.GetKeyFocusWnd() Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 100 Call Plugin.Window.SendString(Hwnd, "%target ,Ready to develop the la!")//内容 Delay 500 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) i=1 Wend //--------------------判断是否要补血或补蓝---------------------------- Call 补血()//补血 Call 补蓝()//补蓝 //-------------------以下执行重复---------------------------- Rem Again//跳转Again Call GoBackDie()//死亡回城 Call 补血()//补血 Call 补蓝()//补蓝 Call Plugin.Bkgnd.KeyPress(Hwnd, 123)//F12 //KeyPress "F12", 10//扫地 Delay 500 Call Plugin.Bkgnd.KeyPress(Hwnd, 113)//F2 //KeyPress "F2", 1//选择目标 Delay 300 Call 前置目标栏() //-----------------------第二步 找到图形,个人认为简单,符合就进行攻击。------------------------ //FindPic 0, 0, Ux, Uy, "Attachment:\目标怪物(满血).bmp", 0.2, intX1, intY1 FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,intX1,intY1 If intX1 > 0 And intY1 > 0 Then IfColor intX1+555 , intY1-676,"14176F",0 Then//计算目标是否还有一点血 Rem 攻击 Call GoBackDie()//死亡回城 Call 补血()//补血 Call 补蓝()//补蓝 //-----------------------每次攻击前都把鼠标移动到F3位置上进行点击三次 MoveTo intX1+470 , intY1+18//F3 LeftDoubleClick 5//单击3次 MoveTo intX1+505 , intY1+18//F4 LeftDoubleClick 5//单击3次 MoveTo intX1+545 , intY1+18//F5 LeftDoubleClick 1//单击3次 MoveTo intX1+585 , intY1+18//F6 LeftDoubleClick 5//单击3次 MoveTo intX1+620 , intY1+18//F7 LeftDoubleClick 1//单击3次 //---------------------------------------------------------------- // Call Plugin.Bkgnd.KeyPress(Hwnd, 114)//F3 // //KeyPress "F3", 20//进行攻击 // Delay 10 // // Call Plugin.Bkgnd.KeyPress(Hwnd, 115)//F4 // //KeyPress "F4", 20//进行攻击 // Delay 10 // // Call Plugin.Bkgnd.KeyPress(Hwnd, 116)//F5 // //KeyPress "F5", 20//进行攻击 // Delay 10 // // Call Plugin.Bkgnd.KeyPress(Hwnd, 117)//F6 // //KeyPress "F6", 20//进行攻击 // Delay 10 // // Call Plugin.Bkgnd.KeyPress(Hwnd, 118)//F7 // //KeyPress "F7", 20//进行攻击 End If FindPic 0,0,Ux,Uy,"Attachment:\Msn定位目标用.bmp",0.8,intX2,intY2