为什么用 findwindo 找不到诺亚传说的游戏窗口,是代码的问题吗
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