模拟鼠标在一窗口中移动和点击居然不行(100分)

Txing · 2003-11-30

我想用setcursorpos和mouse_event模拟鼠标在一游戏窗口中移动和点击，但居然不行！ 其现象是：当焦点在游戏窗口时，不管是setcursorpos还是mouse_event鼠标都没有反映; 但只要焦点不在游戏窗口，则可按设定的坐标移动鼠标，当然也能模拟鼠标点击。    各位大侠，该出手时就出手，邦忙想想办法呀！

Genl · 2003-11-30

取得那个窗口的handle Sendmessage....估计能好使。。。

mevip · 2003-11-30

VOID mouse_event（DWORD dwFlags，OWORD dx，DWORD dy， DWORD dwData， DWORD dwExtralnfo）；用dx，dy就能设定鼠标的位置，不过dx和dy的范围是0～65535，所以必须转换一下。如要移到一个640×480的窗口的（50，50）位置，单击： dx:=round((50/640)*65535);dy:=round((50/480)*65535); mouse_even（MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_MOVE+MOUSEEVENTF_LEFTDOWN,dx,dy,0,0); 可以用GetWindowRect得到游戏窗口的大小，未必都是640×480

Txing · 2003-11-30

to Genl:       已取得handle, 但用Sendmessage还是不行。 to mevip:     照你的方法试了，问题依然。当焦点不在游戏窗口时行，但模拟鼠标单击一次后 焦点回到游戏窗口就又不行了。

mevip · 2003-12-01

我前几天刚做了个类似的，玩雷电和VR2战警时不需要按鼠标就能射击（当然得设置成鼠标控制）。把你的代码贴出来看看

Txing · 2003-12-01

最近在玩MU,只是觉得不停点鼠标和按键太累，所以想弄个机器人之类的东东来代劳。刚构思，还没有完整的代码。 比如说在游戏时我按下某热键（用HOOK），则在我的程序中执行以下代码： ...... dx:=round((50/640)*65535); dy:=round((50/480)*65535); mouse_even(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_MOVE+MOUSEEVENTF_LEFTDOWN,dx,dy,0,0); mouse_even(MOUSEEVENTF_LEFTUP,0,0,0,0); ...... 此时，如游戏窗口是当前窗口，鼠标不会作出移动反映..... 而如果先在游戏窗口以外点击一下，使游戏窗口为非当前窗口，然后再按热键 那么，鼠标会移动到指定位置并单击（如此一来，焦点又回到了游戏窗口） 模拟鼠标抬起那句又不会起作用了。这样鼠标左键就一直保持按下状态，游戏角色 就不停向前走.......      我也在其它游戏中试过，这样是可行的。唯独在MU中不行!!

mevip · 2003-12-01

在两句mouse_even之间加个sleep(50);看看有没有效果

Txing · 2003-12-01

加上sleep也不管用。 问题好象不在这！我说过，上述代码在其它游戏中是可行的，只在MU中不行。

Txing · 2003-12-03

怎么了，高手们都很忙吗！

duwei2857 · 2003-12-04

to Txing：     上次您告诉我可以用Windows.beep(200,300)来放出声音。为什么在有些机器上可以发出声音。而在有些机器上就不行呢？？？我在我的机器上实验可以。但是到了别人的2000、xp、98上却不能够发声音！不知道为什么？我在盼望您的答案！！！非常感谢！！！

Txing · 2003-12-06

是分少了吗？

Txing · 2004-01-25

那位兄台能提示下也好呀。是不是要拦截什么消息？

Corn1 · 2004-01-25

用SetFocus应该可以吧

zengmiao · 2004-01-25

别费神了,大部分游戏使用的Cursor都不是操作系统的Cursor而是自定的Cursor,用的Mouse事件也不是操作系统的Mouse事件,你是没有办法模拟的,除非你模拟硬件

Txing · 2004-01-25

to:zengmiao 但我在玩一游戏时，试着用了一下那个什么(记不得叫啥了)外挂，这时我的程序就能摸拟鼠标和键盘操作了。这又是为何？

zengmiao · 2004-01-25

有的游戏可以,其它的我也不是很清楚,建议你参考一下OpenGL或DirectX相关文档

整得黑 · 2004-02-21

继续关注高手解答 按键精灵新版本已经支持MU这个游戏，不过是需要钱的 不过他是怎么做到模拟的呢？ 懂的朋友提供点资料

wfzha · 2004-02-21

用hook,下面是别人的代码,你参考一下: 建立键盘鼠标动作纪录与回放 作者 : TechnoFantasy 通过Delphi建立键盘鼠标动作纪录与回放 www.applevb.com   很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用 了Windows的Hook函数。   Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows 消息，函数语法为：   SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD)   其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同 的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消 息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为：   Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;   其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样 一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。   在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。   WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠 标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于 将保存的操作返给系统回放。   下面来建立程序，在Delphi中建立一个工程，在Form1上添加3个按钮用于程序操作。另外再添加一个按钮控件和一 个Edit控件用于验证操作。   下面是Form1的全部代码 unit Unit1;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls;   type   TForm1 = class(TForm)   Button1: TButton;   Button2: TButton;   Button3: TButton;   Edit1: TEdit;   Button4: TButton;   procedure FormCreate(Sender: TObject);   procedure Button1Click(Sender: TObject);   procedure Button2Click(Sender: TObject);   procedure Button3Click(Sender: TObject);   private   { Private declarations }   public   { Public declarations }   end;   var   Form1: TForm1;   EventArr:array[0..1000]of EVENTMSG;   EventLog:Integer;   PlayLog:Integer;   hHook,hPlay:Integer;   recOK:Integer;   canPlay:Integer;   bDelay:Bool; implementation {$R *.DFM} Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin   canPlay:=1;   Result:=0;     if iCode < 0 then //必须将消息传递到消息链的下一个接受单元   Result := CallNextHookEx(hPlay,iCode,wParam,lParam)   else if iCode = HC_SYSMODALON then   canPlay:=0   else if iCode = HC_SYSMODALOFF then   canPlay:=1   else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin   if bDelay then begin   bDelay:=False;   Result:=50;   end;   pEventMSG(lParam)^:=EventArr[PlayLog];   end   else if ((canPlay = 1)and(iCode = HC_SKIP))then begin   bDelay := True;   PlayLog:=PlayLog+1;   end;   if PlayLog>=EventLog then begin   UNHookWindowsHookEx(hPlay);   end; end; function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin   recOK:=1;   Result:=0;     if iCode < 0 then   Result := CallNextHookEx(hHook,iCode,wParam,lParam)   else if iCode = HC_SYSMODALON then   recOK:=0   else if iCode = HC_SYSMODALOFF then   recOK:=1   else if ((recOK>0) and (iCode = HC_ACTION)) then begin   EventArr[EventLog]:=pEventMSG(lParam)^;   EventLog:=EventLog+1;   if EventLog>=1000 then begin   UnHookWindowsHookEx(hHook);   end;   end; end;   procedure TForm1.FormCreate(Sender: TObject); begin   Button1.Caption:='纪录';   Button2.Caption:='停止';   Button3.Caption:='回放';   Button4.Caption:='范例';   Button2.Enabled:=False;   Button3.Enabled:=False; end;   procedure TForm1.Button1Click(Sender: TObject); begin   EventLog:=0;   //建立键盘鼠标操作消息纪录链   hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0);   Button2.Enabled:=True;   Button1.Enabled:=False; end;   procedure TForm1.Button2Click(Sender: TObject); begin   UnHookWindowsHookEx(hHook);   hHook:=0;     Button1.Enabled:=True;   Button2.Enabled:=False;   Button3.Enabled:=True; end;   procedure TForm1.Button3Click(Sender: TObject); begin   PlayLog:=0;   //建立键盘鼠标操作消息纪录回放链   hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc,   HInstance,0);     Button3.Enabled:=False; end;   end.     代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击 “范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。   在上面的程序中，HookProc是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信 息就保存在地址lParam中，我们可以讲消息保存在一个数组中。PlayProc是消息回放函数，当系统可以执行消息回放 时调用该函数，程序就将先前纪录的消息值返回到lParam指向的区域中，系统就会执行该消息，从而实现了消息回放。

模拟鼠标在一窗口中移动和点击居然不行(100分)

Txing

Unregistered / Unconfirmed

Genl

Unregistered / Unconfirmed

mevip

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

mevip

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

mevip

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

duwei2857

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

Corn1

Unregistered / Unconfirmed

zengmiao

Unregistered / Unconfirmed

Txing

Unregistered / Unconfirmed

zengmiao

Unregistered / Unconfirmed

整得黑

Unregistered / Unconfirmed

wfzha

Unregistered / Unconfirmed

Similar threads