SetCursorPos (Mover el Puntero del Mouse) by 3D1

ProcessKill · 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: php

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: php

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!

SetCursorPos (Mover el Puntero del Mouse) by 3D1

ProcessKill

Febrero 24, 2010, 03:52:58 PM Ultima modificación: Julio 21, 2014, 07:20:43 PM por Expermicid