数天前..被某玩劲舞女生耻笑节奏感差..天生不能打perfect。。于是乎

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





  
  


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

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


用了QMDispatch.dll  WinIo.dll。。
QMDispatch.dll 这个东西得注册..
里面的findpic函数的用法是
Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
pos = QMDispatchObj.FindPic(左边X, 上边Y, 右边X, 下边Y, 路径, 相似度)
X= Int(pos / 8192)
Y=pos Mod 8192