控制鼠标(100分)

S

shiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #1

写一程序，运行后，控制鼠标随机移动。请问怎样实现？

 

C

che2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #2

在from加time控件随机加减mouse的X，Y；<br>

 

S

shiner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #3

请各位大虾帮帮忙

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-14

• #4

用这个api<br><br>mouse_event(MOUSEEVENTF_MOVE,i,i,0,0);<br><br>在from加timer1控件<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>&nbsp; posx,posy:integer;<br>begin<br>&nbsp;posx:=....<br>&nbsp;posy:=....<br>mouse_event(MOUSEEVENTF_MOVE,posx,posy,0,0);<br><br>end;

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-15

• #5

timerOntimer() <br><br>var MPoint : TPoint;<br><br>deltax=random(5);<br>deltay=random(5);<br><br>getcursorpos(MPoint);<br><br>MPoint.x=MPoint.x+deltax;<br>MPoint.y=MPoint.y+deltay;<br><br>setcursorpos(MPoint);<br><br>要不是想全部加,再加一个随机数控制方向

 

W

Writer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-15

• #6

API"setcursorpos"或者是mouse_event，查查以前的贴子吧，这样的问题多得是

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #7

多人接受答案了。