按键精灵挂机按键精灵切换窗口(为了挂机)

按键精灵挂机  时间:2021-08-01  阅读:()

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

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。

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

香港服务器多少钱一个月?香港云服务器最便宜价格

香港服务器多少钱一个月?香港服务器租用配置价格一个月多少,现在很多中小型企业在建站时都会租用香港服务器,租用香港服务器可以使网站访问更流畅、稳定性更好,安全性会更高等等。香港服务器的租用和其他地区的服务器租用配置元素都是一样的,那么为什么香港服务器那么受欢迎呢,香港云服务器最便宜价格多少钱一个月呢?阿里云轻量应用服务器最便宜的是1核1G峰值带宽30Mbps,24元/月,288元/年。不过我们一般选...

Megalayer美国独立服务器配置及性能速度综合评测

Megalayer 商家在之前也有记录过,商家开始只有提供香港站群服务器和独立服务器,后来也有增加到美国独立服务器,以及前几天也有介绍到有增加香港VPS主机。对于香港服务器之前有过评测(Megalayer香港服务器配置一览及E3-1230 8GB服务器评测记录),这里申请到一台美国独立服务器,所以也准备简单的评测记录。目前市场上我们看到很多商家提供VPS或者云服务器基本上没有什么特别的,但是独立服...

PacificRack(年付低至19美元),夏季促销PR-M系列和多IP站群VPS主机

这几天有几个网友询问到是否有Windows VPS主机便宜的VPS主机商。原本他们是在Linode、Vultr主机商挂载DD安装Windows系统的,有的商家支持自定义WIN镜像,但是这些操作起来特别效率低下,每次安装一个Windows系统需要一两个小时,所以如果能找到比较合适的自带Windows系统的服务器那最好不过。这不看到PacificRack商家有提供夏季促销活动,其中包括年付便宜套餐的P...

按键精灵挂机为你推荐
qq业务代码QQ各业务开通及绑定代码??在线年龄查询器时分秒计算器在线运算限制局域网网速有什么可以限制局域网的网速?im社区百度HI到底是用来干嘛的?百度预测世界杯世界杯,今晚预测...msn邮箱后缀MSN 可以添加哪些后缀的色中色luntanwww.fzluntan.tk是什么类型的网站啊?淘气鸟淘气鸟论坛为什么打不开了智能公共广播系统有谁知道公共广播系统都包括那些设备云图好看吗云图好看么?
北京虚拟主机租用 新网域名管理 西安服务器 sharktech l5639 域名优惠码 sockscap debian源 丹弗 微信收钱 softbank邮箱 宏讯 万网注册 测试网速命令 建站论坛 godaddy域名 wannacry勒索病毒 卡巴斯基免费版下载 木马检测 vim 更多