Mensajes

[SDELETE]

Si quieres borrar TODO el espacio innecesario y no asignado de tu disco duro, debes desfragmentarlo MÏNIMO 2 veces, y luego le pasas una herramienta como SDELETE .

Por ejemplo si tienes un disco virtual de 20 gb, pero cuando entras ves que solo tienes 8 GB de datos... pues con esa utilidad la imagen se "comprime" a 8 gb.

Saludos.

[CALL]

Hice el cambio que me dijiste, borre call y puse lo que aconsejaste pero ahi si que ni reconoce el password

Te falla por esto:

Código [Seleccionar] Expandir

echo %pass% >> pass.bat

Los espacios cuentan como caracteres, entonces, se copia la contraseña + 1 espacio al pass.bat, por eso no funciona de la forma que te dije, tienes que escribir la contraseña y un espacio, pero bueno eso se arregla así de fácil:

Código [Seleccionar] Expandir

echo %pass%>>pass.bat

(A esos pequeños errores me refería, repasate mejor tus próximos bats  )

Tambien elimine lo de Title.. no vea importancia.. o si (?)

No se si sabes el funcionamiento de CALL, y yo no lo se explicar bien  , bueno de todas maneras lo de title te lo dije para ahorrarte líneas innecesarias, pero el call no te iba a funcionar con ese pass.bat, daría un error parecido a esto:

Código [Seleccionar] Expandir

"contraseña" no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.

He probado el code y me ha funcionado bien, solo tienes que quitarle los espacios a la línea que te dije.

Saludos!

[EDITO]

hola, haz el favor de pegar el código entero para buscar el error.

saludos

EDITO: pero bueno, los errores saltan a la vista

echo title(=)Password>"C:\others\cook\passcript\pass.bat"

call C:\others\cool(COOK)\passcript\pass.bat

Goto ( : )fail

La última no tiene mucha importancia, pero... Al menos repasa tu código y corrije los pequeños errores como esos.

De todas formas, esas dos líneas sobretodo la del Call borrala, eso no tiene sentido... El password no se va a reconocer como un comando en el pass.bat, y dará error.

Podrías usar:

Código (dos) [Seleccionar] Expandir

:entrar
set /p password=Ingresa tu clave:

Type "C:\others\cook\passcript\pass.bat" | findstr "^%password%$" >nul
If %errorlevel% EQU 0 (
goto :menu
) ELSE (
cls
       Goto :fail
)

Sin ver el código entero, no puedo aventurarme más.
saludos

[Colous v5]

ya borré el script, lo hice en 5 segundos xD con la ayuda de Colous v5

http://foro.elhacker.net/scripting/batch_packs_de_aplicaciones_varias_commandlineinterface_actualizado_05mayo-t322976.0.html

(Me parece que el hosting da problemas, si no puedes bajarte el link, bajate el colous de aqui:
http://foro.SPAM(1)/f82/g-colous-v5-193165/

Ups... spam, bueno, de la web de los copiones de elhacker.net... )

Uso:

Código [Seleccionar] Expandir

Colous writesec "[COLOR] texto..."

ejemplo:
Colous writesec "[7]Los limones son [14]amarillos[7]!, Los tomates son [12]rojos."

PD: Tambien puedes usar coordenadas, si buscas Colous en el buscador del foro te saldrá un manual (Copiado)

[Aircrack-NG]

No se si te servirá, pero:

Aircrack-NG

Es el color que tenía su batch xD, si por mi fuera...  

[python]

Vaya, que fácil con python xD

Para hacerlo en batch me he tenido que comer un poco el coco xD, pero el resultado ha sido satisfactorio  

Código (dos) [Seleccionar] Expandir



@echo off
Title=Foro.Elhacker.Net

REM By PiToLoKo
REM Foro.Elhacker.Net

Set Num=0
Set Celdas=0000000
echo %celdas%%num%>lista.txt


:Suma
Set /a Num+=1
call :Rango
goto :Suma


:Rango
if %num%==10 (Set celdas=000000)
if %num%==100 (Set celdas=00000)
if %num%==1000 (Set celdas=0000)
if %num%==10000 (Set celdas=000)
if %num%==100000 (Set celdas=00)
if %num%==1000000 (Set celdas=0)
if %num%==10000000 (Set celdas=)
if %num%==100000000 (Exit)

echo %celdas%%num%>>lista.txt
goto:eof



Eso si, tarda bastante, bueno, he añadido unas lineas en el código para comprobar cuanto tarda y mostrar como va en la pantalla, por si quieres hacer pruebas entre python y batch xD, aqui tienes la segunda version xD:

Código (dos) [Seleccionar] Expandir

@echo off
Title=Foro.Elhacker.Net

REM By PiToLoKo
REM Foro.Elhacker.Net

Set Start_Time=%time%
Set Num=0
Set Celdas=0000000
echo %celdas%%num%>lista.txt


:Suma
Set /a Num+=1
call :Rango
goto :Suma


:Rango
if %num%==10 (Set celdas=000000)
if %num%==100 (Set celdas=00000)
if %num%==1000 (Set celdas=0000)
if %num%==10000 (Set celdas=000)
if %num%==100000 (Set celdas=00)
if %num%==1000000 (Set celdas=0)
if %num%==10000000 (Set celdas=)
if %num%==100000000 (Goto :Fin)

echo %celdas%%num%
echo %celdas%%num%>>lista.txt
goto:eof

:Fin
Echo+ Hora de inicio "%Start_Time%">>lista.txt
Echo+ >>lista.txt
Echo+ Hora actual "%time%">>lista.txt
Exit


Saludos.

[FART.exe]

Vendria bien que copiases ese caracter especial aqui en tu comentario, para poder hacer pruebas...

Quizás tenga que usar primero de todo :

Código [Seleccionar] Expandir

Copy con 1.txt
AQUI PEGAS EL CARACTER SPECIAL
Ctrl +z
Enter

Luego miras el resultado en 1.txt, y tienes la conversión del caracter especial, porque seguro que cambia.

Pero bueno, de todas formas...

http://sourceforge.net/projects/fart-it/files/fart-it/1.99b/fart199b_win32.zip/download

De ahí te bajas la aplicación FART.exe, y luego sería tan fácil como esto:

Código [Seleccionar] Expandir

FART data.txt \" --remove

O tambien, prueba así:

Código [Seleccionar] Expandir

FART data.txt " --remove

(Cambias las comillas " por el caracter especial de tu imagen, en los 2 códigos)

Saludos.

[Assoc]

tenia una duda de si usando assoc puedo cambiarle la extension a un archivo especifico, pues tengo el siguiente codigo

Código [Seleccionar] Expandir

set /p var=Especifique el nombre del archivo
assoc %var%.bat=exefile

Cuando especifico el nombre del archivo bat.. no lo convierte a .exe

solo me sirve con:

Código [Seleccionar] Expandir

assoc .bat=exefile

Pero convierte todos los archivos bat que tengo en el pc..

Es decir.. lo que quiero es poder especificar que archivo convertir..
¿Que me aconsejan?

Gracias  

Assoc no es para cambiar la extensión (Renombrar), es para cambiar la asociaciones de la extensión... Osea, para especificar que programa debe abrir cierta extensión, más o menos.

Lo que has hecho con ese código es que los bat se asocien como .exe... pero la extensión no la puedes cambiar así.

EDITO: ah, y se me olvidaba comentar, que la asociación es única, por eso actua sobre todos los .Bat de tu pc.

Lo que necesitas es:

Código [Seleccionar] Expandir

Ren "*.bat" "*.exe"

Ejemplo 2:

Código [Seleccionar] Expandir

Ren "Como se llame el bat.bat" "*.exe"

Saludos

[Comprobar_accesos_directos_rotos.vbs]

Voy a ver que hago con tanto codigo por lo menos separados los hago funcionar bien y les hago pequeñas modificaciones  lo dificil va a ser para unir todo eso y llegar a lo que quiero pero vamos a ver si lo puedo hacer nada es imposible para una mente dispuesta dicen por hay. 

Unificarlo es fácil, ya te he dado lo más dificil.

Por cierto, se me olvidó comentar que para eliminar carpetas vacías, conviene borrar primero los archivos ocultos "desktop.ini" que genera automáticamente windows. A menos que uses un icono personalizado para cada carpeta... es un archivo inservible, y obviamente esas carpetas ya no se considerarían vacías, aqui otro ejemplo mio sacado de un batch por si te sirve xD

Código (dos) [Seleccionar] Expandir

@echo off
if not exist "Comprobar_accesos_directos_rotos.vbs" (goto :next37)
if not exist "Comprobar_Carpetas_vacias.vbs" (goto :next37)

setlocal enabledelayedexpansion


:Desktop.ini
For /F "Tokens=*" %%a in ('dir /B /S /A H "%appdata%\Microsoft\Windows\Start Menu\Programs\*desktop.ini"') do (del /q /F /A H "%%a")
For /F "Tokens=*" %%a in ('dir /B /S /A H "%ProgramData%\Microsoft\Windows\Start Menu\Programs\*desktop.ini"') do (del /q /F /A H "%%a")



:Accesos directos rotos
For /F "Tokens=*" %%a in ('dir /B /S "%appdata%\Microsoft\Windows\Start Menu\Programs\*.lnk"') do (
Set archivo="%%a"
call :comprobar)

For /F "Tokens=*" %%a in ('dir /B /S "%ProgramData%\Microsoft\Windows\Start Menu\Programs\*.lnk"') do (
Set archivo="%%a"
call :comprobar)



:Carpetas vacias
For /F "Tokens=*" %%a in ('dir /B /S /A:D "%appdata%\Microsoft\Windows\Start Menu\Programs\"') do (
set carpeta=%%a
call :Comprobar carpeta)

For /F "Tokens=*" %%a in ('dir /B /S /A:D "%ProgramData%\Microsoft\Windows\Start Menu\Programs\"') do (
set carpeta=%%a
call :Comprobar carpeta)


setlocal disabledelayedexpansion



goto :next37



:Comprobar
Comprobar_accesos_directos_rotos.vbs !archivo!

If %errorlevel% EQU 0 (
goto:eof
) ELSE (
Del /Q /F !archivo!
goto:eof
)


:Comprobar carpeta
"Comprobar_Carpetas_vacias.vbs" "!carpeta!"

If %errorlevel% EQU 0 (
goto:eof
) ELSE (
rd /q "!carpeta!\"
goto:eof
)




Comprobar_accesos_directos_rotos.vbs

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
set objlink = objshell.createshortcut(wscript.arguments(0))
set objfso = createobject("scripting.filesystemobject")
if objfso.fileexists(objlink.targetpath) then
wscript.quit(0)
else
wscript.quit(1)
end if