VB实现自动单击鼠标左键的代码是什么?

追问：自动单击鼠标左键的代码,能帮我写个吗?

答案：1、首先我们要用FindWindow,知道游戏窗口的句柄，因为我们要通过它来得知游戏的运行后所在进程的ID，下面就是FindWindow的用法：   
    
    
    
  HWND   FindWindow(   
    
  LPCTSTR   lpClassName,   //   pointer   to   class   name   
  LPCTSTR   lpWindowName   //   pointer   to   window   name   
  );     
    
    
    
  　　2、我们GetWindowThreadProcessId来得到游戏窗口相对应进程的进程ID，函数用法如下：   
    
  DWORD   GetWindowThreadProcessId(   
    
  HWND   hWnd,   //   handle   of   window   
  LPDWORD   lpdwProcessId   //   address   of   variable   for   process   identifier   
  );   
    
  　　3、得到游戏进程ID后，接下来的事是要以最高权限打开进程，所用到的函数OpenProcess的具体使用方法如下：   
    
    
    
  HANDLE   OpenProcess(   
    
  DWORD   dwDesiredAccess,   //   access   flag     
  BOOL   bInheritHandle,   //   handle   inheritance   flag     
  DWORD   dwProcessId   //   process   identifier     
  );     
    
    
    
  　　在dwDesiredAccess之处就是设存取方式的地方，它可设的权限很多，我们在这里使用只要使用PROCESS_ALL_ACCESS   来打开进程就可以，其他的方式我们可以查一下MSDN。   
    
  　　4、打开进程后，我们就可以用函数对存内进行操作，在这里我们只要用到WriteProcessMemory来对内存地址写入数据即可（其他的操作方式比如说：ReadProcessMemory等，我在这里就不一一介绍了），我们看一下WriteProcessMemory的用法：   
    
    
    
  BOOL   WriteProcessMemory(   
    
  HANDLE   hProcess,   //   handle   to   process   whose   memory   is   written   to     
  LPVOID   lpBaseAddress,   //   address   to   start   writing   to     
  LPVOID   lpBuffer,   //   pointer   to   buffer   to   write   data   to   
  DWORD   nSize,   //   number   of   bytes   to   write   
  LPDWORD   lpNumberOfBytesWritten   //   actual   number   of   bytes   written     
  );     
    
    
    
  　　5、下面用CloseHandle关闭进程句柄就完成了。   
    
  　　这就是这类游戏外挂的程序实现部份的方法，好了，有了此方法，我们就有了理性的认识，我们看看实际例子，提升一下我们的感性认识吧，下面就是XX游戏的外挂代码，我们照上面的方法对应去研究一下吧：   
    
    
    
  const   
  ResourceOffset:   dword   =   $004219F4;   
  resource:   dword   =   3113226621;   
  ResourceOffset1:   dword   =   $004219F8;   
  resource1:   dword   =   1940000000;   
  ResourceOffset2:   dword   =   $0043FA50;   
  resource2:   dword   =   1280185;   
  ResourceOffset3:   dword   =   $0043FA54;   
  resource3:   dword   =   3163064576;   
  ResourceOffset4:   dword   =   $0043FA58;   
  resource4:   dword   =   2298478592;   
  var   
  hw:   HWND;   
  pid:   dword;   
  h:   THandle;   
  tt:   Cardinal;   
  begin   
  hw   :=   FindWindow('XX',   nil);   
  if   hw   =   0   then   
  Exit;   
  GetWindowThreadProcessId(hw,   @pid);   
  h   :=   OpenProcess(PROCESS_ALL_ACCESS,   false,   pid);   
  if   h   =   0   then   
  Exit;   
  if   flatcheckbox1.Checked=true   then   
  begin   
  WriteProcessMemory(h,   Pointer(ResourceOffset),   @Resource,   sizeof(Resource),   tt);   
  WriteProcessMemory(h,   Pointer(ResourceOffset1),   @Resource1,   sizeof(Resource1),   tt);   
  end;   
  if   flatcheckbox2.Checked=true   then   
  begin   
  WriteProcessMemory(h,   Pointer(ResourceOffset2),   @Resource2,   sizeof(Resource2),   tt);   
  WriteProcessMemory(h,   Pointer(ResourceOffset3),   @Resource3,   sizeof(Resource3),   tt);   
  WriteProcessMemory(h,   Pointer(ResourceOffset4),   @Resource4,   sizeof(Resource4),   tt);   
  end;   
  MessageBeep(0);   
  CloseHandle(h);   
  close;【VB声明】   
      Private   Declare   Sub   mouse_event   Lib   "user32"   Alias   "mouse_event"   (ByVal   dwFlags   As   Long,   ByVal   dx   As   Long,   ByVal   dy   As   Long,   ByVal   cButtons   As   Long,   ByVal   dwExtraInfo   As   Long)   
    
  【说明】   
      模拟一次鼠标事件     
    
  【备注】   
      进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度   
    
  【参数表】   
      dwFlags   --------     Long，下述标志的一个组合   
      MOUSEEVENTF_ABSOLUTE   
    
      dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元   -     MOUSEEVENTF_MOVE   
      移动鼠标   
      MOUSEEVENTF_LEFTDOWN   
      模拟鼠标左键按下   
      MOUSEEVENTF_LEFTUP   
      模拟鼠标左键抬起   
      MOUSEEVENTF_RIGHTDOWN   
      模拟鼠标右键按下   
      MOUSEEVENTF_RIGHTUP   
      模拟鼠标右键按下   
      MOUSEEVENTF_MIDDLEDOWN   
      模拟鼠标中键按下   
      MOUSEEVENTF_MIDDLEUP   
      模拟鼠标中键按下   
      dx   
      Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动   
    
      dy   -------------     Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动   
    
      cButtons   -------     Long，未使用   
    
      dwExtraInfo   ----     Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
我没事，你的问题太难。

上一个：ＶＢ．ＮＥＴ到底难不难学呢？
下一个：有关VB代码的问题，会的来！！！