09/08/2010, 21:16
|
| | | Fecha de Ingreso: abril-2010 Ubicación: Rosario
Mensajes: 1.850
Antigüedad: 14 años Puntos: 228 | |
| Respuesta: Como mover el mouse? (Visual Basic)
Yo solia usar esto para mover de forma loca al mouse!! Espero que te sirva.
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pos As POINTAPI
a = GetCursorPos(pos)
Randomize
x = pos.x
y = pos.y
x = x + (Int(Rnd * 10) - 5)
y = y + (Int(Rnd * 10) - 5)
a = SetCursorPos(x, y) |