simulera musrörelser

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.

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

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

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...

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

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

Tack på förhand.

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

Tack!!