键盘鼠标相关

1、首先我们要知道现在鼠标的位置（为了好还原现在鼠标的位置）所以我们就要用到API函数GetCursorPos，它的使用方法如下：
BOOL GetCursorPos(    LPPOINT lpPoint // address of structure for cursor position 
   );
2、我们把鼠标的位置移到要到人物走到的地方，我们就要用到SetCursorPos函数来移动鼠标位置，它的使用方法如下：
BOOL SetCursorPos(    int X, // horizontal position 
    int Y // vertical position
   );
3、模拟鼠标发出按下和放开的动作，我们要用到mouse_event函数来实现，具休使用方法用下：
VOID mouse_event(    DWORD dwFlags, // flags specifying various motion/click variants
    DWORD dx, // horizontal mouse position or position change
    DWORD dy, // vertical mouse position or position change
    DWORD dwData, // amount of wheel movement
    DWORD dwExtraInfo // 32 bits of application-defined information
   );
在它的dwFlags处，可用的事件很多如移动MOUSEEVENTF_MOVE，左键按下MOUSEEVENTF_LEFTDOWN，左键放开MOUSEEVENTF_LEFTUP，具体的东东还是查一下MSDN吧~~~~~
好了，有了以前的知识，我们就可以来看看人物移走是怎么实现的了：getcursorpos(point);
setcursorpos(ranpoint(80,windowX),ranpoint(80,windowY));//ranpoint是个自制的随机坐标函数
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
setcursorpos(point.x,point.y);看了以上的代码，是不是觉得人物的游走很简单啦~~，举一仿三，还有好多好东东可以用这个技巧实现（我早就说过，TMD，这是垃圾外挂的做法，相信了吧~~~），接下来，再看看游戏里面自动攻击的做法吧（必需游戏中攻击支持快捷键的），道理还是一样的，只是用的API不同罢了~~~，这回我们要用到的是keybd_event函数，其用法如下：
VOID keybd_event(    BYTE bVk, // virtual-key code
    BYTE bScan, // hardware scan code
    DWORD dwFlags, // flags specifying various function options
    DWORD dwExtraInfo // additional data associated with keystroke
   );
我们还要知道扫描码不可以直接使用，要用函数MapVirtualKey把键值转成扫描码，MapVirtualKey的具体使用方法如下：
UINT MapVirtualKey(    UINT uCode, // virtual-key code or scan code
    UINT uMapType // translation to perform
   );
好了，比说此快接键是CTRL+A，接下来让我们看看实际代码是怎么写的：keybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),0,0);
keybd_event(65,mapvirtualkey(65,0),0,0);
keybd_event(65,mapvirtualkey(65,0),keyeventf_keyup,0);
keybd_event(VK_CONTROL,mapvirtualkey(VK_CONTROL,0),keyeventf_keyup,0);首先模拟按下了CTRL键，再模拟按下A键，再模拟放开A键，最后放开CTRL键，这就是一个模拟按快捷键的周期。
（看到这里，差不多对简易外挂有了一定的了解了吧~~~~做一个试试？如果你举一仿三还能有更好的东东出来，这就要看你的领悟能力了~~，不过不要高兴太早这只是才开始，以后还有更复杂的东东等着你呢~~）

来源：Delphi做外挂

 

2、对按钮发BM_CLICK消息，使用FindWindow和FindWindowEx，关键是：对象有句柄！！

var
  DescWnd, BtnWnd: HWND;
begin
  DescWnd:= FindWindow(nil, JSBYKP1);
  SetForegroundWindow(DescWnd);
  BtnWnd:= FindWindowEx(DescWnd, 0, nil, '子窗体名称');
  SendMessage(BtnWnd, BM_CLICK, 0, 0);
end;

3、对窗体中的某一位置进行点击，重点：窗体有句柄，窗体中的其他对象无句柄，目的是点击没有句柄的对象！！！

var
  lparam: DWORD;
begin
  WND_MENU:= 0;    //主菜单句柄   

  lparam:= (10)*$10000+ 110;
  SendMessage(WND_MENU, WM_LBUTTONDOWN, 0, lparam);
  SendMessage(WND_MENU, WM_LBUTTONUP, 0, lparam);
end;

//lparam 高16位是y 低16位是 x   算法就是 x+y左移16位