按键精灵挂机按键精灵切换窗口(为了挂机)
按键精灵挂机 时间: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。
提供这个方法,希望对你有用
RAKsmart机房将于7月1日~7月31日推出“年中大促”活动,多重惊喜供您选择;爆款I3-2120仅30美金秒杀、V4新品上市,活动期间5折抢购、爆款产品持续热卖、洛杉矶+硅谷+香港+日本站群恢复销售、G口不限流量产品超低价热卖。美国VPS、日本VPS及香港VPS享全场7折优惠;爆款VPS $ 1.99/月限量秒杀,10台/天,售完即止, VPS 7折优惠码:VPS-TP-disRAKsmar...
舍利云怎么样?舍利云推出了6核16G超大带宽316G高性能SSD和CPU,支持全球范围,原价516,折后价200元一月。原价80美元,现价30美元,支持地区:日本,新加坡,荷兰,法国,英国,澳大利亚,加拿大,韩国,美国纽约,美国硅谷,美国洛杉矶,美国亚特兰大,美国迈阿密州,美国西雅图,美国芝加哥,美国达拉斯。舍利云是vps云服务器的销售商家,其产品主要的特色是适合seo和建站,性价比方面非常不错,...
昨天,有在"阿里云秋季促销活动 轻量云服务器2G5M配置新购年60元"文章中记录到阿里云轻量服务器2GB内存、5M带宽一年60元的活动,当然这个也是国内机房的。我们很多人都清楚备案是需要接入的,如果我们在其他服务商的域名备案的,那是不能解析的。除非我们不是用来建站,而是用来云端的,是可以用的。这不看到其对手腾讯云也有推出两款轻量服务器活动。其中一款是4GB内存、8M带宽,这个比阿里云还要狠。这个真...
按键精灵挂机为你推荐
网页登陆密码破解如何破解网站登录用户名密码?在线年龄查询器时分秒计算器在线运算win7无线局域网关于用win7系统建立无线局域网qq空间个性域名Qq空间的个性域名是什么意思。印象城市游戏论坛游聚游戏平台如何使用?微信语音在哪个文件夹【求助】微信语音的文件夹在哪里??2020带来好运的微信头像2020带来好运抖音网名催收软件哪个好靠谱的催收方式除了正规要账公司,还有哪些渠道的?云图好看吗电影云图好看吗?魔兽世界密保卡WOW现在的密保卡怎么弄?
百度域名 cn域名注册 美国vps评测 新网域名解析 网易域名邮箱 香港服务器99idc kdata 163网 腾讯云数据库 国外bt 搜狗12306抢票助手 灵动鬼影 免费网页申请 shopex主机 国外视频网站有哪些 net空间 网页加速 电信宽带测速软件 黑科云 广东服务器托管 更多