如何模拟连续点击鼠标左键 ( 积分: 20 )

jjqqw · 2005-04-09

如题 我的代码问题出在什么地方？ procedure TForm1.Timer1Timer(Sender: TObject); var  s:integer;  po:TPoint; // Recta:TRect; begin   // showmessage('hi');    Timer1.Interval:=TrackBar1.Position;    GetCursorPos(po);    for s:= 0 to strtoint(edit1.Text) -1 do    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);    edit1.Text:=inttostr(strtoint(edit1.Text)-1);  //  SetCursorPos(po.X,po.Y); end;

jjqqw · 2005-04-09

如题 我的代码问题出在什么地方？ procedure TForm1.Timer1Timer(Sender: TObject); var  s:integer;  po:TPoint; // Recta:TRect; begin   // showmessage('hi');    Timer1.Interval:=TrackBar1.Position;    GetCursorPos(po);    for s:= 0 to strtoint(edit1.Text) -1 do    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);    edit1.Text:=inttostr(strtoint(edit1.Text)-1);  //  SetCursorPos(po.X,po.Y); end;

道长 · 2005-04-09

似乎没啥问题 你有什么问题？

zbird · 2005-04-09

for s:= 0 to strtoint(edit1.Text) -1 do [red]begin[/red]    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); [red]end;[/red] 而且点击的速度也太快了吧，估计要加个sleep。

jjqqw · 2005-04-09

加了还是不行其他部分代码如下 procedure TForm1.WMhotkeyhandle(var msg: Tmessage); begin  if (msg.LParamHi=$4D) and     (msg.lparamLo=MOD_CONTROL or mod_Alt) then  begin    msg.Result:=1;    if length(edit1.Text) <>0 then    Timer1.Enabled :=true    else    messagedlg('请输入一个点数!',mtInformation,[mbok],0);    timer1.Enabled:=false;  end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   unregisterhotkey(handle,hotkeyid);   DeleteAtom(HotKeyID); end; 最近玩奇迹私服,我就是想做个自动加点器,原理就是这个吧,怎么老出不来效果

jjqqw · 2005-04-11

帮忙看看

Avalon · 2005-04-11

procedure TForm1.Timer1Timer(Sender: TObject); var  s:integer;  po:TPoint; // Recta:TRect; begin   // showmessage('hi');    Timer1.Interval:=TrackBar1.Position;    GetCursorPos(po);    for s:= 0 to strtoint(edit1.Text) -1 do    begin    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);    edit1.Text:=inttostr(strtoint(edit1.Text)-1);    end; //  SetCursorPos(po.X,po.Y); end; 你的for循环是不是少了一对begin end?

wolf_cyj · 2005-04-11

点击一次有效果吗？还是都没效果？

jjqqw · 2005-04-11

我做了一个测试程序,checkbox1.checked:=true;时触发memo1.color变色这个测试程序 工作正常,只是点击速度比较慢,可以鼠标一切换到游戏窗口上的加点按钮就没反映了,只能通过手工加点,难道那个按妞不是标准windows组件?没有句柄?

luckymanman · 2005-04-11

什么游戏？具体游戏具体分析。每个游戏可能采用不同的防外挂方法。

jjqqw · 2005-04-11

奇迹Mu，就是第九城市代理的那款网络游戏

luckymanman · 2005-04-12

自己反汇编分析程序吧 一般来说程序会采用 GetAsyncKeyState，DeviceIoControl。。。等函数来防外挂的。最好的办法就是分析程序。

jjqqw · 2005-04-12

多人接受答案了。

如何模拟连续点击鼠标左键 ( 积分: 20 )

jjqqw

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

道长

Unregistered / Unconfirmed

zbird

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

wolf_cyj

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

luckymanman

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

luckymanman

Unregistered / Unconfirmed

jjqqw

Unregistered / Unconfirmed

Similar threads