Título: Sendkeys
Temática: Funcional
Autor: xassiz
Descripción: Efecto grafico en notepad.
Funcionamiento: Coge un mensaje como argumento. Este lo muestra con un efecto de marquesina como mandando pulsaciones de teclado en el notepad, de manera que da un efecto en el cual escribimos en otra aplicacion que no sea cmd.
::
:: $Auth0r=xassiz
:: $script=sendkeys command
::
:: -Use: sendkeys <msg>
:: (2009)
@echo off
set "file=sendk%random:~0,3%.txt"
set "text=%*"
call:sklen %text%&set/a len+=1
call:sendkeys %text%
del /q/s/f/a "%file%">nul 2>&1
echo on
@exit /b
:sendkeys
set/a count+=1
set "msg=%*"
call set "msg=%%msg:~0,%count%%%"
if not defined msg (goto:eof)
if %count% equ %len% (goto:eof)
echo.%msg%>%file%
start notepad.exe %file%
ping -n 1 127.1>nul
taskkill /im notepad.exe /f>nul || tskill notepad>nul
goto:sendkeys
:sklen
set "len="
set "sk=%*"
:sklen2
set "sk=%sk:~1%" && set/a len+=1
if defined sk goto sklen2 || goto :eof
Es un efecto que vi hacer con vbs :p
Dudas y sugerencias ^^
bytes
Jaja ... funciona :P
Saludos
Cita de: Novlucker en 18 Agosto 2009, 17:56 PM
Jaja ... funciona :P
Saludos
hahhah nov xD
Si no funcionara no lo postearia ;D
No ves que el vbs se acaba con batch.. xDDD (mentira)