梦幻诛仙求按键精灵脚本!高手进 用按键精灵制作的梦幻诛仙脚本如何在游戏窗口中运行?
\u6c42\u6309\u952e\u7cbe\u7075\u5236\u4f5c\u5927\u795e\u5236\u4f5c\u68a6\u5e7b\u8bdb\u4ed92\u540e\u53f0\u81ea\u52a8\u6536\u8d27\u811a\u672c\uff01\uff01\u5236\u4f5c\u5b8c\u621080\u5206\u9001\u4e0a\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\uff01\u8fd9\u73a9\u610f\u771f\u7684\u4f1a\u88ab\u5c01\u7684
\u628a\u9f20\u6807\u6307\u5411\u53ef\u4ee5\u53d1\u9001\u6309\u952e\u7684\u7a97\u53e3\uff0c\u7136\u540e\u542f\u52a8\u811a\u672c\u5373\u53ef\u8fd0\u884c\uff1a 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 \u5982\u82e5\u4e0d\u8981\u5faa\u73af\uff0c\u5219\u53bb\u6389\u6700\u540e\u4e00\u884c"Goto Loop"
\u6c42\u91c7\u7eb3
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 判断进入战斗
东西给你了,如果还不懂的话我也没办法
绛旓細姊﹀够璇涗粰鑷姩鏉鎬鑴氭湰 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.FindM...
绛旓細Delay 200 MoveTo 21,2 Delay 200 LeftUp 1 Delay 1000 KeyDown 18,1 KeyPress 89,1 KeyUp 18,1 Rem a Call FindPic(0,0,345,345,"D:\杈呭姪\姊﹀够璇涗粰:\bb1.bmp",0.9,X,Y)If X>0 Then Call 鎶揃B()End if Call FindPic(0,0,1024,768,"D:\杈呭姪\姊﹀够璇涗粰:\fashu.bmp",0.9...
绛旓細鏌愪簺鑴氭湰闇瑕佺壒瀹氱殑鍒嗚鲸鐜囨墠鍙繍琛岋紝鎮ㄥ彧瑕佺偣鍑绘ā鎷熷櫒鍙充笂鏂圭殑銆愯缃戞寜閽紝鍗冲彲鎵撳紑璁剧疆鐣岄潰鏍规嵁鑴氭湰鐨勯渶姹傞夋嫨鑷畾鍒嗚鲸鐜囷紝鐒跺悗杈撳叆鑴氭湰鎵闇鐨勫垎杈ㄧ巼銆傜偣鍑讳慨鏀规寜閽悗鐐瑰嚮寮圭獥涓婄殑銆愰噸鍚戯紝寰呮ā鎷熷櫒閲嶅惎瀹屾垚鍚庯紝鍐嶆杩愯銆愭父鎴忚渹绐濄杩涘叆璇涗粰鍗冲彲寮濮嬫寕鏈哄暒锛佹ⅵ骞鏂拌瘺浠欒佹澘閿 1銆侀鍏堬紝鐜╁鎸夌収鎺㈢伒娌抽槼鍩...
绛旓細浣犲厛涓涓獥鍙 璇曢獙銆侾lugin.Window.Find(0, "姊﹀够璇涗粰2[3.132.10419.2807] 鏃ユ湀鍏夎緣 澶曢槼澶 闈掍簯闂 80绾")---涓鑸笉鐢 姊﹀够璇涗粰2[3.132.10419.2807] 鏃ユ湀鍏夎緣 澶曢槼澶 闈掍簯闂 80绾с傚お楹荤儲浜嗐傝娉曟殑銆傚鏋滄垚鍔熶簡锛屼綘杩欐牱锛氳幏寰楀綋鍓 绐楀彛鍙ユ焺 hwnd1锛岋紝鐒跺悗 鍦ㄧ瓑寰2绉掞紝鑾峰緱鍙ユ焺hwnd...
绛旓細1.璁剧疆> 鐐鎸夐敭绮剧伒鐨勮缃 閫夋嫨鍏朵粬妯″紡璇曚笅 2.鍚庤鍙ュ悗闈+S鎴+H S=瓒呯骇妯℃嫙 H=纭欢妯℃嫙
绛旓細鎸夐敭绮剧伒鏄厤璐圭殑鍚с佹湁鑴氭湰鐨勮瘽灏辩洿鎺ョ敤鍚с佷笉杩囧皬蹇冨皝鍙风殑鍝︼紒锛 鏈鍚庢劅璋㈡偍鐨勬敮鎸.鏇村鏀荤暐銆佺枒闅鹃棶棰樿В绛斿敖鍦178姊﹀够璇涗粰璁哄潧. http://bbs.178.com/forum-182-1.html 楹荤儲閲囩撼锛岃阿璋!
绛旓細濡傛灉閲岄潰鐨勬暟瀛楀彲浠ュ鍒跺埌鍓创鏉跨殑璇濓紝鍙互鐢ㄤ笅闈㈢殑鍛戒护銆傚垽瀹氬壀璐存澘鍐呮暟瀛楋紝濡傛灉澶т簬鍓创鏉垮唴鏁板瓧鎵ц锛屽鏋滃皬浜庡壀璐存澘鏁板瓧鍐呮墽琛岋紝濡傛灉绛変簬鍓创鏉挎暟瀛楁墽琛 Clipboard = int(Plugin.Sys.GetCLB())If Clipboard > 鈥119521鈥 Then End If If Clipboard < 鈥119521鈥 Then End If If Clipboard = 鈥...
绛旓細搴旇涓嶆槸 绠鍗曟父閲岄潰鐨鑴氭湰閮芥槸宸ヤ綔瀹 鍒朵綔鍑烘潵鐨 浠ュ墠杩樻槸鍏嶈垂鐨 鎸夐敭绮剧伒鏄渶寮濮 浣跨敤鏈澶氱殑鑴氭湰 鍚庢潵 鎵嶆紨鍙樺嚭鏉ョ殑 绠鍗曟父閲岄潰 杩樻湁鎬庝箞澶 姊﹀够璇涗粰 鍏朵粬娓告垙鐨勮剼鏈 涓嶅彲鑳芥槸缃戞槗鎼炵殑 涓嶇劧鍏朵粬鑴氭湰 涓嶄細鍑虹幇 浠涔堝ぇ澶 浠涔堜粈涔 宸ヤ綔瀹 鍒朵綔 ...
绛旓細涓妤肩函绮硅儭璇撮湼閬 涓鑸殑鍠婅瘽閮芥槸杈撳叆銆傜劧鍚庡洖杞︺傘侳or x SayString "a"KeyPress 13,1 Delay y EndFor 鎶妜鎹㈡垚浣犳兂鍠婂緱娆℃暟銆傛槸鏁板瓧 a鎹㈡垚浣犺璇寸殑鍐呭锛岃鍦ㄥ紩鍙烽噷 y鎹㈡垚浣犳兂姣忓涔呭枈涓娆$殑鏃堕棿銆傚鏋滄槸1绉掋傞偅涔堝氨鏄1000,10绉掓槸10000锛屼緷姝ょ被鎺 ...
绛旓細姊﹀够璇涗粰鍙堜笉鏄紶濂囷紝鍙橀熼娇杞瀹冩病鏈夋晥鏋溿傝屼笖鐜板湪瀹岀編瀵规ⅵ骞昏瘺浠欎娇鐢ㄥ鎸傛墦寰楅潪甯镐弗鏍硷紝浣犵敤涓涓鎸夐敭绮剧伒閮戒細琚皝鍙枫 寤鸿鏈濂戒笉瑕佹兂澶栨寕杩欎簺浜嗭紝闄ら潪鏄竴浜涗笓涓氳璁$殑鑴氭湰鎴栧鎸