VB obtiene el identificador de la ventana del juego.
Mir2Hwnd = FindWindow("TFrmMain", "mir2 legend")
hwnd = FindWindowEx(Mir2Hwnd, 0, "TDXDraw", vbNullString)
Lo siguiente es una clave virtual.
Postmessage hwnd, WM_setfocus, 0, 0 ' para obtener el foco de la ventana.
PostMessage hwnd, WM_KEYDOWN, 0, 0 'Envía la tecla Enter.
Postmessage hwnd, WM_keydown, vk_up, clave de envío de la clave virtual del mapa (vk_up, WM_keydown).
Postmessage hwnd, WM_Keydown, VK_Return, Map Virtual Key (VK_Return, WM_Keydown)' Envía la tecla Enter.
Envía contenido promocional a la ventana del juego.
PostMessage hwnd, WM_CHAR, datos(i), 0 amperios
PostMessage hwnd, WM_CHAR, datos(i 1), 0 amperios
___________
El código anterior también se puede implementar en VBS y es más simple. Si no está claro, por favor qq 312897211.