comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

SetCursorPos (Mover el Puntero del Mouse) by 3D1

  • 0 Respuestas
  • 1384 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 03:52:58 pm »
SetCursorPos (Mover el Puntero del Mouse)

Como les dice el titulo es un Code que usa el Objeto Excel.Aplication para ejecutar la API que hace que se mueva en Cursor..

Este es el Code:


Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Set Excel=CreateObject("Excel.Application")
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""X"", ""Y"")")
set Excel=Nothing


Solo reemplazan X por una posision he Y igual...

Ejemplo esto hace que el Cursor haga movimientos raros..

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
Set Excel=CreateObject("Excel.Application")
wscript.sleep 2000
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""100"")")
wscript.sleep 500
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""200"")")
wscript.sleep 500
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""300"")")
wscript.sleep 500
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""400"")")
wscript.sleep 500
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""100"", ""500"")")
wscript.sleep 500
PosMouse=Excel.ExecuteExcel4Macro("CALL(""user32"",""SetCursorPos"", ""JJJJ"", ""50"", ""600"")")
wscript.sleep 500
set Excel=Nothing


Luego se cierra..

Al abrir el Script tarda unos 4 segundos a lo maximo en Crear el Objeto y luego recien ejecuta las APIs..

Y "Set Excel=Nothing" es si o si por que si no lo ponen se podria quedar como un proceso mas y al intentar ejecutarlo otra vez podria causarles error..

Por eso "Set Excel=Nothing"..


Espero les guste..


bytes! ;)  8)
« Última modificación: Julio 21, 2014, 07:20:43 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!