¿Quién puede escribir el PID de cualquier ventana en VB?

Tipo privado POINTAPI

X tan largo

Y tan largo

Tipo final

Declaración privada Función GetCursorPos Lib "USER32" (lpPoint como POINTAPI) mientras

Declaración privada Función WindowFromPoint Lib "USER32" (ByVal xPoint mientras, ByVal yPoint mientras)

Declaración privada Función GetWindowThreadProcessId Lib "USER32" (ByVal hwnd As Long, lpdwProcessId As Long 'Obtiene el PID del proceso del identificador especificado

Declaración privada Sub Sleep Lib "kernel32" (ByVal dwMillisegundos As Long)

Private Sub Command1_Click()

Dormir (2000)

Dim hwnd1, lpdwProcessId1, lpdwProcessId1 As Long 'Obtener el PID del proceso del identificador especificado lpdwProcessId1

Dim p As. POINTAPI

GetCursorPos p

hwnd1 = WindowFromPoint(p.X, p.Y)

Dim hwnd1 As Long

Llamar a GetWindowThreadProcessId( hwnd1, lpdwProcessId1) 'Obtiene el PID del proceso del identificador especificado

MsgBox lpdwProcessId1

End Sub

Solo mueve el mouse al punto donde deseas obtener el PID dentro de los dos segundos después de hacer clic en el botón. Esta operación solo se puede realizar usando una ventana. Es difícil obtener inmediatamente el PID de la ventana donde se va a obtener el PID. Es más difícil obtener el PID de la ventana. inmediatamente, debido a que los eventos que ocurren en forma de movimiento del mouse fuera del programa son más difíciles de capturar y requieren el uso de ganchos globales, eso es más complicado y generalmente innecesario. Simplemente usa el de arriba para tu juego de dos jugadores. Déjate otros detalles a ti mismo.