模拟键盘.docVIP

模拟键盘如果你不想用SendKey之类的模拟键盘函数那只能用API函数SendMessage或者PostMessage;但是很多游戏都封锁了这俩个函数,要破解需要的代码或者技术更高级.同时 用SendMessage或者PostMessage根本不需要模拟Alt+Tab,因为它们可以直接往后台的程序发送按钮命令.如果你会获取句柄你可以试试PostMessage 接受命令窗口的句柄,h100,vbkeyA,0PostMessage 接受命令窗口的句柄,h101,vbkeyA,0效果就是发送A到你指定的窗口下面是具体的例子(因为魔兽世界对于这俩个函数完全无视所以有效,其他可能封锁了,例如盛大代理的那些韩国游戏100%锁掉了这几个函数,但是他们的外挂还是比魔兽多出N倍)Public Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function PostMessage Lib user32 Alias PostMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click()whnd=FindWindow(vbNullString, 魔兽世界)PostMessage whnd,h100,vbkeyA,0PostMessage whnd,h101,vbkeyA,0End Sub (界面添加一个按钮,然后复制上面的代码,最上面三句话就是API函数的声明)用API函数keybd_event可以模拟任何按键： 在模块中定义 Public Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 例如{Windows]+R的组合 Call keybd_event(91, 0, 0, 0) Call keybd_event(82, 0, 0, 0) ({Windows]键码为91,R键码为82, 注意第二句也不能用SENDKEYS语句!) SendKeys String, Boolean String即为你要按的键,也可以输入字符串 当Boolean为True时等待程序接收 如果要输入控制键 如 SendKeys ^A Ctrl+A SendKeys +A Shift+A SendKeys %A Alt+A 控制键还可以任意组合. 比如: SendKeys ^%A Ctrl+Alt+A准备工作： 先画两个窗体Form1和Form2,Form2是作为接收按键测试用的，在上面放一个文本框Text1，把 Text1的MultiLine属性设为 True,ScrollBars设为3-Both,然后写入如下代码： Private Declare Function EnableWindow Lib user32 (ByVal hwnd As Long, ByVal fEnable As Long) As LongPrivate Sub Form_Load()‘调整大小 Me.Width = Screen.Width * 0.9 Me.Height = Screen.Height * 0.9 Form1.Show ‘禁止鼠标和键盘输入 EnableWindow Text1.hwnd, False End Sub Private Sub Form_Resize() ‘调整文本框大小 Text1.Top = 0 Text1.Left = 0 Text1.Width = Me.ScaleWidth Text1.Height = Me.ScaleHeight End Sub Private Sub Form_Unload(Cance