开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 12484|回复: 4
收起左侧

[乐玩问答] 有偿请求把AHK代码转成易语言的乐玩.

[复制链接]
结帖率:0% (0/1)
发表于 2020-1-6 22:06:05 | 显示全部楼层 |阅读模式   广东省珠海市
乐玩插件能实现剑灵的后台取色和抓字,点击鼠标操作吗?.只想要有大佬帮我把AHK转换一下就得了,接下来我自己研究.有偿,请加我Q16680065.当初我也是从AHK的成品代码来研究出自己的.
XButton1::
#Persistent
SetTimer,HT,0
Return
F3::
SetTimer,KE,off
SetTimer,Z,off
SetTimer,JR,off
SetTimer,HT,off
send {Right up}
reload this script
Return
Return
F2::
SetTimer,KE,0
SetTimer,Z,0
SetTimer,JR,5000
Return
Z:
WinActivate, ahk_class LaunchUnrealUWindowsClient
if c(674,97)=0xF36B24
{
send {Right up}
send 1
send 3
loop
{
send ]
}
until c(674,97)!=0xF36B24
}
else
{
send {Right down}
;send 6
;send ]
}
Return
KE:
if (c(1403,382)=0x966932 or c(1408,374)=0xBB8B46) and c(674,97)!=0xF36B24
{
SetTimer,Z,off
sleep 200
send c
sleep 50
send {Esc}
sleep 200
send j
sleep 400
Mouseclick,left , 1404,390, 2
sleep 100
Mouseclick,left , 1408,374, 2
sleep 100
MouseClick, left, , , 2
sleep 50
MouseClick, left, , , 2
sleep 50
MouseClick, left, , , 2
sleep 50
MouseClick, left,1427,690
sleep 10
MouseClick, left,1427,690
sleep 10
MouseClick, left,1427,690
sleep 10
send ff
sleep 10
send ff
sleep 50
send ff
sleep 30
send ff
sleep 50
send ff
sleep 50
send ff
sleep 50
send ff
sleep 50
send ff
sleep 50
send ff
sleep 600
MouseClick, left,145,78,2
sleep 500
if c(43,41)!=0xF6D9BF
{
run,D:\Documents\Desktop\AHK\rm.ahk
sleep 4500
}
send [
SetTimer,Z,0
}
;;没有任务
if c(1374,378)!=0x57A8D9 and c(1375,444)!=0x0979B7
{
send c
sleep 50
send {Esc}

sleep 100
send j
sleep 600
MouseClick, left,145,78,2
sleep 500
if c(43,41)!=0xF6D9BF
{
run,D:\Documents\Desktop\AHK\rm.ahk
sleep 4500
send [
}
}
if c(951,901)=0xD66B4E
{
send 7

}
if c(324,110)=0xD69C67 or c(843,645)=0xEDA20F or c(843,644)=0xF6B213
{
send {Esc}
sleep 50
send {Esc}
sleep 100
send yy
sleep 30
}
;修武器
if c(1110,768)=0*F8787 or c(1082,771)=0xF9B3B3 or c(1262,894)=0xF6B2B2 or c(1197,899)=0xFAB2B2
{
send 8
}
PixelSearch, Px, Py, 1013, 872, 1501, 917,0x6D201E, 0, Fast RGB
If ErrorLevel
{
}
Else
{
send 8
}
if c(859,773)=0xF0612B
{
send 7
}
IfWinExist,ahk_class LaunchUnrealUWindowsClient
{
}
else
{
SetTimer,KE,off
SetTimer,Z,off
sleep 500
goto g
}
IfWinExist,ahk_class Ghost
{
ToolTip, % "检测到未响应", 20, 20, R
SetTimer,KE,off
SetTimer,Z,off
sleep 25000
goto g
}
;组人
PixelSearch, ZX, ZY, 1013, 872, 1501, 917, 0xEEDACD, 2, Fast RGB
if ErrorLevel
{
}
else
{
if c(24,323)!=0x26B3FF
{
ToolTip, % "组人区域找色", 20, 20, R
sleep 200
SetTimer,JR,off
SetTimer,Z,off
sleep 30
send i
sleep 1000
Mouseclick,left ,%ZX%,%ZY%
sleep 600
MouseClick, left,842,144,5
sleep 600
send {Right up}
sleep 30
send {Right down}
sleep 30
send {Esc}
sleep 30
SetTimer,JR,1000
sleep 30
SetTimer,Z,0
Return
}
Return
}
if c(1261,897)=0xDEC4B1 or c(1262,894)=0xEED6C7 or c(1264,892)=0xCE997F or c(1262,898)=0xECD*F
{
ToolTip, % "组人8", 20, 20, R
sleep 500
SetTimer,JR,off
SetTimer,Z,off
sleep 30
send i
sleep 1000
Mouseclick,left ,1261,897
sleep 600
MouseClick, left,840,150,5
sleep 600
send {Right up}
sleep 30
send {Right down}
sleep 30
send {Esc}
sleep 30
SetTimer,JR,200
sleep 30
SetTimer,Z,0
Return
}
if c(1225,894)=0xF0E4D9 or c(1226,897)=0xEAC9B2 or c(1225,898)=0xEEDACD
{
ToolTip, % "组人82", 20, 20, R
sleep 500
sleep 500
SetTimer,JR,off
SetTimer,Z,off
sleep 30
send i
sleep 1000
Mouseclick,left ,1226,897
sleep 600
MouseClick, left,842,144,5
sleep 600
send {Right up}
sleep 30
send {Right down}
sleep 30
send {Esc}
sleep 30
SetTimer,JR,200
sleep 30
SetTimer,Z,0
Return
}
if c(1264,889)=0x615E5B
{
ToolTip, % "组人83", 20, 20, R
sleep 500
ToolTip, % "组人82", 20, 20, R
sleep 500
sleep 500
SetTimer,JR,off
SetTimer,Z,off
sleep 30
send i
sleep 1000
Mouseclick,left ,1264,889
sleep 600
MouseClick, left,842,144,5
sleep 600
send {Right up}
sleep 30
send {Right down}
sleep 30
send {Esc}
sleep 30
SetTimer,JR,200
sleep 30
SetTimer,Z,0
Return
}
Return
JR:
if c(826,784)=0x674E25
{
SetTimer,KE,off
SetTimer,Z,off
sleep 500
ToolTip, % "死了", 20, 20, R
sleep 500
run,tencent://message/?uin=16680065
sleep 500
send 死了555555555
sleep 500
send {Enter}
sleep 500
winclose,烟仔
sleep 500
SetTimer,KE,1000
SetTimer,Z,0
}
;存在聊天框
if c(22,914)=0xFFFFFF
{
send {Enter}
sleep 80
}
if c(44,44)=0xF5D7B9 and c(26,322)!=0x1FB0FF and c(844,910)=0x3D9872
{
SetTimer,KE,off
SetTimer,Z,off
sleep 30
send {Enter}
sleep 300
send /Z 蜘蛛 通宵无限**
结帖率:75% (3/4)
发表于 2020-8-9 22:04:05 | 显示全部楼层   四川省绵阳市
竹小柒 发表于 2020-1-6 23:39
这个稍微百度一下资料就行了吧 只是搞起来比较费事儿

对着你头像冲了
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
 楼主| 发表于 2020-1-11 02:07:37 高大上手机用户 | 显示全部楼层   广东省珠海市
ahk的有简单的作品很容易对照学,易语言的循环我搞不懂。求指导一下。
回复 支持 反对

使用道具 举报

结帖率:29% (10/34)

签到天数: 10 天

发表于 2020-1-6 23:39:53 | 显示全部楼层   重庆市重庆市
这个稍微百度一下资料就行了吧 只是搞起来比较费事儿
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2020-1-6 23:01:44 | 显示全部楼层   河北省唐山市
应该可以吧,有人还弄逆水寒呢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表