用按键精灵制作的梦幻诛仙脚本如何在游戏窗口中运行？
把鼠标指向可以发送按键的窗口，然后启动脚本即可运行： Plugin hwnd = Window.MouPoint() Rem Loop Plugin Window.SendKeyDown(hwnd,17) Delay 203 Plugin Window.SendKeyDown(hwnd,9) Delay 125 Plugin Window.SendKeyUp(hwnd,17) Delay 63 Plugin Window.SendKeyUp(hwnd,9) Delay 609 Plugin Window.SendKeyDown(hwnd,112) Delay 78 Plugin Window.SendKeyUp(hwnd,112) Goto Loop 如若不要循环，则去掉最后一行"Goto Loop"
求采纳
梦幻诛仙求按键精灵脚本！高手进
梦幻诛仙自动杀怪脚本
Delay 2000
Delay 2000
UrVar Var=DropList{普通模拟:0|硬件模拟:1|超级模拟:2}=0 设置模拟方式
If var=0
SetSimMode 0
ElIf var=1
SetSimMode 1
El
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
UrVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7|F8:8}=1 人物使用技能
UrVar b=DropList{普通攻击:1|技能1:2}=1 宠物如何攻击
UrVar renhong=40 人物加血（%）
UrVar renlan=30 人物加蓝（%）
UrVar chonghong=40 宠物加血（%）
UrVar 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
ElIf b=2
//技能1
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
El
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))
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
ElIf a=2
KeyPress 113,1
ElIf a=3
KeyPress 114,1
ElIf a=4
KeyPress 115,1
ElIf a=5
KeyPress 116,1
ElIf a=6
KeyPress 117,1
ElIf a=7
KeyPress 118,1
ElIf 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 精确找怪
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 判断进入战斗
东西给你了，如果还不懂的话我也没办法
