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

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

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

EdgeNat 新年开通优惠 - 韩国独立服务器原生IP地址CN2线路七折优惠

EdgeNat 商家在之前也有分享过几次活动,主要提供香港和韩国的VPS主机,分别在沙田和首尔LG机房,服务器均为自营硬件,电信CN2线路,移动联通BGP直连,其中VPS主机基于KVM架构,宿主机采用四路E5处理器、raid10+BBU固态硬盘!最高可以提供500Gbps DDoS防御。这次开年活动中有提供七折优惠的韩国独立服务器,原生IP地址CN2线路。第一、优惠券活动EdgeNat优惠码(限月...

美国高防云服务器 1核 1G 10M 38元/月 百纵科技

百纵科技:美国云服务器活动重磅来袭,洛杉矶C3机房 带金盾高防,会员后台可自助管理防火墙,添加黑白名单 CC策略开启低中高.CPU全系列E52680v3 DDR4内存 三星固态盘列阵。另有高防清洗!百纵科技官网:https://www.baizon.cn/联系QQ:3005827206美国洛杉矶 CN2 云服务器CPU内存带宽数据盘防御价格活动活动地址1核1G10M10G10G38/月续费同价点击...

OneTechCloud香港/日本/美国CN2 GIA月付9折季付8折,可选原生IP或高防VPS

OneTechCloud(易科云)是一家主打CN2等高端线路的VPS主机商家,成立于2019年,提供的产品包括VPS主机和独立服务器租用等,数据中心可选美国洛杉矶、中国香港、日本等,有CN2 GIA线路、AS9929、高防、原生IP等。目前商家针对全场VPS主机提供月付9折,季付8折优惠码,优惠后香港VPS最低季付64元起(≈21.3元/月),美国洛杉矶CN2 GIA线路+20Gbps防御型VPS...

按键精灵挂机为你推荐
贺卡网站你觉得专门做网页贺卡的网站怎么样?微信语音在哪个文件夹【求助】微信语音的文件夹在哪里??北漂论坛北漂族的艰辛主要体现在哪些方面?angel的意思Angel什么意思魔兽世界密保卡WOW现在的密保卡怎么弄?盈科oa办公系统OA办公设备主要有哪些?该怎样安装和维护、。软件测试工程师待遇软件测试工程师发展前景怎么样,福利待遇好吗?cad图批量打印怎样一次性打印CAD所有布局里面的图洛阳小程序开发小程序这么火,怎么用小程序去赚钱hub和路由器的区别集线器(HUB)、交换机和路由器的区别是什么?
主机租赁 免费网站域名注册 表单样式 香港新世界电讯 全能主机 免费ftp站点 500m空间 嘟牛 圣诞促销 jsp空间 赞助 gtt linux使用教程 申请免费空间和域名 中国电信测速器 路由跟踪 中国电信网络测速 服务器防火墙 阿里云邮箱登陆地址 注册阿里云邮箱 更多