simulera musrörelser

Är det någon som har eller kan fixa ett enkelt program som simulerar musrörelser. Altså att markören åker omkring på skärmen lite då och då?

Vore väldigt tacksam för svar.

------------------
// room

Du kan använda API för att flytta muspekaren:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Declare Function SetCursorPos Lib "user32" ( _
ByVal x As Long, _
ByVal y As Long) As Long

Private Sub Command1_Click()
SetCursorPos 0, 0
end sub

Alltså först en deklaration av API-funktionen (lägges överst) och sen en knapp döpt till "Command1" där koden körs och flyttar musen till "0,0" dvs längst upp till vänster på skärmen.

Vill du att pekaren ska flytta sig så kan du enkelt göra en timer som flyttar några steg åt gången.

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

Personligen så har jag inte vb utan jag tänkte om någon hade det eller kunde snabbt slänga ihop en exefil så vore det great.

Tack

------------------
// room

Om du gör middag till mig så ska jag tänka på saken :e

------------------
The computer is mightier than the pen, the sword, and usually, the programmer.

Vad vill du att programmet ska göra? bara flytta runt muspekaren lite då och då?

låter inte som världens mest fyndiga idé...men men...

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

Låter som ett program för att lura chefen när han går förbi ryggen på dig och du sover. :e

------------------
"-Man kan faktiskt supa nykter." -Mange P

[Redigerat av OveRRidE den 06 jan 2002]

Hej..Jag är helle rinte så där "super" på vb och undrar hur man kan få veta muspekarens position...

Tack på förhand.

------------------
Marcus
-------------
"Kroppen är en koagulerad tanke."

Du kan hämta mus-positionen med följande API:

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Dim mypt As POINTAPI
GetCursorPos mypt
MsgBox "Position: " & mypt.x & ", " & mypt.y
End Sub

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/

Tack!!

------------------
Marcus
-------------
"Kroppen är en koagulerad tanke."