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

#11191
La primera imagen no se ve nada, he tenido que hacer zoom y las letras se ven borrosas pero parece que pone "El servicio no existe como servicio instalado", Vamos, que yo tenía razón y es un virus que te ha eliminado los servicios xD.

Ningún antivirus te va a poder deshacer ese cambio, No hagas esfuerzos para nada.

Como mucho quizás haya algún "Fix" de microsoft para este caso en concreto, pero también lo dudo...

La mejor solución en este caso es que formatees ese disco duro y reinstales Windows, O si tienes un punto de restauración activo, úsalo para restaurar el sistema a un estado anterior de cuando tenías problemas...

La (posible) solución más lenta sería volver a crear esos dos servicios con "SC create" en consola (Suponiendo que ese séa el problema del error, y que no séan todavía más servicios eliminados...)
Y digo posible solución porque no sabemos si el virus (O lo que séa) ha borrado solamente las entradas del registro, O además haya borrado los archivos esenciales, Las dependencias para cada uno de esos servicios... (Repito, Lo mejor es reinstalar Win.)

De todas formas, Probemos a "recrear" el motor de filtrado a ver si funciona:

Código (dos) [Seleccionar]
@Echo off
sc create bfe DisplayName= TEST type= share start= auto error= ignore binPath= "C:\Windows\system32\svchost.exe -k LocalServiceNoNetwork"
If %Errorlevel% EQU 0 (SC start bfe) Else (Echo error al crear el servicio...)
Sc query bfe
Pause


PD: No he probado el code, Aunque tampoco espero que funcione... Si fuese un servicio de terceros si, pero siendo de windows... seguro que me faltaría algo más por hacer.

EDITO: hmmm, Ahora que lo recuerdo, hace un tiempo estuve "jugando" a eliminar el servicio de WindowsUpdate y "recrearlo" y si que me funcionó sin indicarle dependencias ni nada, quizás si que te sirva el code xD. Si te funciona comenta y te hago el del Firewall.

Salu2.
#11192
¿Que no aparece un servicio original de Windows en la lista de servicios?...  :-\

¿Usas un Windows modificado? Porque de lo contrario, Solo se me ocurre que un virus haya eliminado las claves de registro que hacen referencia a ese servicio... (¿Tienes la base de virus de nod actualizada?..)

Prueba a iniciarlos desde la consola:

Código (dos) [Seleccionar]

@Echo OFF
:: Motor de filtrado de base
sc config bfe start= auto && sc start bfe

::Firewall
sc config mpssvc start= auto && SC start mpssvc

Pause
Exit



Salu2
#11193


 

Un script para los aficionados a los Arcades (Como yo).

Cuenta con varias utilidades para manejar ciertos aspectos del emulador Mame y/o MameUI32/MameUI64  (Tengo que decir que solo lo he probado con la gui MameUI)

-Se puede arrastrar una rom al bat para ejecutarla. (Con MAME/Mameui no se puede a menos que la ROM esté en el directorio "ROMS"... Por eso empezé a hacer este script.)

Otras cosas que se pueden hacer son:

- Ejecutar una rom escribiendo el nombre.
- Ejecutar una rom al azar.
- Buscar una rom.
- Listar las roms disponibles.
- Eliminar una rom.
- Ejecutar MAME
- Descargar la última base de trucos (cheat.zip)
- Ejecutar un pequeño limpiador/organizador de roms creado por mi.


Notas:

El script tiene que ejecutarse en el directorio donde tiene su mame.exe o mameui32.exe/mameui64.exe

Algunas partes del script requieren ciertos programas para el correcto funcionamiento del code. De todas formas si no tiene ninguna de estas utilidades, No pasa nada, simplemente esa parte se "saltará".

CitarColous    (Para mostrar el scrpt coloreado)
Irfanview  (Para redimensionar las imagenes en el limpiador)
Wget      (Para descargar el cheat.zip)
7z          (Para descomprimir el cheat.zip)



Algunas imagenes:

 

 

 


El code:

@Echo OFF
Title Mame Panel v1.0

:: :: :: :: :: :: :: ::
:: By Elektro H@cker ::
:: :: :: :: :: :: :: ::

:: Configuración :: :: :: :: :: :: :: :: :: :: :: :: :: ::
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::

REM Modifica el nombre de los ejecutable si es necesario...

:: Obligatorio:
Set MAME=MameUI64.exe

:: Opcional:
Set COLOUS=%windir%\system32\colous.exe
Set IRFANVIEW=%windir%\system32\i_view32.exe
Set NIRCMD=%windir%\system32\nircmd
Set WGET=%windir%\system32\wget.exe
Set ZIP=%windir%\system32\7z.exe
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::

Mode con cols=80 lines=20
%NIRCMD% win center ititle "Mame Panel v1.0" 2>Nul
PUSHD "%~dp0"
IF NOT exist %MAME% (Exit /B 1)
IF exist "%~1" (Goto :Play_New)

:Invaders
call :Logo
%COLOUS% writesec "[7]                               By Elektro H@cker" 2>Nul || Echo:                               By Elektro H@cker
Echo:                                           ÛÛÛÛÛÛÛÛ
Echo:         ÛÛ          ÛÛ                     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:     ÛÛ    ÛÛ      ÛÛ    ÛÛ                   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:     ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ                   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:     ÛÛÛÛÛÛ  ÛÛÛÛÛÛ  ÛÛÛÛÛÛ                   ÛÛÛÛÛÛ    ÛÛÛÛ    ÛÛÛÛÛÛ
Echo:       ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ                     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:         ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ                             ÛÛÛÛ    ÛÛÛÛ
Echo:         ÛÛ          ÛÛ                           ÛÛÛÛ  ÛÛÛÛ  ÛÛÛÛ
Echo:       ÛÛ              ÛÛ                           ÛÛÛÛ    ÛÛÛÛ
Call :Wait
call :Logo
Echo+
Echo:                                                           ÛÛÛÛÛÛÛÛ
Echo:         ÛÛ          ÛÛ                              ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:           ÛÛ      ÛÛ                              ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:         ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ                            ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:       ÛÛÛÛ  ÛÛÛÛÛÛ  ÛÛÛÛ                          ÛÛÛÛÛÛ    ÛÛÛÛ    ÛÛÛÛÛÛ
Echo:     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ                        ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo:     ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ                              ÛÛÛÛ    ÛÛÛÛ
Echo:     ÛÛ  ÛÛ          ÛÛ  ÛÛ                            ÛÛÛÛ  ÛÛÛÛ  ÛÛÛÛ
Echo:           ÛÛÛÛ  ÛÛÛÛ                              ÛÛÛÛ                ÛÛÛÛ
%COLOUS% writesec "[7]                               By Elektro H@cker" 2>Nul || Echo:                               By Elektro H@cker
Call :Wait
Set /A Animation+=1
IF %Animation% EQU 6 (Goto :Menu)
Goto :Invaders

:Logo
Cls
Set Rom=
Echo+
Echo:      _______ _______ _______ _______      ______                       __
Echo:     ^|   ^|   ^|   _   ^|   ^|   ^|    ___^|    ^|   __ \.---.-..-----..-----.^|  ^|
Echo:     ^|       ^|       ^|       ^|    ___^|    ^|    __/^|  _  ^|^|     ^|^|  -__^|^|  ^|
Echo:     ^|__^|_^|__^|___^|___^|__^|_^|__^|_______^|    ^|___^|   ^|___._^|^|__^|__^|^|_____^|^|__^|
Echo:
%COLOUS% Writesec "[8]     ÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈÈ" 2>NUL || Echo:     ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Echo+
Goto :EOF

:Wait
ping -n 1 localhost >nul & ping -n 1 localhost >nul & ping -n 1 localhost >nul
ping -n 1 localhost >nul & ping -n 1 localhost >nul & ping -n 1 localhost >nul
ping -n 1 localhost >nul & ping -n 1 localhost >nul & ping -n 1 localhost >nul
ping -n 1 localhost >nul & ping -n 1 localhost >nul & ping -n 1 localhost >nul
ping -n 1 localhost >nul & ping -n 1 localhost >nul & ping -n 1 localhost >nul
Goto :EOF

:Menu
Call :Logo
%COLOUS% writesec "[7]     ([10]1[7]) Jugar rom al azar.               ([10]M[7]) Ejecutar M.A.M.E." 2>Nul && Echo+  || Echo:     (1) Jugar rom al azar.               (M) Ejecutar M.A.M.E.    | MORE
%COLOUS% writesec "[7]     ([10]2[7]) Buscar rom.                      ([10]O[7]) Ir al organizador." 2>Nul && Echo+ || Echo:     (2) Buscar rom.                      (O) Ir al organizador.   | MORE
%COLOUS% writesec "[7]     ([10]3[7]) Listar roms disponibles.         ([10]S[7]) Salir..." 2>Nul && Echo+ && Echo+  || Echo:     (3) Listar roms disponibles.         (S) Salir...             | MORE & Echo+
%COLOUS% writesec "[7] Opcion [10]/[7] Nombre de la rom?" 2>Nul && Echo+                                             || Echo:  ¨Opci¢n / Nombre de la rom? | MORE
%COLOUS% Cursoron 2>Nul
Set /P ROM=^>^>
IF NOT defined ROM (Goto :Menu)
IF "%ROM%" EQU "1" (Goto :Random)
IF "%ROM%" EQU "2" (Goto :Search)
IF "%ROM%" EQU "3" (Goto :List)
IF /I "%ROM%" EQU "M" (Start /B %MAME% && Exit)
IF /I "%ROM%" EQU "O" (Goto :Manager)
IF /I "%ROM%" EQU "S" (Exit /B 0)
Start /B %MAME% %ROM%
Goto :Menu

:Play_New
Move %1 ".\roms\" >Nul
Start /W %MAME% "%~n1"
Echo: Si no te ha gustado la rom, Puedes borrarla... | MORE
Choice /M "¨Borrar la rom %~nx1 ?"
IF errorlevel 1 (Del /Q ".\Roms\%~nx1")
Goto :Menu

:List
Dir /W /P /A-D ".\Roms\*" ^| Find /V "bytes" | MORE /E /C +2
Pause
Goto :Menu

:Random
Setlocal enabledelayedexpansion
Del /Q "%temp%\roms.tmp" 2>Nul
For /F "Tokens=*" %%# in ('Dir /B ".\Roms\*"') do (Echo !Random!!Random!;%%#>>"%temp%\roms.tmp")
For /F "Tokens=2 Delims=;" %%# in ('Type "%temp%\roms.tmp" ^| Sort') do (Start /B %MAME% %%# && Endlocal && Goto :Menu)

:Search
Call :Logo
%COLOUS% writesec "[7]     Busca una rom en tu colecion...      ([10]M[7]) Ejecutar M.A.M.E." 2>Nul && Echo+ || Echo:     Busca una rom en tu colecion...      (M) Ejecutar M.A.M.E. | MORE
%COLOUS% writesec "[7]     Ejemplo: [10]kof[7]                         ([10]V[7]) Volver..." 2>Nul && Echo+  || Echo:     Ejemplo: kof                         (V) Volver...         | MORE
%COLOUS% writesec "[7]                                          ([10]S[7]) Salir..." 2>Nul && Echo+ && Echo+ || Echo:                                          (S) Salir...          | MORE & Echo+
%COLOUS% writesec "[7] Nombre de la rom?" 2>Nul && Echo+                                                     || Echo:  ¨Nombre de la rom? | MORE
%COLOUS% Cursoron 2>Nul
Set /P ROM=^>^>
IF NOT defined ROM (Goto :Search)
IF /I "%ROM%" EQU "M" (Start /B %MAME% && Exit)
IF /I "%ROM%" EQU "V" (Goto :Menu)
IF /I "%ROM%" EQU "S" (Exit /B 0)
Cls
Echo+
%COLOUS% writesec "[7] Buscando roms con el patron [10]*%ROM%*[7] ..." 2>Nul && Echo+ || Echo: Buscando roms con el patr¢n: *%Rom%* ... | MORE
%COLOUS% Cursoron 2>Nul
Dir /B /A ".\Roms\*%rom%*" | MORE
Pause
Goto :Search

:Manager
Call :Logo
%COLOUS% writesec "[7]     ([10]1[7]) Descargar CheatDatabase          ([10]M[7]) Ejecutar M.A.M.E." 2>Nul && Echo+ || Echo:     (1) Descargar CheatDatabase          (M) Ejecutar M.A.M.E. | MORE
%COLOUS% writesec "[7]     ([10]2[7]) Ejecutar el limpiador            ([10]V[7]) Volver..." 2>Nul && Echo+         || Echo:     (2) Ejecutar el limpiador            (V) Volver...         | MORE
%COLOUS% writesec "[7]     ([10]3[7]) Eliminar una rom.                ([10]S[7]) Salir..." 2>Nul && Echo+ && Echo+ || Echo:     (3) Eliminar una rom.                (S) Salir...          | MORE & Echo+
%COLOUS% writesec "[7] Opcion?" 2>Nul && Echo+                                                                      || Echo:  ¨Opci¢n? | MORE
%COLOUS% Cursoron 2>Nul
Set /P ROM=^>^>
IF NOT defined ROM (Goto :Manager)
IF "%ROM%" EQU "1" (Call :Cheats)
IF "%ROM%" EQU "2" (Goto :Cleaner)
IF "%ROM%" EQU "3" (Goto :Delete)
IF /I "%ROM%" EQU "M" (Start /B %MAME% && Exit)
IF /I "%ROM%" EQU "V" (Goto :Menu)
IF /I "%ROM%" EQU "S" (Exit /B 0)
Goto :Manager

:Cheats
Call :Logo
IF NOT exist "%wget%" (Echo Para usar esta opcion necesita instalar wget... | MORE & Pause & Goto :EOF)
IF NOT exist "%zip%"  (Echo Para usar esta opcion necesita instalar 7zip... | MORE & Pause & Goto :EOF)
%COLOUS% writesec "[7] Conectando con la pagina de [10]Pugsy's [7]..." 2>Nul && Echo+ || Echo: Conectando con la pagina de Pugsy's ... | MORE
%WGET% -q -t 3 http://cheat.retrogames.com/ -O "%temp%\mameloader_cheat.html.tmp" 1>Nul
%COLOUS% writesec "[7] Buscando la ultima version del archivo ..." 2>Nul && Echo+ || Echo: Buscando la £ltima versi¢n del archivo ... | MORE
For /F "tokens=3 Delims==>" %%# in ('Type "%temp%\mameloader_cheat.html.tmp" ^| Find /I "XML Cheat Collection for MAME" ^| Find /V /I "ZIP"') Do (Set CheatDatabase=%%#)
%COLOUS% writesec "[7] Descargando [10]%CheatDatabase:~10,-1% [7]..." 2>Nul && Echo+ || Echo: Descargando %CheatDatabase:~10,-1% ... | MORE
%WGET% -q -t 3 "http://cheat.retrogames.com/%CheatDatabase:~1,-1%" -O "%temp%\%CheatDatabase:~10,-1%" 1>Nul
%COLOUS% writesec "[7] Descomprimiendo [10]%CheatDatabase:~10,-1% [7]en la carpeta [10]cheat [7]..." 2>Nul && Echo+ || Echo: Descomprimiendo %CheatDatabase:~10,-1% en la carpeta "cheat" ... | MORE
%ZIP% e "%temp%\%CheatDatabase:~10,-1%" -o"%temp%\" cheat.zip -aoa 1>nul
%ZIP% e "%temp%\cheat.zip" -o".\cheat\" *.xml -aoa 1>nul
Echo: Listo! | MORE
%COLOUS% Cursoron 2>Nul
Pause
Goto :EOF


:Cleaner
Setlocal enabledelayedexpansion
Call :Logo
Echo+
%COLOUS% writesec "[7]El limpiador se encarga de redimensionar las imagenes de la carpeta titles y eliminar los archivos de las demas carpetas que no tengan una rom asociada en la carpeta [10]ROMS[7]." 2>Nul && Echo+ || Echo: El limpiador se encarga de redimensionar las imagenes de la carpeta titles y eliminar los archivos de las demas carpetas que no tengan una rom asociada en la carpeta ROMS. | MORE
%COLOUS% writesec "[7]Los archivos listos para su eliminacion se moveran a la carpeta [10]_Eliminados [7]del directorio de MAME." 2>Nul && Echo+ || Echo: Los archivos listos para su eliminacion se moveran a la carpeta "_Eliminados" del directorio de MAME. | MORE
%COLOUS% Cursoron 2>Nul
Choice /M "¨Ejecutar el limpiador?"
IF !Errorlevel! EQU 2 (Goto :Manager) Else (Call :Logo)
Call :Resizer_title_png
Call :Resizer_title_ico
Call :Clean cfg
Call :Clean cheat
Call :Clean diff
Call :Clean icons
Call :Clean_Folder nvram
Call :Clean snap
Call :Clean titles
Echo: Listo. | MORE
%COLOUS% Cursoron 2>Nul
Pause
Goto :Manager

:Clean
%COLOUS% writesec "[7] Eliminando archivos sin rom asociada en la carpeta: [10]%~1" 2>Nul || Echo: Eliminando archivos sin rom asociada en la carpeta: %~1
FOR /F "Tokens=*" %%a in ('Dir /B /A ".\%~1" ^| Find /V /I "Default.cfg" ^| Find /V /I "output.xml"') do (
Set "Rom=%%a"
IF NOT exist ".\Roms\!Rom:~0,-4!.zip" (
IF NOT exist ".\Roms\!Rom:~0,-4!" (
%COLOUS% writesec "[14] %%a" 2>nul || Echo: %%a
MKDir ".\_Eliminados\%~1" 2>NUL
Move /Y "%~1\%%a" ".\_Eliminados\%~1\" >NUL
)
)
)
Echo+
Goto :EOF

:Clean_Folder
%COLOUS% writesec "[7] Eliminando archivos sin rom asociada en la carpeta: [10]%~1" 2>Nul || Echo: Eliminando archivos sin rom asociada en la carpeta: %~1
FOR /F "Tokens=*" %%a in ('Dir /B /AD ".\%~1" ^| Find /V /I "Default.cfg" ^| Find /V /I "output.xml"') do (
IF NOT exist ".\Roms\%%a.zip" (
%COLOUS% writesec "[14] %%a" 2>nul || Echo: %%a
MKDir ".\_Eliminados\%~1" 2>NUL
Move /Y "%~1\%%a" ".\_Eliminados\%~1\" >NUL
)
)
Echo+
Goto :EOF

:Resizer_title_png
REM Redimensionar titles a 512x512 px (Y formato PNG)
%COLOUS% writesec "[7] Redimensionando los titles a PNG 512x512 px ..." 2>Nul || Echo: Redimensionando los titles a PNG 512x512 px ...
%IRFANVIEW% "%CD%\titles\* /resize=(512,512) /resample /convert=*.png" 2>NUL || IF NOT exist "%IRFANVIEW%" (Echo: Para usar esta opcion necesita instalar Irfanview... | MORE)
Del /Q "%CD%\titles\*.bmp", "%CD%\titles\*.gif", "%CD%\titles\*.ico", "%CD%\titles\*.jpg", "%CD%\titles\*.jpeg", "%CD%\titles\*.tif" 2>Nul
Echo+
Goto :EOF

:Resizer_title_ico
REM Convertir titles a iconos 32x32
%COLOUS% writesec "[7] Convirtiendo los titles a iconos de 32x32 px ..." 2>Nul || Echo: Convirtiendo los titles a iconos de 32x32 px ...
%IRFANVIEW% "%CD%\titles\* /resize=(32,32) /convert=..\icons\*.ico" 2>NUL || IF NOT exist "%IRFANVIEW%" (Echo: Para usar esta opcion necesita instalar Irfanview... | MORE)
Echo+
Goto :EOF

:Delete
Call :Logo
%COLOUS% writesec "[7]     Elimina una rom escribiendo          ([10]M[7]) Ejecutar M.A.M.E." 2>Nul && Echo+        || Echo:     Busca una rom en tu colecion...      (M) Ejecutar M.A.M.E. | MORE
%COLOUS% writesec "[7]     su nombre...                         ([10]V[7]) Volver..." 2>Nul && Echo+                || Echo:     Ejemplo: kof                         (V) Volver...         | MORE
%COLOUS% writesec "[7]     Ejemplo: [10]kof2000[7]                     ([10]S[7]) Salir..." 2>Nul && Echo+ && Echo+ || Echo:                                          (S) Salir...          | MORE & Echo+
%COLOUS% writesec "[7] Nombre de la rom?" 2>Nul && Echo+                                                            || Echo:  ¨Nombre de la rom? | MORE
%COLOUS% Cursoron 2>Nul
Set /P ROM=^>^>
IF NOT defined ROM (Goto :Delete)
IF /I "%ROM%" EQU "M" (Start /B %MAME% && Exit)
IF /I "%ROM%" EQU "V" (Goto :Manager)
IF /I "%ROM%" EQU "S" (Exit /B 0)
Cls
Echo+
Set Rom=%ROM:.zip=%
IF NOT exist ".\Roms\%Rom%.zip" (
%COLOUS% writesec "[7] Rom no encontrada..." 2>Nul && Echo+ || Echo: Rom no encontrada... | MORE
%COLOUS% writesec "[7] Mostrando resultados parecidos:" 2>Nul && Echo+ || Echo: Mostrando resultados parecidos: | MORE
%COLOUS% Cursoron 2>Nul
Dir /B /A ".\Roms\*%rom%*" | MORE
Pause
) Else (
Del /Q ".\Roms\%Rom%.zip"
%COLOUS% writesec "[7] Rom [10]%ROM%.zip [7]eliminada ..." 2>Nul && Echo+ || Echo: Rom %ROM%.zip eliminada ... | MORE
%COLOUS% Cursoron 2>Nul
Pause
)
Goto :Delete


Salu2.:
#11194
Cita de: rouchrace en  8 Abril 2012, 21:24 PM
tengo un problema no me va el link se puede verificar?

Gracias por avisar, Ya está resubido: http://www.mediafire.com/?c7a28vdun3uee0v

Espero que dure bastante el link

Salu2!
#11195
Cita de: ELVJop en  9 Abril 2012, 00:12 AM
Si alguien tiene la version 1.1 ¿La podria subir? Gracias Urge bastante....

Borraron mi cuenta de Mediafire xD

Resubido aqui (La última version que hice): http://www.mediafire.com/?leglcb2oo9e61wj

Salu2


Cita de: flony en  9 Abril 2012, 05:25 AM
he visto que en otro foro publicaste lo mismo y mi pregunta es.
usa Nircmd ?
si es así no seria muy portable...ponerlo como tipo cabecera en C++ no seria mas practico algo así como que se fije si Nircmd esta en system32 si no lo esta lo cargue allí

El único comando que usa del nircmd es este, Para centrar la ventana:
Nircmd win center ititle "Ice Crack" >nul 2>&1
El comando no da error ni nada parecido si el usuario no tiene Nircmd.

Salu2.
#11196
Han borrado todos los archivos de mi cuenta de Mediafire por Violaciones de los terminos de uso...

Pues nada, A volver a subirlo todo...

Bueno, Al menos pueden conocer el nombre de buenas utilidades para la CMD aunque no puedan descargar la mayoría en este post.

PD: Si alguien me quiere aconsejar por MP un server de calidad sin recaptcha y donde duren mucho tiempo los archivos se lo agradeceré.

Salu2.

#11197
Scripting / Re: Contador (cuenta atrás)
8 Abril 2012, 18:51 PM
No hombre, Si que lo revisé, Se cierra porque lo abres manualmente el Bat. Está pensado para llamar al Bat desde otro Bat o usandolo como expliqué.
Fijate en los códigos de salida del exit.



Esta parte de tu code se puede simplificar un poco más:
Código (DOS) [Seleccionar]

:End
Echo Fin de la cuenta atras.
echo.
echo Desea volver a iniciar el contador?
echo.
echo Teclee el numero correspondiente y pulse Enter
echo.
echo 1. Si
echo 2. No
set /P pregunta=
if %pregunta%==1 goto :menu2
if %pregunta%==2 goto :salir
IF !Errorlevel! EQU 1 (Goto :ERROR2)

:Error2
cls
echo Desea volver a iniciar el contador?
echo.
echo Teclee el numero correspondiente y pulse Enter
echo.
echo 1. Si
echo 2. No
set /P pregunta=
if %pregunta%==1 goto :menu2
if %pregunta%==2 goto :salir
IF !Errorlevel! EQU 1 (Goto :ERROR2)



Código (dos) [Seleccionar]

Choice /M "Desea volver a iniciar el contador?"
If %errorlevel% EQU 1 (goto :menu2) ELSE (goto :salir)


Salu2!
#11198
Cita de: Meine programmen en  8 Abril 2012, 16:53 PM
no se como hacer que la clave se adapte al mensaje. Por ejemplo, si el mensaje es "Hola amigo" y la clave "Ghj", la clave se tendria que adaptar al mensaje asi:
HOLA AMIGO
GHJG HJGHJ
Y lo mismo si el mensaje fuera mas corto que la clave.

No se si lo he entendido muy bien...

¿Lo que quieres hacer es repetir la clave hasta que tenga el mismo número de caracteres que el mensaje?

Y luego, lo mismo pero al revés? ¿Si la clave tiene mayor longitud que el mensaje, repetir el mensaje hasta adaptarlo a la longitud de la clave?

Pues entonces quizás esto te sirva para adaptarlo a tu idea:





@Echo OFF
Setlocal enabledelayedexpansion

Set "Mensaje=HOLA AMIGO"
Set "Clave=GHJ"
Call :Mensaje_Length
Call :Clave_Length

If %Mensaje_len% LSS %Clave_len% (Goto :Bucle1) else (Goto :Bucle2)

:Bucle1
IF %Mensaje_len% LSS %Clave_len% (
Set "Mensaje=%Mensaje%%Mensaje%"
Call :Mensaje_Length
Goto :Bucle1
) Else (
Set Mensaje=!Mensaje:~0,%Clave_len%!
)
Goto :Fin

:Bucle2
IF %Clave_len% LEQ %Mensaje_len% (
Set "Clave=%Clave%%Clave%"
Call :Clave_Length
Goto :Bucle2
) Else (
Set Clave=!Clave:~0,%Mensaje_len%!
)
Goto :Fin

:Clave_Length
ECHO %clave%>temp& FOR %%? IN (temp) DO (SET /A Clave_len=%%~z? - 2)
Goto :EOF

:Mensaje_Length
ECHO %Mensaje%>temp& FOR %%? IN (temp) DO (SET /A Mensaje_len=%%~z? - 2)
Goto :EOF

:Fin
Echo Test  | MORE
Echo Mensaje: %Mensaje%
Echo Clave  : %Clave%
pause >NUL



EDITO:  Si necesitas añadir el caracter del espacio, Puedes ayudarte de un contador para comprobar en que posición de la línea está el el espacio: (If "!Mensaje:~%Cont%,1!" EQU " "... )

No quise alargar más el código porque no se si es lo que quieres.
Espero que te sirva.

Salu2.
#11199
Scripting / Re: Batch virus para quien odias
8 Abril 2012, 17:55 PM
Cita de: ELVJop en  8 Abril 2012, 17:37 PM
El comando del no manda 0 o 1? Eso no lo sabia.

No todos los comandos actuan igual, Por ejemplo el comando Tasklist támpoco manda código de error si no encuentra un proceso.

Y al menos en Windows 7 el comando DEL no manda código de error por "Archivo no encontrado" o "Archivo en uso".
En WinXP no lo sé, Algunos comandos cambian en pequeños aspectos xD.

Salu2.
#11200
Hola.

- La variable VAL no se imprime porque no estás usando la sintaxis correcta para setear.
Código (dos) [Seleccionar]
Set VAL=5
(Sin espacios)

PD: Además necesitás expandir la variable en ese  FOR.


- La linea se la "salta" porque no estás escapando los caracteres especiales...

Código (dos) [Seleccionar]
echo if ^%%next^%%==^"True^" set click=^%%^%%a^%%^%%A ^& goto sendclick >> code.txt

De todas formas no te va a funcionar si no modificas un poco el code.
Está en una zona complicada (dentro de un FOR), Así que en vez de imprimir "%%a" imprimirá el contenido de la variable (A, B, C...) en el archivo de texto.
O con un call para salir del FOR y escribir esa linea.

Código (dos) [Seleccionar]

For ... Do (
...
Call :Print
...
)

:Print
echo if ^%%next^%%==^"True^" set click=^%%^%%a^%%^%%A ^& goto sendclick >> code.txt
Goto :EOF



En resumen:

Código (dos) [Seleccionar]
@echo off
Setlocal enabledelayedexpansion
Set VAL=5

for %%a in (A B C D E F G H I J K L M N O) do (
for /L %%A in (1,1,15) do (
echo :Host_play_cmp_%%a%%A >> code.txt
echo set VERTICAL = !val! >> code.txt
echo set START = 10 >> code.txt
echo set STOP = 14 >> code.txt
echo set RETURN = Host_play_click%%a%%A >> code.txt
echo. >> code.txt
echo :Host_play_click%%a%%A_next >> code.txt
Call :Print
echo goto Host_play >> code.txt
echo. >> code.txt
set /a val+=1
)
)
Pause
Exit

:Print
Echo IF ^%%next^%%==^"True^" set click=^%%^%%a^%%^%%A ^& goto sendclick >> code.txt
Goto :EOF





Además, una cosa aparte por si no lo sabes, Asegúrate de que el contenido de la variable %Next% séa True o "True", Las comillas también cuentan.
Código (dos) [Seleccionar]
@Echo off
Set var=True
If %Var%==True (Echo sin comillas)
If %Var%=="True" (Echo con comillas)
pause



Salu2.