为什么postmessage发送的鼠标移动消息不能精确定位？（50分）不够再加(50分)

16cy · 2006-10-11

to cqwty: 我试一下。 不过还想问一下，什么消息能获取当前鼠标所在位置？（请不要用getcursorpos,因为这个函数获取的是窗体外的鼠标位置，不是当前窗体的鼠标位置)

weichao9999 · 2006-10-13

你可以用SetWindowsHookEx()拦截wh_mouse消息，这样你的定位应该是准确的 postmessage肯定不行，它是把消息传递给窗口过程，然后由窗口过程再分发，肯定有误差 sendmessage是直接发送到目标对象，应该比postmessage准确

16cy · 2006-10-13

to weichao9999: 你可以用SetWindowsHookEx()拦截wh_mouse消息，这样你的定位应该是准确的,能给我段代码吗？ 另外我用sendmessage试过也一样

cqwty · 2006-10-15

鼠标的hook很多了，先自己搜索一下吧，我有代码不过明天给你贴吧！

cqwty · 2006-10-16

在应用程序取其它应用程序的光标所在控件的句柄   来自：zhou_an_jun, 时间：2004-3-30 10:35:36, ID：2529231 procedure TForm1.Button1Click(Sender: TObject); begin setcapture(Handle); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var    point : TPoint;    hwnd : THandle; begin    point.x := x;    point.y := y;    point := ClientToScreen(point);  // 客户区坐标转换到屏幕坐标    hwnd := WindowFromPoint(point);  // 取鼠标点击的窗体句柄    //ReleaseCapture;// 终止捕获鼠标输入    if hwnd=handle then edit1.text := '没有点击其他窗体！'    else       begin         edit1.Text := inttostr(hwnd);       end; end;   来自：cnaoszh, 时间：2004-3-30 12:00:32, ID：2529444 楼上只解决了鼠标按下时窗口的句柄 var MPoint:TPoint;    controlhwnd: Integer; getcaretpos(MPoint); controlhwnd:=windowfrompoint(MPoint); controlhwnd就是你想要的,   来自：老人家, 时间：2004-3-30 12:48:22, ID：2529536 根本就不行   来自：cnaoszh, 时间：2004-4-1 9:01:48, ID：2532739 做了个例子; 主程序： unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Edit1: TEdit;    Button1: TButton;    Label1: TLabel;    Button2: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin run(Edit1); end; end. 子程序： unit Unit2; interface uses Windows,Messages, SysUtils,TLHelp32,Dialogs,stdctrls; var   HHExtendKeyProc:HHook;   FEdit:TEdit;   procedure stop();   procedure run(CurEdit:TEdit); implementation //ÏûÏ¢¹³×Ó½Ø»ñ¼üÅÌÊäÈë function LogProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var  CurResult:String;  ExtendStr:String; begin   if (nCode < 0) or (nCode <> HC_ACTION) then  begin    Result := CallNextHookEx(HHExtendKeyProc, nCode, wParam, lParam);    exit;  end;   if (peventmsg(lparam)^.message = WM_LBUTTONDOWN) then      begin        Fedit.text:=inttostr(peventmsg(lparam)^.hwnd);      end;  Result:=CallNextHookEx(HHExtendKeyProc,nCode,wParam,lParam); end; //Æô¶¯Í£Ö¹¹³×Ó procedure SetHook(fSet:boolean); begin  if fSet=true then   begin     if HHExtendKeyProc=0 then     begin      HHExtendKeyProc:=SetWindowsHookEx(WH_JOURNALRECORD,@LogProc,hinstance,0);     end;  end else    begin    if HHExtendKeyProc<>0 then       UnhookWindowsHookEx(HHExtendKeyProc);    HHExtendKeyProc:=0;   end; end; procedure stop(); begin   SetHook(False); end; //¿ªÊ¼ procedure run(CurEdit:TEdit); begin  FEdit:= CurEdit;  SetHook(true); end; end.

zhaokaien · 2006-10-16

16cy · 2006-10-16

定位不准确

anson60 · 2006-10-16

学习……

16cy · 2006-10-18

为什么postmessage发送的鼠标移动消息不能精确定位？ 我不是问怎么hook鼠标消息。

cqwty · 2006-10-24

你用sendmessage看看,

shang_rich · 2006-10-26

用这个试试吧,       setcursorpos(100,100);       mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);       mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); 另外,再借你的地盘问个问题,我记得你也在找这个办法,不知道你找到没有 我要做一个(热血江湖)会加自动加血加蓝的外挂, 具体代码如下: unit Mainf; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls,StdCtrls, ExtCtrls; type  TMainForm = class(TForm)    TimerSM: TTimer;    TimerNG: TTimer;    TimerJN: TTimer;    CheckBoxSM: TCheckBox;    CheckBoxNG: TCheckBox;    EditSM: TEdit;    EditNG: TEdit;    CheckBoxJN: TCheckBox;    Button1: TButton;    Button2: TButton;    Label1:TLabel;    procedure CheckBoxSMClick(Sender: TObject);    procedure TimerSMTimer(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure CheckBoxNGClick(Sender: TObject);    procedure TimerNGTimer(Sender: TObject);    procedure CheckBoxJNClick(Sender: TObject);    procedure TimerJNTimer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; const  SHENGMING: dword = $01453318; //红  NEIGONG: dword = $0145331C; // 蓝 var  MainForm: TMainForm;  hw: HWND;  pid: dword;//游戏句柄ID  h: THandle;//游戏句柄  tt: Cardinal;  procedure KeyF2;//按键  procedure KeyF3;  procedure KeyF4; implementation {$R *.dfm} procedure TMainForm.Button1Click(Sender: TObject); begin  if  h = 0 then //如果句柄没打开   begin    hw:=FindWindow(nil,'YB_OnlineClient');    ///    if hw = 0 then          ///       获得句柄ID      Exit;          ///    GetWindowThreadProcessId(hw, @pid);          ///    h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);    ///    if h = 0 then          ///打开句柄      Exit;          ///   end;  TimerNG.Interval := 1000 div trunc(5);  TimerSM.Interval := 1000 div trunc(5);  TimerJN.Interval := 1000 div trunc(2);///每秒钟运行次数 end; procedure TMainForm.CheckBoxSMClick(Sender: TObject); begin   if CheckBoxSM.Checked then  //控制Timer是否运行    begin     EditSM.Enabled := false;     TimerSM.Enabled := true;    end   else    begin     EditSM.Enabled := true;     TimerSM.Enabled := false;  end; end; procedure TMainForm.TimerSMTimer(Sender: TObject); var  Sm: integer; // tt: DWORD; begin  ReadProcessMemory(h,pointer( SHENGMING), @Sm,sizeof(Sm), tt); //扫描内存数据    if ((Sm <= StrToInt(EditSM.Text))and(Sm<>0)) and (h<>0) then //如果血量值少于设定值并且不等于0     begin        KeyF3;     //按F3键     Label1.Caption :='F3运行中';     end; end; procedure KeyF2; begin   keybd_event(VK_F2,mapvirtualkey(VK_F2,0),0,0);   keybd_event(VK_F2,mapvirtualkey(VK_F2,0),keyeventf_keyup,0);//按F2键 end; procedure KeyF3; begin   keybd_event(VK_F3,mapvirtualkey(VK_F3,0),0,0);   keybd_event(VK_F3,mapvirtualkey(VK_F3,0),keyeventf_keyup,0);//按F3键 end; procedure KeyF4; begin   keybd_event(VK_F4,mapvirtualkey(VK_F4,0),0,0);   keybd_event(VK_F4,mapvirtualkey(VK_F4,0),keyeventf_keyup,0);//按F4键 end; procedure TMainForm.Button2Click(Sender: TObject); begin  if h <> 0 then   begin    MessageBeep(0);    CloseHandle(h);   end;   close; end; end. 没有进游戏时,Label没有反应, 进入游戏了,按下按钮,当血量少于设定值时Label改变,说明Timer在运行, 可是游戏里不会自动加血,于是我改变了一下按键,把F3改成了F4, 游戏里还是没有反应,但我切到外挂窗口,按一下Alt键,外挂窗口关闭, 由此证明模拟键盘F4键一直进行中 后来我又换了一个模拟键盘的方法, 改变如下: procedure KeyF3; begin   PostMessage(Application.Handle, WM_KEYDOWN, VK_F4, 0);   PostMessage(Application.Handle, WM_KEYUP, VK_F4, 0); end; 和 procedure KeyF3; begin   PostMessage(h, WM_KEYDOWN, VK_F4, 0);   PostMessage(h, WM_KEYUP, VK_F4, 0); end; 在游戏里还是没有反应,并且外挂窗口也没有反应了,但是Label标签改变 由是我再改成 procedure KeyF3; begin   PostMessage(h, WM_KEYDOWN, VK_F4, 0);   PostMessage(h, WM_KEYUP, VK_F4, 0);   setcursorpos(500,400);   mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);   mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); end; 这时鼠标在游戏里点击正常,键盘没有反应 在此麻烦大侠帮下忙,找下问题所在, 或再给几个模拟键盘的方法 非常感谢!!!!!

16cy · 2006-10-30

给你一点提示： 1.keybd_event()需要将窗口前置才起作用。 2.mapvirtualkey有时不好用，用另一个获得扫描码的函数。（具体是什么我忘了，回家查一下） 3.键盘/鼠标按下和弹起之间最好设一个延迟，如sleep(50);

为什么postmessage发送的鼠标移动消息不能精确定位？（50分）不够再加(50分)

16cy

Unregistered / Unconfirmed

weichao9999

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

zhaokaien

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

anson60

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

cqwty

Unregistered / Unconfirmed

shang_rich

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

Similar threads