按键精灵挂机按键精灵切换窗口（为了挂机）

怎样后天运行按键精灵挂机

rem 下面这句是2113得到鼠标下的窗口的句柄，就是你想要发送5261的窗口的句柄 Plugin Hwnd = Window.MousePoint() Delay 1000 rem 下面这句是向这个窗口发送一个按键 Plugin Bkgnd.KeyPress(Hwnd, 111) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, 49) Delay 200 Plugin Bkgnd.KeyPress(Hwnd, xxx) rem xxx处输入4102你要的按键扫描码，像49，1只要输入49就可1653以了，Delay后是延迟时间，单位是毫秒 以下类推，只要把回XXX改成你要的按键就行了 我也刚学希望对你有所帮助 记得加分哦答

机战 按键精灵如何挂机

1.首先要选择职业 0近战 1远战 　　2.要把显示人物名字的选项关闭 　　3.可以使用带加PW的4号核心 　　4.脚本支持两个技能 放的时候最好一个用PW的 一个用EN的 　　5.XP技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1 　　6.F1红 F2 F3技能 F8回城卷 　　7.最好关闭与按键无关的其他软件 避免出现游戏变卡 影响脚本正常运行 　　//F1红 F2 F3技能 F8回城卷 　　VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r 　　VBS dim zhiye,zidongzhaoguai,zidongjianwu,xp 　　VBS m=85:n=10 　　VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r="" 　　VBS c=0:d=0 　　VBS dim jn1,jn2 　　VBS jn1=0:jn2=0 　　UserVar zhiye=1 选择职业 0近战 1远战 　　UserVar hp=50 红量<%多少时,补红 　　UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪 　　UserVar zidongjianwu=1 0不自动捡物 1自动捡物 　　UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3 　　Rem 机战 　　Gosub 找怪 　　Gosub 攻击怪 　　Gosub 补红 　　Gosub 捡钱 　　Gosub 捡熟练度 　　Gosub 捡流星 　　Gosub 捡粉红水晶 　　Gosub 捡蓝水晶x 　　Gosub 捡聚态水晶 　　Gosub 检测xp 　　Gosub 无弹回城 　　Gosub 拒绝交易 　　Gosub 同意组队 　　Gosub 关闭推荐任务 　　Gosub 关闭导师界面 　　Delay 32 　　Goto 机战 　　Sub 找怪 　　If zidongzhaoguai=1 　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) 　　If x<0 and y<0 　　Delay 32 　　VBS c=c+1 　　If c>4 　　Delay 225 　　MoveTo 510 500 　　LeftClick 1 　　Gosub 快速找怪 　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) 　　If x<0 and y<0 　　Delay 520 　　MoveTo 100 330 　　LeftClick 1 　　Gosub 快速找怪 　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) 　　If x<0 and y<0 　　Delay 520 　　MoveTo 510 200 　　LeftClick 1 　　Gosub 快速找怪 　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y) 　　If x<0 and y<0 　　Delay 520 　　MoveTo 920 330 　　LeftClick 1 　　Gosub 快速找怪 　　EndIf 　　EndIf 　　EndIf 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 攻击怪 　　VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　VBS c=0 　　MoveTo x-20 y+20 　　LeftClick 1 　　Delay 32 　　Gosub 攻击 　　VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　VBS c=0 　　MoveTo x-20 y-20 　　LeftClick 1 　　Delay 32 　　Gosub 攻击 　　VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　VBS c=0 　　MoveTo x+20 y-20 　　LeftClick 1 　　Delay 32 　　Gosub 攻击 　　VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　VBS c=0 　　MoveTo x+20 y+20 　　LeftClick 1 　　Delay 32 　　Gosub 攻击 　　EndIf 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 攻击 　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　MoveTo x+n y+m 　　RightClick 1 　　Gosub 技能1 　　Gosub 技能2 　　Else 　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y) 　　If x>=0 and y>=0 　　MoveTo x+n y+m-n 　　RightClick 1 　　EndIf 　　EndIf 　　Return 　　Sub 快速找怪 　　VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y) 　　If x<0 and y<0 　　KeyDown 17 1 　　LeftClick 1 　　KeyUp 17 1 　　EndIf 　　Return 　　Sub 技能1 　　IfColor 139 45 ae21 2 　　Delay 32 　　VBS jn1=jn1+1 　　If jn1>=4 　　KeyPress 113 1 　　VBS jn1=0 　　EndIf 　　EndIf 　　Return 　　Sub 技能2 　　IfColor 139 45 ae21 2 　　Delay 32 　　VBS jn2=jn2+1 　　If jn2>=8 　　KeyPress 114 1 　　VBS jn2=0 　　EndIf 　　EndIf 　　Return 　　Sub 补红 　　IfColor hp*1.13+121 31 313033 2 　　KeyPress 112 1 　　EndIf 　　Return 　　Sub 捡钱 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS a=x1:b=y1 　　VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo a b 　　Delay 32 　　LeftClick 1 　　VBS a="":b="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 捡熟练度 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS e=x1:f=y1 　　VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo e f 　　Delay 32 　　LeftClick 1 　　VBS e="":f="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 捡流星 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS g=x1:h=y1 　　VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo g h 　　Delay 32 　　LeftClick 1 　　VBS g="":h="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 捡粉红水晶 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS i=x1:j=y1 　　VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo i j 　　Delay 32 　　LeftClick 1 　　VBS i="":j="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 捡蓝水晶 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS k=x1:l=y1 　　VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo k l 　　Delay 32 　　LeftClick 1 　　VBS k="":l="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 捡聚态水晶 　　If zidongjianwu=1 　　VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1) 　　If x1>=0 and y1>=0 　　VBS q=x1:r=y1 　　VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2) 　　If x2>=0 and y2>=0 　　MoveTo g h 　　Delay 32 　　LeftClick 1 　　VBS q="":r="" 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 检测xp 　　VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y) 　　If x>=0 and y>=0 　　Gosub xp1 　　Gosub xp2 　　Gosub xp3 　　EndIf 　　Return 　　Sub xp1 　　If xp=1 　　MoveTo 935 540 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub xp2 　　If xp=2 　　MoveTo 881 547 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub xp3 　　If xp=3 　　MoveTo 812 551 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub 无弹回城 　　If zhiye=1 　　VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y) 　　If x<0 and y<0 　　Delay 32 　　VBS d=d+1 　　If d=6 　　KeyPress 119 1 　　EndIf 　　EndIf 　　EndIf 　　Return 　　Sub 拒绝交易 　　VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1) 　　VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2) 　　VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3) 　　If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0 　　MoveTo 312 390 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub 同意组队 　　VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1) 　　VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2) 　　If x1>=0 and y1>=0 and x2>=0 and y2>=0 　　MoveTo 223 394 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub 关闭推荐任务 　　VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1) 　　VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2) 　　If x1>=0 and y1>=0 and x2>=0 and y2>=0 　　MoveTo 906 237 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return 　　Sub 关闭导师界面 　　VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1) 　　VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2) 　　If x1>=0 and y1>=0 and x2>=0 and y2>=0 　　MoveTo 270 181 　　Delay 32 　　LeftClick 1 　　EndIf 　　Return

按键精灵切换窗口（为了挂机）

不清楚LZ的按键精灵是指哪一种。

。

。

如果要自己写的话,我给LZ提供一种思路,仅供参考,我们可以利用API函数SetForegroundWindow来切换当前最顶端显示的窗体,然后使用计数器用while循环进行循环切换,比如A窗体的句柄是WHD_A而B窗体的是WHD_B那么我们可以这么写(由于我是Delphi编程的所以提供Pascal语法规则的伪代码): while 循环条件 do begin SetForegroundWindow(WHD_A);//将A窗体赋予焦点并且放置到最上方 按键... SetForegroundWindow(WHD_B);//将B窗体赋予焦点并且放置到最上方 按键... end; 我想其他语言应该只有按键的写法和循环写法不同吧。

。

。

至于如何获得窗口句柄可以使用Windows的API函数FindWindow。

提供这个方法,希望对你有用