¿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.