|
'下面取游戏窗口句柄 hwndMir2Hwnd = 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 |
