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

#10851
Ya esta, He echo el code testeandolo en una máquina virtual (En mi pc como ya dije, no puedo).

Aqui lo tienes:

Código (dos) [Seleccionar]
@Echo off

:Select
Echo Ingrese nombre del Grupo al que va a cambiar de nombre: | MORE
set /p del=^>^>
If not defined del (goto :select)
Net localgroup "%DEL%" >nul 2>&1 || (Echo. El grupo "%DEL%" no existe! | MORE & Set "Del=" & Goto :Select)

Echo+ & Echo ingrese nuevo nombre: | MORE
set /p add=^>^>
If not defined add (goto :select)

:: Pasamos la lista d los miembros a un archivo de texto, por si las moscas, para que no se pierda :P
net localgroup "%del%">"%temp%\%del%_usuarios.txt"

:: Creamos el nuevo grupo:
net localgroup "%add%" /add >nul

:: Obtenemos los usuarios del grupo que queremos borrar, Y los vamos añadiendo al nuevo grupo
For /F "tokens=*" %%a in ('net localgroup "%del%" ^| findstr /V /R "Comentario Miembros ----- Nombre.de.alias Se.ha.completado"') do (
net localgroup "%add%" /add "%%a" >NUL
)

CLS & Echo+ & Echo [+] Su nuevo grupo: | MORE
Net localgroup "%ADD%" | findstr /V /R "Comentario ----- Se.ha.completado"| MORE
Choice /M "Todo OK?"
If %Errorlevel%==1 (
:: Eliminamos el grupo anterior y el backup de los usuarios.
net localgroup "%del%" /delete >NUL
Del /Q "%temp%\%del%_usuarios.txt"
) ELSE (
:: Mostramos el backup de los usuarios para deshacer los cambios manualmente xD.
notepad "%temp%\%del%_usuarios.txt"
)

exit


Output:


Saludos.

#10852
O quizás quiso decir Hexadecimal, Ya que es más correcto nombrarlo como "Sexadecimal" o "sedecimal" y lo he visto así en muchos sitios. Séa como séa nos has echo un lio xDDD

Yo supongo que quieres decir es sexagesimal (Base 60) para calcular los minutos, Pues si que puedes, Aqui tienes una respuesta que lo aclara mejor de lo que yo puedo:

http://www.computing.net/answers/programming/batch-timer/18469.html

Saludos
#10853
Scripting / Re: Negativos en batch
3 Junio 2012, 03:54 AM
Al setear los celsius con el prompt lo escribes como negativo o positivo?
Si estás intentando sumar un positivo a un negativo no vas a obtener un negativo mayor, obviamente...

Además, aqui no estás realizando ningúna operación ya que no usas el simbolo identificador de las variables "%".
set/a resultat= gradoscelsius + gradoskelvin)
PD: Y además... No se, Fíjate un poco al escribir... Que el parentesis del final SE VE.

Aparte, seteas la variable "resultat" y luego la intentas mostrar como "resultado"... No existe la variable "resultado".

Solución:
Código (dos) [Seleccionar]
@echo off

:: Visita Foro.ElHacker.Net

Echo Introduezca los grados Celsius (§C)
set /P gradoscelsius=^>^>
Set /A gradoscelsius=%gradoscelsius:-=%
set /A gradoskelvin=-273
set /A resultado=%gradoscelsius%+-%gradoskelvin%
Echo Resultado: %gradoscelsius% §C = %resultado% §K | MORE

pause


Output:


Saludos.
#10854
Cita de: Stakewinner00 en 22 Mayo 2012, 22:49 PM
link roto

es interesante si lo pueden arreglar me lo descargaria

He echo una pequeña actualización :)

saludos
#10855
Cita de: criskapunk en  2 Junio 2012, 05:10 AM
Buenas,

Se podría únicamente importar la función que se va a utilizar del módulo:

Código (python) [Seleccionar]
from re import sub
cadena = "123abcdef456"
cadena = sub("\D", "", cadena)
print cadena


Un saludo.

+1 ;D

#10856
hola

Gracias por los comentarios xD

Pues todos los instaladores tienen su propio lenguaje scripteado, Por lo tanto hay que aprender sus variables, Sus comandos, Y su funcionamiento. Es como ponerse a codear un archivo BAT, Solo que este archivo sirve para que el compilador sepa lo que deba hacer (Los archivos a expandir, las rutas que debe crear en cada pc, las claves de registro, en fin todo eso...)
Lo malo es que CASI ningún instalador dispone de una GUI que nos ayude a agilizar esa tarea y que nos haga el código automáticamente simplemente haciendo click en lo que queremos hacer... no se si me explico bien.

Hay muchas opciones, Las 2 únicas que merecen la pena para mi son InstallShield e InnoSetup.

Yo uso Inno Setup porque es potente y gratis, Que por si solo es complejo aprender todas sus funciones pero para eso tenemos algunas GUI (Más de una), Yo usaba "InnoIde" pero conocí una gui muchisima más completa y configurable y en fin, se lama "IsTool"


En resumen, Lo necesario, Para crear un instalador de una aplicación corriente sería: Inno Setup + IsTool (o InnoIde)

Y lo recomendado (Por mi):
- Inno Setup + IsTool
(Para crear el instalador.)

- Regshot
(Para monitorizar las claves de registro que añadan ciertos programas)

- Process Monitor (De sysinternals) o Mo0o File Monitor.
(Para monitorizar los archivos especiales que crean algunos programas)

- VirtualBox o VMWare + Una ISO de Windows (XP/7)
(Para probar el resultado Final)

PD: Tomar un regalito... Para que vayais probando, Es mi instalador de la última versión de Inno setup (LLeva IsTool y algunos plugins) y una plantilla (.iss) que es el archivo que debe leer el compilador.

http://directmirror.com/files/NAJPVB8W



Yo no quiero asustar a nadie, En realidad para un programa "normal" pues solo se requiere modificar 5 cosas de mi plantilla y ya está (O sin plantilla, Es fácil). Pero que si se trata de algo "GRANDE" como photoshop, Que requiere activación del producto, Y que crea 800.000 archivos en Appdata\roaming, Appdata\local, Programfiles\commonfiles, etc... y claves d registro pues... Se requiere monitorizar todo eso, Y todo tipo de pruebas en una maquina virtual para no hacer una chapuza, Y a la primera no se va a conseguir. ¿Por cierto, Os ha ido bien el Photoshop? :)

Saludos.
#10857
Cita de: EleKtro H@cker en 30 Mayo 2012, 15:42 PM
la variable i es el archivo de entrada, por ejemplo: entrada.avi, y en los siguinetes pasos seguiria siendo el mismo, es decir: entrada.avi, y no entrada.wav...
podria modificar el segundo comando y poner
%%ni.wav para que procesara el archivo wav resultante del primer comando...

Si, Supongo que así podrías, Yo uso SOX para cambiar el pitch y grabar audio, Nunca lo he manejado para convertir así que no se que decirte, Pero bueno la documentación la tienes en su web.
Lo único que digo es que si no le indicas el archivo de entrada al SOX no va a saber que hacer con el output del ffmpeg.

PD: "%%~ni.wav"

Cita de: EleKtro H@cker en 30 Mayo 2012, 15:42 PM
extraer los streams es sencillo, pero si estan en, por ejemplo mp3 y los quiero convertir a aac, solo puedo hacerlo extrayendo el stream de audio y convirtiendolo por separado?
No hay manera de convertirlo directamente?
Sinceramente no lo se  :-(. ¿Mp4box no era capaz de codificar en AAC?

saludos
#10858
Software / Re: emule
1 Junio 2012, 09:52 AM
Bueno, Si quieres probar suerte con esta versión desatendida que hice... :-/

Por probar no pierdes nada, Le configuré muchos parámetros para intentar dejarlo más liviano que un emule "por defecto", Solo vas a tener que configurar la carpeta de descargas xD.



> Descarga: http://directmirror.com/files/9ARFMQJA

Saludos.
#10859
Windows / Re: Error en Net view
1 Junio 2012, 09:23 AM
Los errores de los programas de Windows, Al foro de Windows xD.

PD: ¿Tienes el servicio "Examinador de equipos" en deshabilitado? Solo se me ocurre eso, Aunque he visto todo tipo de respuestas, AQUÍ.

EDITO: Solución de Microsoft:
http://support.microsoft.com/kb/139910/es

Citar
Modificar el archivo System.ini en el directorio de red (normalmente C:\NET), no edite el archivo System.ini de Windows (normalmente en el directorio C:\Windows).

En la sección [network] buscará las entradas para "grupo de trabajo ="y"logondomain =." Estas entradas deben ser el mismo, ambos con el nombre de dominio.


CitarSystem error 6118 has occurred. The list of servers for this workgroup is not currently available

SYMPTOMS:
1) After enabling ICS/ICF, you can't see any computes on My Network places. If you try, you may get "workgroup is not accessible".
2) If you use the net view command, you may receive "System error 6118 has occurred. The list of servers for this workgroup is not currently available." message.

Resolutions:
1) This behavior can occur if you enable the ICF that will closes the ports for file sharing by default. To open these ports, right-click the network connection that is firewall protected> Properties>Advanced>Settings>Service Tab>Add, Enter 127.0.0.1) for the required Internet Protocol (IP) number. Enter UDP ports from 135 through 139, and TCP ports from 135 through 139 one by one (the external and internal port numbers should be identical).
2) This may occur if the workgroup name and the domain name are the different.
3) No master browser. Starting Computer Browser Service on one of w2k/xp computers should fix the problem
#10860
Que bien poder ayudarte .:UND3R:. :)

No haré comentarios, En el bat te lo dejo todo muy bien explicado xD

Saludos.
Elektro H@cker / Pitoloko.






Fechas Killer xD.bat

@Echo OFF
Title By Elektro H@cker

:: By Elektro H@cker
:: Visita Foro.ElHacker.Net

Setlocal enabledelayedexpansion

REM yyyymmdd
Set "Hoy=%date:~6,4%%date:~3,2%%date:~0,2%"

Set "Archivo=test.txt"
If NOT Exist "%archivo%" (Exit /B 1) ELSE (Copy /-Y "%ARCHIVO%" "%ARCHIVO%_BACKUP" & CLS)

Echo Fecha actual [%DATE:/=-%]                   | MORE
Echo [+] Buscando usuarios con fecha expirada... | MORE
Call :Check "%archivo%"

:Check
REM %%a=Nombre, %%b=Fecha
For /F "tokens=1,2,* Delims=/" %%a in ('Type %1') do (
Set "Fecha=%%b"
Set "Fecha=!Fecha:-=!"
Set "Fecha=!Fecha: =!"

REM yyyymmdd
Set "Fecha=!Fecha:~4,4!!Fecha:~2,2!!Fecha:~0,2!"

REM Un pequeño control de errores por si se encuentra alguna fecha de MENOS (No de más) de 8 dígitos, O algún otro caracter que no sea un número. No lo uses si prefieres ganar tiempo de ejecución xD.
Echo "!Fecha!"| Findstr "^\"[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\"$" >NUL || (Echo Se ha encontrado una fecha NO valida y no se puede continuar | MORE & Echo Revise la linea de "%%a %%b" y repita el proceso. | MORE & Pause & Exit /B 1)

REM Un TEST para ir mostrando las comparaciones...
REM Echo %%a ^(!fecha!^) ^(!hoy!^)

If "!Fecha!" LSS "!Hoy!" (
Echo %%a           %%b
Set "Archivo=%~1.tmp"
Set "Nombre=%%a"
Set "Nombre=!Nombre: =.!"
Set "Fecha=%%b"
Set "Fecha=!Fecha:~1!"
Findstr /V "!Nombre!./.!Fecha!" "%Archivo%">"!Archivo!" || (Echo Ha ocurrido un error inesperado, No se pudo borrar al usuario "%%a %%b" & Pause)
Del /Q %1
Ren "%~1.tmp" "%~1"
Set "Archivo=%~1"
Set /A Count+=1
Goto :Break

REM Si te quieres ahorrar bastante tiempo de ejecución a costa de mostrar correctamente algunos datos, Usa esta forma.
REM Al encontrar una fecha expirada, Elimina todos los resultados de una sola vez.
REM
REM If "!Fecha!" LSS "!Hoy!" (
REM Echo Eliminando a usuarios con fecha: %%b
REM Set "Archivo=%~1.tmp"
REM Findstr /V "%%b" "%Archivo%">"!Archivo!" || (Echo Ha ocurrido un error inesperado, No se pudo encontrar la fecha "%%b" & Pause)
REM Del /Q %1 && Ren "%~1.tmp" "%~1" && Set "Archivo=%~1" && Set /A Count+=1
REM Goto :Break
)
)
Goto :Fin

:Break
Call :Check "!Archivo!"

:Fin
If defined COUNT (Echo+ & Echo [+] Se han borrado %Count% Elementos. | MORE) ELSE (Echo+ & Echo [+] No se han encontrado fechas expiradas. | MORE)
Pause
Exit



test.txt

indiana jones // 02-05-2012
juan   // 30-05-2012
pablo // 01-06-2012
pedro // 06-16-2012
maria // 12-12-2012
magan // 25-03-2012
mojon // 01-04-2012
Terminator // 31-01-2012
melchor // 05-02-2012



Output: