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

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

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

香港、美国、日本、韩国、新加坡、越南、泰国、加拿大、英国、德国、法国等VPS,全球独立服务器99元起步 湘南科技

全球独立服务器、站群多IP服务器、VPS(哪个国家都有),香港、美国、日本、韩国、新加坡、越南、泰国、加拿大、英国、德国、法国等等99元起步,湘南科技郴州市湘南科技有限公司官方网址:www.xiangnankeji.cn产品内容:全球独立服务器、站群多IP服务器、VPS(哪个国家都有),香港、美国、日本、韩国、新加坡、越南、泰国、加拿大、英国、德国、法国等等99元起步,湘南科技VPS价格表:独立服...

美国G口/香港CTG/美国T级超防云/物理机/CDN大促销 1核 1G 24元/月

[六一云迎国庆]转盘活动实物礼品美国G口/香港CTG/美国T级超防云/物理机/CDN大促销六一云 成立于2018年,归属于西安六一网络科技有限公司,是一家国内正规持有IDC ISP CDN IRCS电信经营许可证书的老牌商家。大陆持证公司受大陆各部门监管不好用支持退款退现,再也不怕被割韭菜了!主要业务有:国内高防云,美国高防云,美国cera大带宽,香港CTG,香港沙田CN2,海外站群服务,物理机,...

SugarHosts糖果主机六折 云服务器五折

也有在上个月介绍到糖果主机商12周年的促销活动,我有看到不少的朋友还是选择他们家的香港虚拟主机和美国虚拟主机比较多,同时有一个网友有联系到推荐入门的个人网站主机,最后建议他选择糖果主机的迷你主机方案,适合单个站点的。这次商家又推出所谓的秋季活动促销,这里一并整理看看这个服务商在秋季活动中有哪些值得选择的主机方案,比如虚拟主机最低可以享受六折,云服务器可以享受五折优惠。 官网地址:糖果主机秋季活动促...

按键精灵挂机为你推荐
空间背景音乐播放器QQ空间背景音乐播放器怎么用?360杀毒在线安装360杀毒免费版下载bt4破解教程请问这个无线网络要如何破解?是用BT3还是BT4,求教!!!淘气鸟乌儿很淘气,飞来飞去,蹦蹦跳跳,请你用“一会儿…一会儿…一会儿…”写写鸟儿?物联卡官网联通电信物联卡是正规卡吗?怎么不能在官网充值?创业好项目论坛1000元创业有什么好项目可以做?催收软件哪个好靠谱的催收方式除了正规要账公司,还有哪些渠道的?腾讯汽车论坛如何推广一个小城市的汽车论坛nero教程nero10刻录教程prepare的用法prepare和prepare for 用法有什么区别啊
cn域名价格 qq空间域名 lnmp site5 2017年万圣节 毫秒英文 腾讯云分析 申请个人网站 bgp双线 最好的免费空间 免费cdn 支持外链的相册 网购分享 英雄联盟台服官网 湖南idc 华为云建站 lamp架构 测速电信 卡巴斯基试用版下载 国外免费网盘 更多