按键精灵用法教下.

睿智奔腾小马

Delay 2000
Delay 2000
UserVar Var=DropList{普通模拟:0|硬件模拟:1|超级模拟:2}=0 设置模拟方式
If var=0
     SetSimMode 0
ElseIf var=1
     SetSimMode 1
Else
     SetSimMode 2
EndIf
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "73F4FF", "1|0|C7FBFF,2|0|1AB7E3,3|0|1AB7E3,4|0|1AB7E3,5|0|1AB7E3,6|0|23D2F0,0|1|16B3E3,6|1|16B3E3,0|2|12ADE3,6|2|15BBEA,0|3|17DBFF,6|3|14CDF7,0|4|8DEBFF,6|4|0CBBF0,0|5|16D1FF,6|5|059FE3,0|6|029BE3,1|6|029BE3,2|6|029BE3,3|6|04CAFF,4|6|029BE3,5|6|029BE3,6|6|029BE3", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
m = Clng(MyArray(0)): n = Clng(MyArray(1))
If m<0
     msgbox "脚本出错了，请检查分辨率设置和桌面色度设置，脚本已停止！",16
     EndScript
EndIf
UserVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7|F8:8}=1 人物使用技能
UserVar b=DropList{普通攻击:1|技能1:2}=1 宠物如何攻击
UserVar renhong=40 人物加血（%）
UserVar renlan=30 人物加蓝（%）
UserVar chonghong=40 宠物加血（%）
UserVar chonglan=30 宠物加蓝（%）
Rem 开始
While 1
     Gosub 判断进入战斗
EndWhile
Sub 精确找怪
     MoveTo m+255,n-445
     Delay 100
     VBSCall var=GetCursorShape(0)
     If var=1227848726
         Delay 500
         LeftClick 1
         Goto 找怪结束
     EndIf
     MoveTo m+174,n-426
     Delay 100
     VBSCall var=GetCursorShape(0)
     If var=1227848726
         Delay 500
         LeftClick 1
         Goto 找怪结束
     EndIf
     MoveTo m+97,n-382
     Delay 100
     VBSCall var=GetCursorShape(0)
     If var=1227848726
         Delay 500
         LeftClick 1
         Goto 找怪结束
     EndIf
     KeyDown 18,1
     KeyPress 65,1
     KeyUp 18,1
     Rem 找怪结束
Return 精确找怪
Sub 宠物操作
     If b=1
         KeyDown 18,1
         KeyPress 65,1
         KeyUp 18,1
     ElseIf b=2
         //技能1


纆g

VBSCall FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
         If intx>0
             Delay 300
             MoveTo intx,inty
             LeftClick 1
             Delay 300
             VBSCall FindPic(0,0,1024,768,"Attachment:\球.bmp",0.9,intX,intY)
             If intx>0
                 MoveTo intx+23,inty+41
                 Delay 300
                 LeftClick 1
                 Gosub 精确找怪
             EndIf
         Else
             KeyDown 18,1
             KeyPress 65,1
             KeyUp 18,1
         EndIf
     EndIf
     //下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
     Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
     //下面这句用于分割字符串
     MyArray = Split(XY, "|")
     //下面这句将字符串转换成数值
     X = Clng(MyArray(0)): Y = Clng(MyArray(1))


凡尘莲花1

If x>0
         Goto 开始
     EndIf
Return 宠物操作
Sub 加雪蓝
     //人物加血
     Delay 100
     IfColor renhong*0.62+716+m n-572 311E73 2
         MoveTo renhong*0.62+716+m,n-572
         Delay 500
         RightClick 1
     EndIf
     //人物加蓝
     Delay 100
     IfColor renlan*0.62+716+m n-560 604714 2
         MoveTo renlan*0.62+716+m,n-560
         Delay 500
         RightClick 1
     EndIf
     //宠物加血
     Delay 100
     IfColor chonghong*0.53+571+m n-572 604714 2
         MoveTo chonghong*0.53+571+m,n-572
         Delay 500
         RightClick 1
     EndIf
     //宠物加蓝
     Delay 100
     IfColor chonglan*0.53+572+m n-560 604717 2
         MoveTo chonglan*0.53+572+m,n-560
         Delay 500
         RightClick 1
     EndIf
Return 加雪兰
Sub 验证
     VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\确.bmp",0.9,intX,intY)
     If intx>0
         While 1
             Beep
             Delay 1000
             VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\确.bmp",0.9,intX,intY)
             If intx<0
                 Goto 跳出验证
             EndIf
         EndWhile
     EndIf
     Rem 跳出验证
Return 验证
Sub 人物按键
     Delay 100
     If a=1
         KeyPress 112,1
     ElseIf a=2
         KeyPress 113,1
     ElseIf a=3
         KeyPress 114,1


gdgd777

ElseIf a=4
         KeyPress 115,1
     ElseIf a=5
         KeyPress 116,1
     ElseIf a=6
         KeyPress 117,1
     ElseIf a=7
         KeyPress 118,1
     ElseIf a=8
         KeyPress 119,1
     EndIf
Return 人物按键
Sub 判断进入战斗
     VBSCall FindPic(m+8, n-564, m+32, n-546,"Attachment:\x.bmp",0.9,X,Y)
     If x>0
         //杀怪
         While 1
             Delay 500
             //人物操作 判断是否出现法字
             //下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
             Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "F6E5A1", "1|0|E5C683,0|1|FFEDAC,1|1|EFD292,-4|2|E1B679,-3|2|FFE6A9,-2|2|FFE6A9,-1|2|FFE6A9,0|2|FFE6A9,1|2|FFE6A9,2|2|FFE6A9,3|2|FFE6A9,4|2|FFE6A9,5|2|E0B377,-4|3|D39B61,-3|3|EFC68C,-2|3|EFC68C,-1|3|EFC68C,0|3|FFDFA6,1|3|FDDBA2,2|3|EFC68C,3|3|EFC68C,4|3|EFC68C,5|3|D49D62,0|4|FFD8A3,1|4|EFC08A,0|5|FFD19F,1|5|EFBA87,-4|6|EEB383,-3|6|EFB484,-2|6|EFB484,-1|6|EFB484,0|6|FFCA9C,1|6|FDC699,2|6|EFB484,3|6|EFB484,4|6|EFB484,5|6|EBAF7F,-4|7|FFC299,-3|7|FFC399,-2|7|FFC399,-1|7|FFC399,0|7|FFC399,1|7|FFC399,2|7|FFC399,3|7|FFC399,4|7|FFC399,5|7|FABD93,-2|8|C2713F,-1|8|FFBB96,0|8|C77847,-3|9|B15B26,-2|9|FDB290,-1|9|FAAF8C,2|9|F2A681,3|9|F9AD8A,-4|10|A0470E,-3|10|F6A484,1|10|973F00,2|10|D07B4F,3|10|FFAD90,4|10|E5926D,-4|11|DE8561,-3|11|FFA68D,3|11|FBA288,4|11|FFA68D,5|11|BB6131,-4|12|FF9F89,-3|12|FF9F89,-2|12|F3947A,-1|12|F4957B,0|12|FC9C86,1|12|FF9F89,2|12|FF9F89,3|12|FF9F89,4|12|FF9F89,5|12|F09175,-4|13|E48063,-3|13|FD9683,-2|13|FD9784,-1|13|F9937E,0|13|F18B74,1|13|E58165,2|13|D67452,3|13|C26338,4|13|F08B73,5|13|FF9886,5|14|D46E4D", 1)
             //下面这句用于分割字符串
             MyArray = Split(XY, "|")
             //下面这句将字符串转换成数值
             X = Clng(MyArray(0)): Y = Clng(MyArray(1))
             Gosub 验证
             If x>0
                 Gosub 人物按键
                 Gosub 精确找怪


di001

Delay 1000
                 Gosub 宠物操作
             EndIf
             //下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
             Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
             //下面这句用于分割字符串
             MyArray = Split(XY, "|")
             //下面这句将字符串转换成数值
             X = Clng(MyArray(0)): Y = Clng(MyArray(1))
             //判断是否结束战斗
             If x>0
                 Gosub 加雪蓝
                 Delay 300
                 Goto 开始
             EndIf
         EndWhile
     EndIf
Return 判断进入战斗


源代码是这个吧怎么用啊.开了按键精灵点了代码以后不会用
教下谢谢


更强

LZ

雅法海

怂不怂？

马宝清马宝清

我忏悔，我邪淫太深，伤害自己太深，因为怕心，和家人销毁过能度人的佛法真经书籍，我和我的家人一起忏悔，我们错了，今天严正声
明，我和我的家人以前所有做过的错事，全部。声明作废，做个善良的人，请宇宙众生原谅我们吧，真的不敢做坏事了，听圣人说过:人所有不幸的根本原因都是业力造成的，人做好事会得到德这种物质，做了坏事会得到业力这种物质，我们真的错了，原谅我和我的家人吧，并且深深忏悔。 姓名:Ren Hong 西历:2023年1月16日