Mensajes

Este es un ejemplo(hecho por Smart Genius)

Código (dos) [Seleccionar] Expandir

@echo off
REM Coded by SmartGenius
REM Thanks to NovLucker
if ["%1"]==[""] (goto :Help)
if ["%1"]==["stop"] (call :stop &goto :eof)
if ["%1"]==["play"] (if not ["%~2"]==[""] (call :play "%~2" >nul)) else (goto :Help)
goto:eof

:play
echo Set Wmp = CreateObject("WMPlayer.OCX") >%temp%\player.vbs
echo archivo = Wscript.Arguments.Item(0) >>%temp%\player.vbs
echo Wmp.URL = (archivo) >>%temp%\player.vbs
echo Wmp.Controls.play >>%temp%\player.vbs
echo do while Wmp.currentmedia.duration = 0 >>%temp%\player.vbs
echo wscript.sleep 100 >>%temp%\player.vbs
echo loop >>%temp%\player.vbs
echo wscript.sleep (int(Wmp.currentmedia.duration)+1)*1000 >>%temp%\player.vbs
start %temp%\player.vbs %1
goto :eof

:stop
taskkill /f /im wscript.exe > nul
del /f /q %temp%\player.vbs
goto :eof

:Help
echo.
echo Modo de uso :
echo.
echo %~0 [play ^| stop] "ruta de archivo"
echo.
echo player play "C:\archivo.mp3"
echo player stop
echo.
goto:eof

Listo, aquí esta la Versión 2.0, que ahora puede transformar de ANSI a Unicode, me base en el código de "a2u.bat"(pero solo la base, le quite partes innecesarias, agregue partes necesarias del código y simplifique otras).

Código (dos) [Seleccionar] Expandir


@echo off
Rem Morf v. 2.0
Rem solo valido unicode, no unicode big endian
Rem acepta caracteres especiales :D
Rem script creado por segadorfelix
REM Gracias EleKtro H@cker
REM Unicode basado en a2u.bat bit.ly/RjDeCr
Rem funciona por linea de comandos

set "text=" & set "palabra =" & set "frase =" & set "UNI=" & set "Fun="
IF /I ["%~3"]==["-U"] ( set "UNI=yes" && set "ftre=Unidode" && goto Format ) else set "ftre=ANSI"
:MORF
IF /I ["%~1"]==["-T"] goto text
IF /I ["%~1"]==["-F"] goto frase
IF /I ["%~1"]==["-p"] goto palabra
echo Este script transforma un texto en Unicode a Ansi
echo.
echo Funcionamiento del script:
echo morf -T "Ubicacion del text" Trasnfoma un texto completo a ANSI
echo Ejemplo:
echo morf -T "%userprofile%\Desktop\emoticonos.txt"
echo.
echo morf -F "Frase" Trasnfoma una frase a ANSI
echo Ejemplo:
echo morf -F "õl á©illante"
echo=
echo morf -P "Palabra" Trasnfoma una palabra a ANSI
echo Ejemplo:
echo morf -P "á©illante"
echo+
echo Todas las conversiones se ponen en un archivo .ini
echo con el nombre ANSI, junto con un numero al azar,
echo exceptuando transformacion de texto.
echo.
echo Para hacer un proceso inverso(ANSI a Unicode)ponga al final -U
echo Ejemplo:
echo morf -F "äl  ¸illante" -U Tranforma una frase a Unidode
echo.
pause
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:text
call:texto "%~2" "%HuecoDoss%"
exit /B
:texto
set text=%~f1
IF DEFINED UNI (call:funcion %text% %~2) else (type %text%>>%text%_%ftre%)
echo Transformacion completada.
echo.
Goto:EOF
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:palabra
IF DEFINED UNI (CHCP 1252 >NUL)
set "palabra = %~2"
set "palabra ">nn.ini
set "Result=%ftre%%random%.ini"
set /A "hty=0"
for /F "tokens=3" %%y IN (nn.ini) DO (echo %%y>%Result%)
del nn.ini
IF DEFINED UNI (goto qwerty)
echo Transformacion completada
echo.
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:frase
IF DEFINED UNI (CHCP 1252 >NUL)
set "frase = %~2"
set "frase ">nn.ini
set "Result=%ftre%%random%.ini"
set /A "hty=0"
FOR /f "tokens=3*" %%a IN (nn.ini) DO (echo %%a %%b>%Result%)
del nn.ini
IF DEFINED UNI (goto qwerty)
echo Transformacion completada
echo.
exit /B
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Format
FOR /F "usebackq tokens=5" %%A IN (`CHCP`) DO (IF %%A==1252 (
SET CMDsig=850) else (set CMDsig=%%A))
set "Result="
SET "HuecoDoss="
SET "HuecoDoss=R%random%W.ini"
CALL :MORF %*
exit /B
:Funcion
CHCP 1252 >NUL
(SET /P=ÿþ)<NUL>"%HuecoDoss%"
CHCP %CMDsig% >NUL
CMD /U /C TYPE "%~nx1" >> "%HuecoDoss%"
REN "%~f2" "%~nx1_%ftre%"
Goto:EOF
:qwerty
CALL :MORF -t "%Result%"
DEL %Result%
Goto:EOF


-Un Notepad.
-La opción de poder activar juegos(batch).
-Al menos tres juegos por defecto.
-Fondo de pantalla.
-Visualizador de archivos.
-Reproductor de música(con vbs se puede)
-Poder ejecutar un bat sin que este salga de SO-batch(Por ejemplo ejecutas un bat que al finalizar sale de la consola por defecto, pero que en el SO-batch no pase esto)
-Poder prender y apagar el SO-batch.

No se me ocurre mas.

1-Podrías poner en el bat donde esta el pause, NUL después de pause, asi:

Código (dos) [Seleccionar] Expandir

Pause<NUL
2-El enter lo haces desde ¿un bat externo o desde el bat que tiene el/los pause?, si es lo segundo, no se puede y si es lo primero, deberías poner el foco de la aplicación bat en el bat con el pauses.

Saludos.

@EleKtro H@cker, Gracias de nuevo. , No sabia, como pasar de ANSI a Unicode.
La próxima versión de MORF tendra un método para cifrar (y descifrar, gracias a lo de CMD /U, me ha servido mucho).

@EleKtro H@cker Gracias  , necesitaba un remplazo del OCX de win XP.

cuando hago eso se habre el video/imagen y si lo cierro se vuelve a abir. el problema es que se habre en cmd con la operacion y lo puedo cerrar y cancelar el proceso

Para eso es este codigo, va en un archivo .vbs

Código (vb) [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
Objshell.run "script.bat", 0, true
-metes los tres archivos(script.bat,script.vbs y imagen.jpg), en el autoextraible, configura el autoextraible para que inicie el vbscript, el vbs inicia el batch en segundo grado(no se ve la pantalla), el batch inicia la imagen y listo.

PD:Aquí el código para volver a la normalidad el administrador de tareas.

Código (dos) [Seleccionar] Expandir

reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disabletaskmgr
reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disabletaskmgr

79137913, ok 

¿Es visual basic script(vbs) o es visual basic?

Perdona mi ignorancia, pero ¿que hace el código?