Mensajes

No entendi mucho me darias otro ejemplo

WTF!!!!!!!!!!!!!!!!!!!

Código (Dos) [Seleccionar] Expandir


@echo off
Call :Expandir "C:\Musica\Melodia.mp3"
Pause

:Expandir
Echo %~nx1
Goto :EOF

COMO ? LO HACES :OOOOOOOOOOOOOOOOOOOOOO

Aver %~nx1 Es una variable ? xD Quiero un tutorial con eso extraño xddddd y como lo hace para explicar que despues de .... a como pero ah xd.....

GRACIAS y Salu2

Hola, necesito extraer Caracteres de una variable (ruta)

Código (dos) [Seleccionar] Expandir


@echo off
Set Ruta=C:\Musica\Melodia.mp3
Echo La Cancion es %Ruta%
Pause


Entonces quiero que al colocar Echo la cancion es %Ruta% me aparezca solo Melodia.mp3
No se si me entienden,pero si yo cambio de ruta me imprima en pantalla solo lo que hay despues del ultimo slash (\) . salu2

 

Jajaja me paso una anécdota....

Mi teclado tiene entrada para insertaler Audifonos y dije lo voy a probar si realmente funciona ( Tengo el pc serca de mi cama) entonces deje el teclado en la cama con los audifonos fuertes....
lo programe para dormir 1 hora bueno fue un sueño increible...( Soñe con que era el mejor creador de script en batch    )
y Derrepente Escuche la Melodia Ahahaha en 1 segundo estaba en pie....

Salu2

PD: El Script que realize yo tiene muchos errores no me di el trabajo de corregirlo...

Hola amigos les traigo este aporte un Despertador en batch...

Código (dos) [Seleccionar] Expandir



@echo off
REM By Geormarsch
REM Visita Foro.Elhacker.net

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Color a

Title Despertador!

Set Tiempo=%Time:~0,5%

Set file=C:\Melodia.mp3

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Menu_Despertador
cls
echo.
Set /p Hora_Despertar= A que hora desea Despertar ^>^>
Goto Verificador

:Verificador
cls
Set Tiempo=%Time:~0,5%
If "%Hora_Despertar%"=="%Tiempo%" (Goto Despierta) else (Goto Verificador)

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Despierta
if exist "%Windir%\Sound.vbs" (del /f /q soun.vbs)
cls
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%File%"
echo Sound.Controls.play
echo if err.number = 0 then
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo if len("%file%"^) ^< 2  then
echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "Despertador"
echo else
echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "Despertador"
echo end if
echo end if
)>%Windir%\Sound.vbs
cd %Windir%
start Sound.vbs
Goto Menu_Despertador

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


Es Muy Sencillo Tienes que Setear la Variable : file = Con la ruta de la melodia ( Formatos : Mp3 , wav , mid )
y Luego te pregunta a que hora deseas Despertar... Bueno lo probe dos veces y me gusto....

Ojala les sirva

Salu2

PD: Cualquier mejora o modificacion es bienvenida pero con sus respectivos creditos   

Yo me referia al VBS del WindowsMediaPlayer xD

Lo que hace es Reproducir la cancion seleccionada....
En modo oculto... solo se ve el batch

Te Abre esta Ventana ......... Se me habia olvidado comentarte

Código (dos) [Seleccionar] Expandir


@echo off
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Crear_Examinar
(
echo Dim DialogBox
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.InitialDir = "%Windir%"
echo DialogBox.Filter = "Archivos de musica MP3,Wav,Mid|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
echo wscript.echo DialogBox.filename
)>%Windir%\CommonDialog.vbs

cscript /nologo %Windir%\CommonDialog.vbs>%Windir%\Ruta.txt
Set /p File=<"%Windir%\Ruta.txt"
Goto Ruta

:Ruta
cls
echo La ruta es%File%
pause >nul


Es algo asi mas o menos el code

LO PROBE EN WIN XP

[EDITO]

Los archivos están en una carpeta, o en la tal variable X?

y Porque no en una carpeta? sería más simple hacer lo que pides

La variable x como es? Numérica, o como?

X=3    ?

X=C:\archivo1.mp3C:\archivo2.mp3C:\archivo3.mp3     ?

Siguen siendo muy pocos datos XD.


Si tienes los mp3 en una carpeta, lo puedes hacer así:

Código (bash) [Seleccionar] Expandir

@Echo OFF
Setlocal enabledelayedexpansion

For /F "Tokens=*" %%# In ('Dir /B /S ".\Carpeta\*.mp3"') Do (
Set /A Num+=1
Set Song!Num!=%%#
)

Echo !Song1!
Echo !Song2!
Echo !Song3!
Echo !Song4!
Echo !Song5!

Pause


EDITO:
De todas formas, Para reproducir audio necesitarías usar algún reproductor commandline  (Mplayer.exe)

Creo que con el sndrec32.exe de Windows se puede tambien, pero yo no lo tengo xD.

NADA DE MPLAYER aqui.... 

Código (dos) [Seleccionar] Expandir



@echo off
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

REM By Geormarsch
Color a
Title Reproductor de musica
mode con cols=120 lines=13
REM No Borrar!!!
reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul
cls

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Menu_
cls
echo.
echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo   ÛÛ                         
echo   ÛÛ%File%
echo   ÛÛ     
echo   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ By Geormarsch ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo.
echo  1.   Seleccionar
echo  2.   Reproducir
echo  3.   Parar
echo.
Set /p Verificar= ^>^>
If %Verificar%==1 (Goto Abrir)
If %Verificar%==2 (Goto Repro)
If %Verificar%==3 (Goto Parar)
Goto Menu_

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Abrir
REM NO MODIFICAR!
(
echo Dim DialogBox
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.InitialDir = "%Windir%"
echo DialogBox.Filter = "Archivos de musica MP3,Wav,Mid|*.mp3;*.wav;*.mid"
echo DialogBox.ShowOpen
echo wscript.echo DialogBox.filename
)>%Windir%\CommonDialog.vbs

cscript /nologo %Windir%\CommonDialog.vbs>%Windir%\Ruta.txt
Set /p File=<"%Windir%\Ruta.txt"
goto Menu_

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Repro
cls
REM NO MODIFICAR!
(
echo On Error Resume next
echo Set Sound = CreateObject("WMPlayer.OCX"^)
echo Sound.URL = "%File%"
echo Sound.Controls.play
echo if err.number = 0 then
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
echo else
echo if len("%file%"^) ^< 2  then
echo msgbox "No se ha seleccionado ningun archivo ", vbinformation, "."
echo else
echo msgbox "No es posible reproducir el archivo " ^& "%file%", vbinformation, "."
echo end if
echo end if
)>%Windir%\Sound.vbs
cd %Windir%
start Sound.vbs
Goto Menu_

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:Parar
cls
Taskkill /F /IM wscript.exe
cd %Windir%
del /f /q Sound.vbs
del /f /q Ruta.txt
Set "File="
goto menu_

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


Tengo la siguiente duda....
¿Se han dado cuenta que en los mensajes que aparecen bajo de losavatar, algunos dicen, me das tu IP?

Mi duda es la siguiente, Puedo entrar a un computador en batch sin envio de troyanos?

Si alguien sabe como (entrar a una maquina p)  me enseñe



PD:no se si estoy en sección correcta

Como un Diccionario de IP ?

Bueno si es para un Diccionario de IP

Descargate este Script http://www.mediafire.com/?a6760ckcocrcbic

Ahora Abres la Version ICE GEN Version Spanish

Escribes el numero 6 ( Dice IP )

Ahora Escribes el Numero 1 ( Dice IP )

y Ahora Escribes 3 ( Dice Secuencia)

y listo te genera IP´s en el rango 0 y 255 y te los guarda junto con el Archivo...

Salu2