Question

用VB激活窗口并模拟键盘输入

初学VB,请高手们.指教.
用VB程序激活一个最小化窗口，激活后在后台运行并模拟键盘输入
例如：打开一个游戏窗口.可以自动按快捷键的
要有注释的程序代码！
按键精灵就不了.~~~~

QQ363864071

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim hwnd As Long, Thwnd As Long
Shell "notepad.exe", 2 '打开一个记事本,将它最小化
hwnd = FindWindow("Notepad", "无标题 - 记事本") '得到记事本句柄
Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到记事本句柄(就是我们写字的那里)
SendMessage Thwnd, WM_SETTEXT, 0, ByVal "好了,快给我分" '向记事本写入文字
End Sub

Answer 2

建议用按键精灵实现
如果非要用程序，建议用第三方控件或者dll
自己编写程序比较费力

Answer 3

想贴你 结果太长，看来模拟按键也不容易啊，只好扔空间了 去看吧
http://hi.baidu.com/ztw1122/blog/item/cd024be40694a936b838202b.html

Answer 4

做外挂啊？非高手不要碰。

Answer 5

....en ?