注册 登录
编程论坛 VB6论坛

为什么用 findwindo 找不到诺亚传说的游戏窗口,是代码的问题吗

asdfeaaq 发布于 2014-10-07 09:49, 394 次点击
Private Sub Timer1_Timer()
Dim hwnd, hwbn, dc As Long
hwnd = FindWindow(vbNullString, "NYCSClient Window")
hwbn = FindWindowEx(hwnd, 0, vbNullString, "全部跳过")
Dim rect As rect
dc = GetDC(0)
  If (hwnd <> 0) Then
    GetWindowRect hwnd, rect
    If GetPixel(dc, rect.left + 1000, rect.top + 700) <> &HE3AF00 Then
       SendMessage botton, &HF5, 0, 0
    Else
    End If
  End If
End Sub
0 回复
1