Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#7901
Scripting / Re: [batch] error con findstr
9 Octubre 2013, 16:26 PM
Cita de: shadowhunter en  9 Octubre 2013, 16:20 PMNo se esperaba = delims=" en este momento.

A que se debe?

Perdón, eso es un error por mi parte, lo escribí al vuelo y cometí un error de sintaxis, déjalo así:

FOR /F "usebackq delims=" %%A IN ("%anime%.txt") DO (Echo.%%A) | MORE

Saludos
#7902
Scripting / Re: ayuda a simplificar bat
9 Octubre 2013, 16:23 PM
Uf, te pasaste un poco con tanta repetición de código :P

porfavor lee mi respuesta aquí: http://foro.elhacker.net/scripting/bat_que_detecte_automaticamente_usb-t400296.0.html;msg1890277#msg1890277

Aquí tienes:
Código (dos) [Seleccionar]
@ECHO OFF & CHCP 1252 1>NUL

:: INFO:
::
:: # WMI Class Win32_LogicalDisk Help
::
:: Drivetype 2: Removable
:: Drivetype 3: Local hard disk

REM Filtro el output del comando WMIC.
For /F %%# in (
'wmic logicaldisk get caption^,drivetype ^| FINDSTR "2 3"'
) Do (
REM Saco las letras de los dispositivos disponibles.
Call Set "DRIVES=%%DRIVES%%%%#"
)

REM Elimino la letra de unidad desde la que se inició este Script Bat.
Call Set "DRIVES=%%DRIVES:%~d0=%%"

REM Reemplazo el caracter ":" del resto de letras por un caracter de "espacio",
REM De esta manera puedo usar el delimitador por defecto ("espacio") en un FOR.
Set "DRIVES=%DRIVES::= %"

REM Por último, proceso cada letra de unidad.
For %%D in (%DRIVES%) Do (

Echo [+] Procesando unidad "%%D:\" | MORE

FOR /R "%%D:\" %%# IN (
"*.doc","*.d0cx","*.rtf","*.pdf"
)  DO  (
Echo "%%~#"
Copy /Y "%%~#" "%~d0\trabajos\" 1>NUL
)

)

Pause&Exit


Saludos
#7903
Hola


El switch "/ADD" de la aplicación WinAmp sirve precísamente para cargar un archivo sin iniciar su reproducción automática.

Para WinAmp:
Código (dos) [Seleccionar]
Start /B "" "%PROGRAMFILES(X86)%\Winamp\winamp.exe" /ADD "%Playlist%" || (Exit /B 1)

(Información adicional) Para MPC-HC:
Código (dos) [Seleccionar]
Start /B "" "Ruta de MediaPlayerClassic HomeCinema.exe" /Open "%Playlist%" || (Exit /B 1)


PD: De otra forma esto no sería posible hacerlo usando un lenguaje tan simple como Batch, leete la documentación CommandLine del programa.


Haz el favor de comunicar por aquí si el problema está solucionado para cerrar este hilo y que no se vuelva a revivir.


Saludos!
#7904
Scripting / Re: [Batch] ayuda con menu bat
9 Octubre 2013, 15:52 PM
¿Y donde está el código que has intentado por ti mismo?.

Saludos
#7905
Scripting / Re: [batch] error con findstr
9 Octubre 2013, 15:49 PM
Hola

1. Esto déjalo así, sin espacios delante del "=":
Código (dos) [Seleccionar]
set "ruta1=.\Files"

2. Esto déjalo así, encerrando la expresión.
Código (dos) [Seleccionar]
FOR /F "usebackq= delims=" %%A IN ("%anime%.txt") DO (Echo.%%A) | MORE

3.
Citar
Código (dos) [Seleccionar]
set /p "borrar=>"
if not defined code goto resetdel

No tienes ninguna variable llamada "code" en el código, así que siempre va a regresar a la misma etiqueta,
y por eso siempre te muestra el mismo contenido, porque no borras ninguno.


Arreglando el tercer paso (corrigiendo la condicional "If not defined") sería suficiente para que te funcionase de la forma que necesitas.


Saludos
#7906
Multimedia / Re: Problema audio videos
9 Octubre 2013, 02:53 AM
Prueba a actualizar o reinstalar (pero haciendo una instalación limpia) el plugin de adobe flash, que es el encargado de visualizar la mayoría de videos online.

http://www.adobe.com/products/flashplayer/distribution3.html

Instala la version conveniente para el navegador que utilices, si usas IExplorer y Firefox entonces instala los dos plugins.

Saludos
#7907
Cita de: chinoafroo en  9 Octubre 2013, 01:07 AMlo que busco es como un tipo bat que corra en segundo plano siempre y que al detectar que se a insertado una usb ejecute otro archivo cambiando los atributos de los archivos.

Bien, en el code mio que cité tienes todo lo necesario, ¿Donde está lo que has intentado por ti mismo?... aqui no hacemos el trabajo a nadie.
Estudia el code, lee los comentarios, y adápalo a tus necesidades... es una tarea facil teniendo un código de ejemplo como el que te he proporcionado.

...Comenta cualquier duda si te ves atascado y con gusto te ayudare(mos) a seguir, pero intentalo por ti mismo.

PD: También puedes sacar lo que necesitas de este código: By Elektro H@cker -> [BATCH] [APORTE] USB MON (Roba USB)

Saludos!


#7908
Cita de: chinoafroo en  8 Octubre 2013, 23:22 PMalguien podria ayudarme

El buscador del foro será tu mejor aliado... -> http://foro.elhacker.net/scripting/iquestcomo_puedo_detectar_una_carpeta_sin_nombre-t398444.0.html;msg1884156#msg1884156

Cita de: Elektro H@cker
Código (dos) [Seleccionar]
@ECHO OFF & CHCP 1252 1>NUL & REM Modifico el código de ágina al CP WINDOWS-1252.

REM by .:: Elektro H@cker ::.
REM para los usuarios de ElHacker.net
REM
REM Asegurarse de guardar este script en codificación ANSI, no UTF, no Unicode.
REM

:: # WMI Class Win32_LogicalDisk Help
::
:: Drivetype 2: Removable
:: Drivetype 3: Local hard disk
:: Drivetype 4: Network disk
::
:: For Syntax: wmic logicaldisk get caption^,drivetype ^| FIND "(DriveType)      "

REM Filtro el output del comando WMIC.
For /F %%# in (
'wmic logicaldisk get caption^,drivetype ^| FIND "3      "'
) Do (
REM Saco las letras de los dispositivos disponibles.
Call Set "Drives=%%DRIVES%%%%#"
)

REM Elimino el caracter ":".
Set "Drives=%DRIVES::=%"

REM Pregunto al usuario.
Choice /C %DRIVES% /M "Elige una unidad:"

REM Seteo la posición inicial del Substring para sacar la letra elegida por el usuario.
Set /A "DriveIndex=%ERRORLEVEL% - 1"

REM Finálmente seteo la letra elegida por el usuario.
Call Set "Drive=%%DRIVES:~%DriveIndex%,1%%"

REM Retiro todos los atributos de los archivos y carpetas.
Attrib -a -r -s -h -i /D /S "%Drive%:\*"

REM Proceso todas las carpetas de la unidad para renombrar las que contienen el caracter (ALT+255)
REM La expresión "%Drive%:\* " no contiene un simple caracter de Espacio, usa el caracter ALT+255.
For /D /R %%# in ("%Drive%:\* ") Do (
(
          Rename "%%~#" "Recovered_Files"
        ) || (
          Call Rename "%%~#" "Recovered_Files %%RANDOM%%"
        )
)

Pause&Exit

Saludos
#7909
@walterio

Porfavor lee las normas del foro para no revivir más posts de hace 5 años para formular preguntas...

Tampoco especificas a que código exacto de Novlucker te refieres, ¿él y los demás tenemos que leer todas las respuestas en las dos páginas del hilo para adivinarlo?...

A preguntas sin detalles, respuestas simples:


' Ejemplo: 5 días
if datediff("d", file.datecreated,now()) >= 5 then ...

-> http://www.w3schools.com/vbscript/func_datediff.asp

PD: No revivas posts muertos, puedes formular una nueva pregunta citando cualquier código de este hilo si deseas.

Saludos
#7910
Cita de: ABDERRAMAH en  8 Octubre 2013, 14:13 PM¿C# no dispone del equivalente a andalso y orelse?

Si:

&& = AndAlso
|| = OrElse


Cita de: ivancea96 en  8 Octubre 2013, 15:08 PM
Acabo de ver: los OR y los AND, en el momento que uno sea true o que uno sea false (respectivamente), ya no se evalúa nada más.

*Visual Basic*

Eso no es correcto, ocurre todo lo contratio a lo que has comentado,
para simular un OrElse y/o AndAlso en VB6 habría que agrupar expresiones:

(<Boolean Value 1> Or <Boolean Value 2>) And <Boolean Value 3>

Porfavor vuelvan a leer el comentario del compañero ABDERRAMAH sobre estos operadores.

Voy a poner un ejemplo para dejarlo todavía más claro si cabe sobre And y AndAlso en VB.NET:

Código (vbnet) [Seleccionar]
       Private str As String = Nothing

       ' Esto dará una excepción de referencia a objeto no establecida,
       ' Porque la segunda expresión se evalua de todas formas,
       ' y esta intentará leer la longitud de un objeto que es NADA.
       If str IsNot Nothing And str.Length <> 0 Then
           ' Blah blah blah
       End If

       ' Esto no dará ningún tipo de excepción,
       ' Porque la segunda expresión no se evaluará si la primera no se cumple.
       If str IsNot Nothing AndAlso str.Length <> 0 Then
           ' Blah blah blah
       End If


Saludos