VB獲取遊戲窗口句柄

'下面取遊戲窗口句柄 hwnd

Mir2Hwnd = FindWindow("TFrmMain", "legend of mir2")

hwnd = FindWindowEx(Mir2Hwnd, 0, "TDXDraw", vbNullString)

'以下為虛擬按鍵

PostMessage hwnd, WM_SETFOCUS, 0, 0 '獲得窗口焦點

PostMessage hwnd, WM_KEYDOWN, 0, 0 '發送回車鍵

'PostMessage hwnd, WM_KEYDOWN, VK_UP, MapVirtualKey(VK_UP, WM_KEYDOWN) '發送向上鍵

'PostMessage hwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) '發送回車鍵

'向遊戲窗口發送喊話內容

PostMessage hwnd, WM_CHAR, data(i), 0&

PostMessage hwnd, WM_CHAR, data(i + 1), 0&

___________

以上代碼也可以用VBS實現, 且更簡單. 如有不明,請qq 312897211