有图有真相..折腾我几天..施工中 半成品[劲舞团无敌外挂]
数天前..被某玩劲舞女生耻笑节奏感差..天生不能打perfect。。于是乎

拙劣但有效的方法...这些网络游戏 ..基本读不了内存 惟有如此 ..截图大法
尚在施工中..自动按键就要好了..
本来要对QQ炫舞下手的..无奈腾讯大仙要检测XXXXXXXXX
于是对劲舞团下手

ing.JPG
perfect 4.JPG
perfect5.JPG
perfect 6.JPG
   perfect 9.JPG
   working.JPG


核心部分就一个在截图中查找图像的函数..来自于按键精灵的dll

Option Explicit
Private Declare Function FindPic Lib "QMDispatch" () As Long
等等声明
。。。
SetWindowPos XXXXXXX, A, 834, 116, 0, 0, b
            hw = FindWindow(vbNullString, "劲舞团")
SetWindowPos hw, HWND_NOTOPMOST, 0, 0, 1024, 768, SWP_SHOWWINDOW
。。。
Private Sub Timer1_Timer()
.....
    XXXXXXXXXXXX
    '定义空格常数
      Const VK_SPACE As Long = &H20
Dim pos As Long
  Dim QMDispatchObj As Object
  Set QMDispatchObj = CreateObject("XXXXXXXXXXXXXXXXXtion")
       BitBlt XXXXXXXXXXXX, 0, 0, 108, 12, XXXXXXXXXXXX, 0, 0, vbSrcCopy '复制节拍到picture2
  pos = XXXXXXXXXXXXXXXXXXXXc(875, 240, 983, 253, XXXXXXXX & "\Image\XXXXXXXX", 0.65) '寻找ball
XXXXXXXXXXXXXn = Str(Int(pos / 8192))
If Abs(pos / 8192 - 946.6) < 2 Then '若到perfect点
MyKeyDown VK_SPACE '从端口模拟按下空格
MyKeyUp VK_SPACE
.。。然后调用另外写了一个判断方向的函数
End If
........
End Sub


用了XXXXXXXXXXXXXX  XXXXXXXXX。。
XXXXXXXXXXXXXX 这个东西得注册..
里面的findpic函数的用法是
Set QMDispatchObj = CreateObject("XXXXXXXXXXXXXXXXXtion")
pos = XXXXXXXXXXXXXXXXXXXXc(左边X, 上边Y, 右边X, 下边Y, 路径, 相似度)
X= Int(pos / 8192)
Y=pos Mod 8192
+1500  科创币    我说要有光   2009-08-09    分享原创的成果
来自:计算机科学 / 软件综合
 
點蒼
12年1个月前
1楼
话说这个程序是LZ自己写的?
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
kangyuhelf2
12年1个月前
2楼
要是下载的话还敢发到KC上么- -! [s:94]
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
點蒼
12年1个月前
3楼
呵呵,LZ好用不,感觉怎么样
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
带火星的木条作者
12年1个月前
4楼
引用第1楼點蒼于2009-08-09 20:45发表的  :
话说这个程序是LZ自己写的?

当然自己写的..p率还不够 自动按键实施中。。
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
12年1个月前
5楼
完全无视AU
我还以为是CF呢
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
彼岸江山
12年1个月前
6楼
完全鄙视棒子游戏……
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
我说要有光
12年1个月前
7楼
先赞扬下LZ```   开源加分```
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
带火星的木条作者
12年1个月前
8楼
添上了核心部分.. 其他部分零零碎碎的..
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon
12年1个月前
9楼
这个工具用途很大
虽然技术比较简单,但是看得出楼主是用心做的,并且创意满分。

有了这个楼主不怕找不到女朋友了。





授予楼主“劲舞天王”称号。
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
jrcsh
12年1个月前
10楼
自动按键  完全可行还简单  多年前帮人写过  好象是作了 10个图就 ok 了

哪时的 按键精灵好象才 4。多的板本吧
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
epi.clyce
12年0个月前
11楼
啊……有GF的人。。。
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
noonoo1
11年11个月前
12楼
求楼主帮我, 我困在这两天了。
我的已是半成品,就不会发送键盘消息。
一定联系我,我QQ:40288193  ,给它发个消息,谢谢了。
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
noonoo1
11年11个月前
13楼
有图为证,我做了这两天了,
图片识别就一天,但这个输入实在没办法了。
不知道是不是那几个API不行,还是我查找窗口不对。 1.JPG
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
csakura
11年10个月前
14楼
引用第13楼noonoo1于2009-10-22 19:43发表的  :
有图为证,我做了这两天了,
图片识别就一天,但这个输入实在没办法了。
不知道是不是那几个API不行,还是我查找窗口不对。


游戏有反外挂保护,直接发送按键是无效的,像LZ那样直接写IO端口或者模拟一个键盘。
回复
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
带火星的木条
学者 笔友
文章
116
回复
578
学术分
2
2008/11/02注册,4 年前活动
暂无简介
%7B%22isDisplay%22%3Atrue%7D

仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。

插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
等待中...
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
处理中..
处理失败
插入表情
我的表情
共享表情
Emoji
上传
注意事项
最大尺寸100px,超过会被压缩。为保证效果,建议上传前自行处理。
建议上传自己DIY的表情,严禁上传侵权内容。
点击重试等待上传{{s.progress}}%处理中...已上传
空空如也~
草稿箱
加载中...
此处只插入正文,如果要使用草稿中的其余内容,请点击继续创作。
{{fromNow(d.toc)}}
{{getDraftInfo(d)}}
标题:{{d.t}}
内容:{{d.c}}
继续创作
删除插入插入
{{forum.displayName}}
{{forum.countThreads}}
篇文章,
{{forum.countPosts}}
条回复
{{forum.description || "暂无简介"}}
ID: {{user.uid}}
学术分隐藏
{{submitted?"":"投诉或举报"}}
请选择违规类型:
{{reason.description}}
支持的图片格式:jpg, jpeg, png
插入公式
分享回复:{{shareId}}
加载中...
评论控制
加载中...
文号:{{pid}}
加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
加入关注取消关注
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
建议修改
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}
下载资料
{{fileName}}
大小:{{size}}
下载当前附件将花费 {{costMessage}}
{{description}}
你当前剩余 {{holdMessage}}
{{fileName}}
大小:{{size}}
当前附件免费。
你已购买过此附件,下载当前附件不需要花费积分。
加载中...
{{errorInfo}}
附件已丢失
当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}