| |
|
211
|
Programación / Scripting / Windows 7 Effects Changer. Comparto esta utilidad con ustedes.
|
en: 30 Noviembre 2009, 16:17 pm
|
Hola, algunos ya sabrán que llevo bastante tiempo modificando mi Windows 7, pues he creado algunos scripts, y ya subí bastantes hace poco, pero hice mal, los subí antes de tiempo, digamos que podrian llamarse versiones "Beta"  , hoy quiero comenzar de nevo subiendo la primera, ya que pienso que está totalmente terminada. Windows 7 Effects Changer.Descripción: Customizas Windows 7? Necesitas constantemente cambiar los efectos visuales de windows? Yo si! por eso he creado esta pequeña utilidad que los modifica, hay 4 opciones, "minimo", "bajo", "alto" y "maximo": Mínimo: Desactiva todos los efectos visuales de windows 7. Bajo: desactiva el Aeropeek, sombras en el puntero del raton, en la ventana, , vistas previas,etc.. alto: Activa el efecto aero, sombras, vistas previas en lugar de iconos, No activa el aero peek. Máximo: Activa todos los efectos visuales. Para hacerlo más bonito, el proceso se realiza mediante el comando "sendkey", mandando pulsacions del teclado a Windows, creando una interfaz "interactiva", pero se adjuntan 4 registros , uno para cada opcion, para que no haya dudas de que el programa realize correctamente los cambios. Imagenes:  Descarga:Aquí teneis la descarga >> www.mediafire.com/?jtjgozironaEl script usa 4 grandes utilidades para el CMD que debes tener instaladas en el PC, son "colous" "Sleep" "Sendkey" y "sendkeys". las adjunto dentro del programa para ejecutar el instalador manualmente en caso de no disponer de ellas. Espero que a alguien le sirva, como a mi., Gracias. Saludos! |
|
|
|
|
212
|
Programación / Scripting / [BATCH] Ayuda con este script sobre "if exist" y "takeown" (SOLUCIONADO)
|
en: 30 Noviembre 2009, 04:00 am
|
Hola, no se que pasa que algo tengo estoy haciendo mal en este script... pero cuando el script llega al comando de " if exist %Windir%\system32\Ribbons.scr (" y luego al " takeown /f", se cierra y no me da tiempo a leer el error!, no puedo hacer un "pause" para leerlo tampoco, aunque intentandolo leer, creo que dice "No se esperaba /F en este momento", pero eso no es posible... está bien!, si el script lo pruebo sin los " If", osea, si pruebo solamente un " takeown /F %WINDIR%\winsxs\PhotoScreensaver* /R" no me da problemas, y el resto del script es casi identico y funciona, nos e que debe pasar... necesito de vuestra ayuda  :200
cls
color 07
echo+
echo Buscando salvapantallas de Windows 7.
sleep 1
cls
echo+
echo Buscando salvapantallas de Windows 7..
sleep 1
cls
echo+
echo Buscando salvapantallas de Windows 7...
sleep 1
if not exist %Windir%\system32\bubbles.scr (
color 02
cls
echo+
echo No se han encontrado salvapantallas de Windows 7.
sleep 3
cls
) ELSE (
goto :29
)
:29
cls
if exist %Windir%\system32\Ribbons.scr (
color 02
cls
echo+
echo Eliminando salvapantallas de Windows 7.
sleep 1
cls
echo+
echo Eliminando salvapantallas de Windows 7..
sleep 1
cls
echo+
echo Eliminando salvapantallas de Windows 7...
sleep 1
takeown /F %WINDIR%\winsxs\PhotoScreensaver* /R
icacls %WINDIR%\winsxs\PhotoScreensaver* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\x86_microsoft-windows-PhotoScreensaver* /R
icacls %WINDIR%\winsxs\x86_microsoft-windows-PhotoScreensaver* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\amd64_microsoft-windows-PhotoScreensaver* /R
icacls %WINDIR%\winsxs\amd64_microsoft-windows-PhotoScreensaver* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\ssText3d* /R
icacls %WINDIR%\winsxs\ssText3d* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\x86_microsoft-windows-ssText3d* /R
icacls %WINDIR%\winsxs\x86_microsoft-windows-ssText3d* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\amd64_microsoft-windows-ssText3d* /R
icacls %WINDIR%\winsxs\amd64_microsoft-windows-ssText3d* /grant Administradores:(D,WDAC) /T
takeown /F %Windir%\syswow64\bubbles.scr
icacls %Windir%\syswow64\bubbles.scr /grant Administradores:(D,WDAC)
takeown /F %Windir%\system32\bubbles.scr
icacls %Windir%\system32\bubbles.scr /grant Administradores:(D,WDAC)
takeown /F %WINDIR%\winsxs\bubbles* /R
icacls %WINDIR%\winsxs\bubbles* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\x86_microsoft-windows-bubbles* /R
icacls %WINDIR%\winsxs\x86_microsoft-windows-bubbles* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\amd64_microsoft-windows-bubbles* /R
icacls %WINDIR%\winsxs\amd64_microsoft-windows-bubbles* /grant Administradores:(D,WDAC) /T
takeown /F %Windir%\syswow64\Mystify.scr
icacls %Windir%\syswow64\Mystify.scr /grant Administradores:(D,WDAC)
takeown /F %Windir%\system32\Mystify.scr
icacls %Windir%\system32\Mystify.scr /grant Administradores:(D,WDAC)
takeown /F %WINDIR%\winsxs\Mystify* /R
icacls %WINDIR%\winsxs\Mystify* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\x86_microsoft-windows-mystify* /R
icacls %WINDIR%\winsxs\x86_microsoft-windows-mystify* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\amd64_microsoft-windows-mystify* /R
icacls %WINDIR%\winsxs\amd64_microsoft-windows-mystify* /grant Administradores:(D,WDAC) /T
takeown /F %Windir%\syswow64\Ribbons.scr
icacls %Windir%\syswow64\Ribbons.scr /grant Administradores:(D,WDAC)
takeown /F %Windir%\system32\Ribbons.scr
icacls %Windir%\system32\Ribbons.scr /grant Administradores:(D,WDAC)
takeown /F %WINDIR%\winsxs\Ribbons.scr* /R
icacls %WINDIR%\winsxs\Ribbons.scr* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\x86_microsoft-windows-ribbons* /R
icacls %WINDIR%\winsxs\x86_microsoft-windows-ribbons* /grant Administradores:(D,WDAC) /T
takeown /F %WINDIR%\winsxs\amd64_microsoft-windows-ribbons* /R
icacls %WINDIR%\winsxs\amd64_microsoft-windows-ribbons* /grant Administradores:(D,WDAC) /T
del /q /f /s %Windir%\winsxs\PhotoScreensaver*
del /q /f /s %Windir%\winsxs\amd64_microsoft-windows-PhotoScreensaver*
del /q /f /s %Windir%\winsxs\x86_microsoft-windows-PhotoScreensaver*
del /q /f %Windir%\system32\bubbles.scr
del /q /f %Windir%\syswow64\bubbles.scr
del /q /f /s %Windir%\winsxs\bubbles*
del /q /f /s %Windir%\winsxs\amd64_microsoft-windows-bubbles*
del /q /f /s %Windir%\winsxs\x86_microsoft-windows-bubbles*
del /q /f %Windir%\system32\Mystify.scr
del /q /f %Windir%\syswow64\Mystify.scr
del /q /f /s %Windir%\winsxs\Mystify*
del /q /f /s %Windir%\winsxs\amd64_microsoft-windows-mystify*
del /q /f /s %Windir%\winsxs\x86_microsoft-windows-mystify*
del /q /f %Windir%\system32\Ribbons.scr
del /q /f %Windir%\syswow64\Ribbons.scr
del /q /f /s %Windir%\winsxs\Ribbons.*
del /q /f /s %Windir%\winsxs\amd64_microsoft-windows-ribbons*
del /q /f /s %Windir%\winsxs\x86_microsoft-windows-ribbons*
del /q /f /s %Windir%\winsxs\ssText3d*
del /q /f /s %Windir%\winsxs\amd64_microsoft-windows-ssText3d*
del /q /f /s %Windir%\winsxs\x86_microsoft-windows-ssText3d*
pause
) ELSE (
goto :201
)
:201
cls
color 07
echo+
echo Buscando imagenes de cuentas de usuario de Windows 7.
sleep 1
cls
echo+
echo Buscando imagenes de cuentas de usuario de Windows 7..
sleep 1
cls
echo+
echo Buscando imagenes de cuentas de usuario de Windows 7...
sleep 1
|
|
|
|
|
213
|
Programación / Scripting / [BATCH] Como desinstalo un evento del sistema con "wevtutil.exe"? (SOLUCIONADO)
|
en: 29 Noviembre 2009, 22:20 pm
|
hola, modificando ciertas cosas de windows, me he visto con una bonita carpeta de "logs" de eventos de mi sistema, que ocupa mas de 200 mb  , en fin, quiero hacer un batch que los elimine automaticamente... por ejemplo empiezo con el evento que se llama "system.evtx", bien, así es como lo borro: ya que no se pueden borrar de otra forma, estan protegidos por windows... pues creo que tambien se puede desinstalar la publicacion de los eventos, para que windows no publique mas eventos y logs de "system.evtx" por ejemplo de ese... y no se como hacerlo, ni en la consola de comandos, ni en el visor de eventos, tampoco sé...alguien puede ayudarme??? mil gracias. edito: No se si sirve con los eventos... pero he probado para desinstalarlo y me da el siguiente error: C:\Users\Administrador>wevtutil um System.evtx
System.evtx(0): Error 0x800c0005: At column=0, El sistema no puede ubicar el recurso especificado.
Error al cargar el documento XML System.evtx. Función incorrecta. |
|
|
|
|
214
|
Media / Juegos y Consolas / Sobre Counter-Strike... ¿Hacks de Admin? No estoy seguro...
|
en: 27 Noviembre 2009, 15:49 pm
|
Hola, ya se que no se puede pedir hacks , y no voy a hacerlo xD, solo quiero comentar algo que me pasó hace un tiempo, estaba dando por culo a un admin en un server del CS, en fin, pues el admin se puso chulo... se hacia el hacker y tal jaja y para intentar darme miedo o algo... (solo consiguió impresionarme un poco por la técnica usada jaja) pues no se lo que hizo ni como lo hizo pero el lector de mi CD empezó a abrirse y cerrarse todo el rato...por su culpa, no me impresionó nada ya que otros admins simplemente me han llegado a cambiar la configuracion de mi teclado en el counter... Pero como es posible que hagan este tipo de cosas??? esto me hace pensar lo INSEGURO que es el counterstrike... supongo que lo del CD es un script que de algun modo me mandó a mi PC y lo ejecutó desde la consola de su servidor, cierto? Hay alguna forma de evitar estas cosas???? y como lo hacen?? :S Que opinais vosotros, os han echo algo mas gordo algun admin? xD gracias y saludos. |
|
|
|
|
215
|
Programación / Scripting / una pregunta tonta sobre "set /p"...
|
en: 24 Noviembre 2009, 11:07 am
|
hola, llevo mucho tiempo intentando saber como puedo hacer una pregunta en batch con un espacio al principio de la pregunta, quiero decir... como cuando haces un "echo+ hola" se muestra con un espacio al principio. Aqui dejo una imagen para que me entendais, quiero que la pregunta de "set /p nombre=" tenga espacio al principio, como el resto de la imagen...  echo+
echo+ Escribe un nombre para tu PC.
echo+
echo+ (Maximo 15 letras, y sin usar caracteres especiales)
echo+
echo+ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo+
set /p nombre=Nombre: espero ayuda, gracias! |
|
|
|
|
216
|
Programación / Scripting / Ayuda con "Sendkey.exe" porfavor
|
en: 24 Noviembre 2009, 09:01 am
|
Hola, estoy intentando crear este script de esta manera: @echo off
start c:\windows\system32\SystemPropertiesPerformance.exe
sleep 2
sendkey.exe down
sleep 1
sendkey.exe down
sleep 1
sendkey.exe down
sleep 1
sendkey.exe tab
sleep 1
sendkey.exe space
sleep 1 Hasta ahí bien, el problema es con el "space", no se como indicarle que haga un sendkey a la tecla space, y en la lista del sendkey.exe se supone que solo puedo usar esto: althold
altrelease
backspace
ctrlhold
ctrlrelease
delete
down
end
enter
escape
f1 - f12
home
insert
left
next
prior
printscreen
right
shifthold
shiftrelease
tab
upNo aparece "space", entonces... no puedo??? como podria hacerlo de otra manera??? EDITO: tambien he buscado como hacerlo desde un vbscript pero solo he encontrado comentarios diciendo que tampoco se puede usar un "VB Code: SendKeys "{space}" " Lo que quiero es encasillar/descasillar una casilla del "SystemPropertiesPerformance.exe", y solo se hacerlo mediante la tecla "Spacio", no se si con otra combinación de teclas se podrá... pero entonces ya podria hacer la combinacion. Gracias. |
|
|
|
|
217
|
Programación / Scripting / problema con variantes y rutas [batch] (SOLUCIONADO)
|
en: 18 Noviembre 2009, 12:06 pm
|
Hola, tengo un problema al que le he intentado buscar la solucion mucho tiempo ya, espero que alguien pueda ayudarme... Set ruta1=cd %USERPROFILE%\AppData\Roaming\Mozilla\Firefox\Profiles\*.default
set ruta2=%ruta1%\prefs.js
Set var=user_pref("browser.download.manager.scanWhenDone", false);
Echo %var% >> %ruta2%
que es lo que hago mal???, he probado con comillas y sin comillas, y lo unico que hace es crear un archivo llamado "cd" en mi %userprofile%  ... lo que me gustaria hacer es que abriese una ruta, y luego a la siguiente variante decirle que opere desde la ruta de "ruta1"...y luego pues el resto.... gracias Nota del Mod : Para algo está la etiqueta código, usala. |
|
|
|
|
218
|
Programación / Scripting / como cambiar el color de una frase en un batch?? (SOLUCIONADO)
|
en: 16 Noviembre 2009, 03:51 am
|
|
hola, mi pregunta es esta...
Quiero hacer esto:
hola
adios
si yo tengo:
color 07
echo hola
echo adios
exit
como hago para cambiar el color de "adios" a rojo? y que la frase anterior siga viendose en el otro color, en verde?
se puede hacer??
si intento esto :
color 07
echo hola
color 0c
echo adios
exit
"color 0c" sustituye a "color 07", osea que todo se ve en el ultimo color especificado...
|
|
|
|
|
219
|
Programación / Scripting / Ayuda para insertar texto en un archivo??? (SOLUCIONADO)
|
en: 16 Noviembre 2009, 01:37 am
|
|
Hola, me a surgido un problema, sinceramente tengo pocas herramientas, el comando "edit" no lo tengo, de todas formas he leido que solo sirve para leer texto, no para insertar...
lo que necesito hacer es insertar una linea de texto, y además incluyendo caracteres especiales que puede que confundan al comando... la linea ENTERA de texto no importa en que posicion la inserte dentro del archivo de texto, pero necesito que sea sobre un espacio en blanco, osea... insertar una linea entera, no modificar una por otra nueva... o como mucho, modificar una linea x 2, osea, que en esa linea se inserte la que yo quiera, y debajo de esa linea, la anterior que habia antes... 2x1
en teoria seria algo así:
meter "user_pref("network.http.pipelining.maxrequests", 25);" en una linea en blanco de "c:\prefs.js"
y no se me ocurre nada para esto, si sirve de algo tengo la herramienta SED.exe, pero no se si solo sirve para modificar palabras...no se, pero a la hora de ponerle parentesis etc... no lo reconoce bien... o no lo se hacer bien...
agradezco la ayuda!!
he visto un tutorial muy bien echo del moderador "Leo" pero se usa el comando EDLIN y no dispongo de el, alguien puede subirlo para ver si me funciona???
|
|
|
|
|
220
|
Programación / Scripting / Una ayuda básica sobre un vbscript porfavor..(SOLUCIONADO)
|
en: 14 Noviembre 2009, 19:34 pm
|
Set oShell = CreateObject("WScript.Shell") oshell.SendKeys "{F5}~" wscript.sleep 500 oshell.SendKeys "{F5}~" wscript.sleep 500 WScript.Quit
Lo guardo en la ruta "c:\1.vbs" ...Porque si ejecuto el script desde el cmd, no deja de hacer un bucle todo el rato? como le doy al script la función de pararse o salir?? :S otro problema porfavor como hago para modificar una entrada del registro? he probado tres metodos y ninguno me funciona!! quiero modificcar esto: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:00000001
"SuperHidden"=dword:00000001uf, ya lo conseguí gracias d todas formas... Set oShell = CreateObject("WScript.Shell") oshell.regWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD" WScript.Quit[/code
|
|
|
|
|
|
| |
|
Mostrar Temas