梦幻诛仙求按键精灵脚本！高手进
作者&投稿：长兴逄 （若有异议请与网页底部的电邮联系）
这玩意真的会被封的
把鼠标指向可以发送按键的窗口，然后启动脚本即可运行： Plugin hwnd = Window.MousePoint() 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
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
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))
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
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 精确找怪
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 判断进入战斗
东西给你了，如果还不懂的话我也没办法
怎样用按键精灵自动喊话
一楼纯粹胡说霸道 一般的喊话都是输入。然后回车。。For x SayString "a"KeyPress 13,1 Delay y EndFor 把x换成你想喊得次数。是数字 a换成你要说的内容，要在引号里 y换成你想每多久喊一次的时间。如果是1秒。那么就是1000,10秒是10000，依此类推 ...
诛仙新区 11月30号 新区 天下归心
宠物放在货架上，如何让大家知道你的店开在这里向你的消费者花懒得去思考，例如，写你的个性签名里的广告，你的店铺。几个小号不填店时，摊位旁边的商会，摊销名称也写上您的广告。如果你想恶搞，在按键精灵站在商会商务部全国人民代表大会的下一站↑+输入刮刀的方法有很多，这是一个令人深思的，这...
众网的梦幻诛仙怎么没有南海
47.按键精灵、简单游等辅助脚本会被系统判定为。48.装备耐久度耗光后不会消失，只是属性不会发挥作用，可以进行修理。49.修为可以通过剧情任务与法宝回收(暂未开放)获得，修为会影响封印命中率、暴击几率等。50.乡试一周只可参加一次。可以在周一到周五之间的任意时间去参加。51.飞行旗点开后下面中间...
诛仙幻世怎么不能主动打怪
你看下是不是你设置的是攻击任务怪啊
计算机专业毕业设计写个游戏脚本可以吗?请前辈们回答。
你毕业设计做啥，主要还得看学校开题都给什么题目做。如果没有要求，就看导师注重哪个方面。如果导师允许你做游戏脚本，那你应该理解按键精灵的具体实现，别答辩的时候说不出来。
计算机专业毕业设计写个游戏脚本可以吗?请前辈们回答。
可以，如果做的好的话，说不定会被评定为优秀毕业设计哦。而且，你如果真的要做游戏的话，建议你，一定要做到惊艳。
按键精灵 如何解除梦幻诛仙屏蔽
1.设置> 点按键精灵的设置 选择其他模式试下 2.后语句后面+S或+H S=超级模拟 H=硬件模拟
以裘菊蓝： 自动寻路是Alt+Y
深州市19655392946： 用按键精灵制作的梦幻诛仙脚本如何在游戏窗口中运行? - ？
以裘菊蓝： 把鼠标指向可以发送按键的窗口,然后启动脚本即可运行: Plugin hwnd = Window.MousePoint() Rem Loop Plugin Window.SendKeyDown(hwnd,17) Delay 203 Plugin Window.SendKeyDown(hwnd,9) Delay 125 Plugin Window.SendKeyUp(hwnd...
深州市19655392946： 诛仙刷法宝精力按键精灵脚本 - ？
以裘菊蓝： 河阳炼器师后面有个透明怪 你选中后 下个键盘连点器 完了把法宝技能拖到快捷键里去 在技能连点上设置下按键时间 就可以了 也可以下个简单百宝箱.里面有
深州市19655392946： 梦幻诛仙有挂吗或者脚本,求推荐 - ？
以裘菊蓝： 脚本应该是有的 但是不可能有免费的 网上的免费大多数是木马 楼主可以去淘宝看一下 一般都不贵 20块一个月吧 但是我觉得吧 玩游戏用脚本就没乐趣了 挂还是算了吧 本来就有内挂了 外挂不是木马就是假的 完美打击外挂真心很严
深州市19655392946： 高分:求按键精灵后台脚本 KeyPress 27,1 Delay 5000 窗口名称:诛仙2 - ？
以裘菊蓝： Hwnd = Plugin.Window.Foreground() rem 1 Plugin Window.SendKeyPress(hz,27) delay 5000 goto 1
深州市19655392946： 求高手帮写一个按键精灵的脚本啊?就是按一下空格等于按好多下的 麻烦一下 谢了 - ？
以裘菊蓝： Dim 上次按键 i = 0 While i = 0 上次按键 = GetLastKey() //上面这个是检测上次按键 或者用等待按任意键 效果应该差不多 上次按键 = WaitKey() If 上次按键 = 32 ThenCall 按空格20次() End If Wend Sub 按空格20次()For 20KeyPress 32, 1Next End Sub经过本人测试 已通过 按一下空格= 按20 下
深州市19655392946： 跪求,按键精灵高手进!!!关于文字游戏!! - ？
以裘菊蓝： 普通的 不要后台--------先这个 进去,抓点,你要点的那几个点 写脚本:点1,,左键一下,,等待 1000毫秒,----点2,左键一下,,等待 1000毫秒,--------点3,左键一下,,等待 1000毫秒,---------点4,左键一下,,等待 1000毫秒,.右侧-----------运行----脚本循环------一直运行到按中止键
深州市19655392946： 按键精灵高手请进!!急求一脚本 - ？
以裘菊蓝： ↑ ↓→(这两个要同时按) ← v 应该和拳皇差不多吧,前下应该不用同时按吧 按键精灵有个录制动作的,你试试吧,如果不对就有程序里调一下延时就行了!同时按大概就是把两个键位之间的延时设为0ms,或者1ms吧,这已经很小的时间了!和你说的同时按应该没分别,人手的灵敏度应该也不会达到ms级吧
深州市19655392946： 高手帮俺做的按键精灵的脚本,需求如下: 按下“空格”键,弹出对话框让俺自定义弹起时间 - ？
以裘菊蓝： ys=InputBox(＂输入延时,单位:毫秒＂) KeyDown 32,1 Delay ys KeyUp 32,1//QQ:1103054945
深州市19655392946： 按键精灵6.60破解版,怎么做梦幻挤新区脚本..会做的教我下.,谢!？
以裘菊蓝： 你看:游戏那一栏新建个---文件夹 ---选中文件夹---点左上角的新建---打开一个对话框---点源文件---把相应的代码帖进去 --保存--OK 使用时按 F10..(一般默认就这个) 对应步骤的文字 自己找下~..都在精灵上.. 本人给你最好建议:按键精灵大多都带有木马了,除非自己做一个,想帐号安全,最好还是手动
