查看: 99|回复: 1
炫舞时代识图
阅读权限30
在线时间 小时
升级&&83%当前用户组为 易语言学徒当前积分为 266, 升到下一级还需要 34 点。签到天数：20 天结帖率： (51/59)
1.jpg (38.85 KB, 下载次数: 0)
10:18 上传
在游戏里我用的是快照拍方向键。现在已经可以识别方向键了，
请指教一下如何从左往右一个一个识别按键呀，这么说可以理解我的意思吗？
大漠找多图，分割，比较多图的坐标从左到右，然后依次按键即可。
给一段我以前写的x52的vb的代码你参考
Private Sub Timer1_Timer()
List1.Clear
List2.Clear
id = dm.FindPicEx(235, 384, 555, 433, App.Path + "\配置\s.bmp" & "|" & App.Path + "\配置\x.bmp" & "|" & App.Path + "\配置\z.bmp" & "|" & App.Path + "\配置\y.bmp" & "|" & App.Path + "\配置\sb.bmp" & "|" & App.Path + "\配置\xb ...
阅读权限10
在线时间 小时
升级&&24%当前用户组为 初识易语言当前积分为 12, 升到下一级还需要 38 点。
大漠找多图，分割，比较多图的坐标从左到右，然后依次按键即可。
给一段我以前写的x52的vb的代码你参考
Private Sub Timer1_Timer()
List1.Clear
List2.Clear
id = dm.FindPicEx(235, 384, 555, 433, App.Path + &\配置\s.bmp& & &|& & App.Path + &\配置\x.bmp& & &|& & App.Path + &\配置\z.bmp& & &|& & App.Path + &\配置\y.bmp& & &|& & App.Path + &\配置\sb.bmp& & &|& & App.Path + &\配置\xb.bmp& & &|& & App.Path + &\配置\zb.bmp& & &|& & App.Path + &\配置\yb.bmp& & &|& & App.Path + &\配置\xf.bmp& & &|& & App.Path + &\配置\sf.bmp& & &|& & App.Path + &\配置\yf.bmp& & &|& & App.Path + &\配置\zf.bmp& & &|& & App.Path + &\配置\xbf.bmp& & &|& & App.Path + &\配置\sbf.bmp& & &|& & App.Path + &\配置\ybf.bmp& & &|& & App.Path + &\配置\zbf.bmp&, 0, 0.9, 0)
If Len(id) & 0 Then
ss = Split(id, &|&)
& & For i = 0 To UBound(ss)
& && && &List1.AddItem Replace(Mid(ss(i), 1, Len(ss(i)) - 8), &,&, &&)&&'显示图片是上、下、左、右
& && && &List2.AddItem Replace(Mid(ss(i), 3, Len(ss(i)) - 6), &,&, &&)&&'显示图片X坐标，用来比较按键先后顺序
Timer1.Enabled = False
Timer2.Enabled = True
Private Sub Timer2_Timer()
Dim i, j, Min, h
If List2.ListCount & 0 Then
& & Min = Val(List2.List(0))
& & For i = 0 To List2.ListCount - 1
& && &&&j = Val(List2.List(i))
& && &&&If j & Min Then Min = j
& & 'MsgBox Min
& & '& & List2.ListIndex = i
& & For i = List2.ListCount - 1 To 0 Step -1
& && &&&If List2.List(i) = Min Then
& && && &&&List2.ListIndex = i
& && && &&&List1.ListIndex = List2.ListIndex
& && && && &&&If List1.Text = &0& Or List1.Text = &4& Or List1.Text = &8& Or List1.Text = &12& Then
& && && && && &&&dm.KeyPress 38& && && &&&'按上键
& && && && && &&&List2.RemoveItem List2.ListIndex
& && && && && &&&List1.RemoveItem List1.ListIndex
& && && && &&&ElseIf List1.Text = &1& Or List1.Text = &5& Or List1.Text = &9& Or List1.Text = &13& Then
& && && && && &&&dm.KeyPress 40& && && &&&'按下键
& && && && && &&&List2.RemoveItem List2.ListIndex
& && && && && &&&List1.RemoveItem List1.ListIndex
& && && && &&&ElseIf List1.Text = &2& Or List1.Text = &6& Or List1.Text = &10& Or List1.Text = &14& Then
& && && && && &&&dm.KeyPress 37& && && &&&'按左键
& && && && && &&&List2.RemoveItem List2.ListIndex
& && && && && &&&List1.RemoveItem List1.ListIndex
& && && && &&&ElseIf List1.Text = &3& Or List1.Text = &7& Or List1.Text = &11& Or List1.Text = &15& Then
& && && && && &&&dm.KeyPress 39& && && &&&'按右键
& && && && && &&&List2.RemoveItem List2.ListIndex
& && && && && &&&List1.RemoveItem List1.ListIndex
& && && && &&&End If
& && &&&End If
Timer2.Enabled = False
Timer1.Enabled = True
Timer3.Enabled = True
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
Powered by为什么用按键精灵做炫舞脚本，用时炫舞会卡住_百度知道
为什么用按键精灵做炫舞脚本，用时炫舞会卡住
为什么用按键精灵做炫舞脚本，用时炫舞会卡住？在按键精灵论坛里看到很多的脚本源码，试试看，结果用时就卡住，按键、空格都不好时，就是一直卡~这是为什么呢？
所有脚本都是这样~不是只有一个
最好的办法：把“炫舞”和“按键精灵”这两个进程的优先级调到“实时”。这方法最好！ 具体在任务管理器 - 进程标签 - 进程名 - 右键 - 优先级 - 实时
其他类似问题
按默认排序
其他3条回答
按键精灵本来就很不好，卡的原因是你家电脑配置和按键精灵不太对。劝你不要用按键精灵有毒的，。
不要自己做，自己做的好麻烦，你去别的论坛里下一个
游戏检测按键精灵
按键精灵的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1041|回复: 7
QQ炫舞3.5.6最新支持绿色.区挂源码支持自动按键/秘境加速/抓猪模式/高分各种功能
主题帖子积分
在线时间20 小时
马上注册，和广大易友一起学习交流吧~！
才可以下载或查看，没有帐号？
QQ炫舞3.5.6最新支持绿色.区挂支持自动按键/秘境加速/抓猪模式/高分各种功能&&- 转
①、本次更新添加了某些功能，如自动按键/
②、支持全模式全P/包括抓猪模式/抓猪模式请调用good子程序！
③、添加了秘境加速功能、
④、支持高分增强
太多的功能我也懒得添加自行完善……
修复了之前原有的一些bug！
老规矩回复下载！
142150oszox9mrf9zaetxz.png (13.88 KB, 下载次数: 0)
18:36 上传
游客，如果您要查看本帖隐藏内容请
支持楼主，奖励一下
主题帖子积分
易语言菜鸟（1级）, 积分 80, 距离下一级还需 20 积分
易语言菜鸟（1级）, 积分 80, 距离下一级还需 20 积分
在线时间3 小时
主题帖子积分
易语言菜鸟（1级）, 积分 36, 距离下一级还需 64 积分
易语言菜鸟（1级）, 积分 36, 距离下一级还需 64 积分
在线时间2 小时
剖婆婆iiipipipoip
请不要潜水哦
主题帖子积分
易语言菜鸟（3级）, 积分 231, 距离下一级还需 169 积分
易语言菜鸟（3级）, 积分 231, 距离下一级还需 169 积分
在线时间9 小时
让看看支持一下
主题帖子积分
易语言菜鸟（1级）, 积分 49, 距离下一级还需 51 积分
易语言菜鸟（1级）, 积分 49, 距离下一级还需 51 积分
在线时间0 小时
主题帖子积分
易语言菜鸟（2级）, 积分 133, 距离下一级还需 67 积分
易语言菜鸟（2级）, 积分 133, 距离下一级还需 67 积分
在线时间6 小时
感谢版主。过来学习一下！
主题帖子积分
易语言菜鸟（1级）, 积分 81, 距离下一级还需 19 积分
易语言菜鸟（1级）, 积分 81, 距离下一级还需 19 积分
在线时间5 小时
发表于 7&天前
太多的功能我也懒得添加自行完善……
修复了之前原有的一些bug！
主题帖子积分
爱易论坛唯一地址： 鄙视装B人
易语言入门（6级）, 积分 3132, 距离下一级还需 68 积分
易语言入门（6级）, 积分 3132, 距离下一级还需 68 积分
在线时间67 小时
发表于 4&天前
感谢版主。过来学习一下！
爱易论坛唯一网址：
正式版主，可领取此徽章。
100易币可购买此徽章，看来你真不差钱。
技术程度与装B程度已成正比，不服咬我。
Powered by