send
Grupo de Telegram
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
  • 1311 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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
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!