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

按键精灵挂机  时间: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。

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

Stablehost 美国主机商黑五虚拟主机四折

如今我们网友可能较多的会选择云服务器、VPS主机,对于虚拟主机的话可能很多人不会选择。但是我们有些外贸业务用途的建站项目还是会有选择虚拟主机的。今天看到的Stablehost 商家虚拟主机在黑五期间也有四折优惠,对于这个服务商而言不是特别的喜欢,虽然他们商家和我们熟悉的老鹰主机商有些类似,且在后来老鹰主机改版和方案后,Stablehost 商家也会跟随改版,但是性价比认为不如老鹰主机。这次黑色星期...

虎跃云-物理机16H/32G/50M山东枣庄高防BGP服务器低至550元每月!

虎跃科技怎么样?虎跃科技(虎跃云)是一家成立于2017年的国内专业服务商,专业主营云服务器和独立服务器(物理机)高防机房有着高端华为T级清洗能力,目前产品地区有:山东,江苏,浙江等多地区云服务器和独立服务器,今天虎跃云给大家带来了优惠活动,为了更好的促销,枣庄高防BGP服务器最高配置16核32G仅需550元/月,有需要的小伙伴可以来看看哦!产品可以支持24H无条件退款(活动产品退款请以活动规则为准...

CheapWindowsVPS:7个机房可选全场5折,1Gbps不限流量每月4.5美元

CheapWindowsVPS是一家成立于2007年的老牌国外主机商,顾名思义,一个提供便宜的Windows系统VPS主机(同样也支持安装Linux系列的哈)的商家,可选数据中心包括美国洛杉矶、达拉斯、芝加哥、纽约、英国伦敦、法国、新加坡等等,目前商家针对VPS主机推出5折优惠码,优惠后最低4GB内存套餐月付仅4.5美元。下面列出几款VPS主机配置信息。CPU:2cores内存:4GB硬盘:60G...

按键精灵挂机为你推荐
开放网开放wifi怎么改为不开放wifi发送垃圾短信发送垃圾短信被抓,会别判刑吗?最多判多久达内学院达内毕业后一般待遇多少linksys无线路由器设置关于LINKSYS BEFW11S4无线路由器设置excel2003官方microsoft office 2003下载dnf客户端消失地下城勇士登录 客户端消失智能公共广播系统公共广播系统的品牌都有哪些??linux操作系统好吗linux系统好不好学??做视频的免费软件求有哪种视频制作软件是全免费的啊?nero教程如何使用NERO刻碟
江西服务器租用 美国linux主机 3322免费域名 uk2 哈喽图床 realvnc 100x100头像 微信收钱 域名转向 谁的qq空间最好看 域名评估 国外代理服务器软件 卡巴斯基试用版 东莞数据中心 流量计费 可外链相册 世界测速 域名和空间 昆明蜗牛家 网游服务器 更多