Underc0de

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:


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

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)