Pero una MALA mamada SÍ, ¿No?.  

Lo sé, No es gran cosa, Solo lo hice por aburrimiento!

Saludos.

---

   

@Echo OFF
Title Piedra, Papel, O tijera!  (By Elektro H@cker)
Color 0F
Mode con cols=60 lines=26
 
:Play
CLS
Set WIN=
Echo.
Echo:              Player      [MARCADOR]      COM
Echo:                %POINTS%                          %COMPOINTS%
Echo: __________________________________________________________
Echo:                                                                            | MORE
Echo:       [1] O              [2] #              [3] 8^^^<                      | MORE
Echo:       Piedra             Papel              Tijera    | MORE | MORE | MORE | MORE
 
Choice /C 123 /M "¨Que llevas en la mano? "
 
Set Player=%ERRORLEVEL%
Set COMPlayer=%RANDOM:~0,1%
If %COMPlayer% GTR 3 (Set /A COMPlayer=3)
 
CLS
IF %PLAYER% EQU 1    (Set PlayerHAND=una piedra)
IF %PLAYER% EQU 2    (Set PlayerHAND=un papel)
IF %PLAYER% EQU 3    (Set PlayerHAND=una tijera)
Echo+ & Echo: Sacaste %PlayerHAND%! | MORE
Call :ANI%PLAYER%
 
IF %COMPLAYER% EQU 1 (Set COMHAND=una piedra)
IF %COMPLAYER% EQU 2 (Set COMHAND=un papel)
IF %COMPLAYER% EQU 3 (Set COMHAND=una tijera)
Echo: La consola sac¢ %COMHAND%! | MORE
Call :ANI%COMPLAYER%
 
IF DEFINED WIN (
	IF "%WIN%" EQU "SI" (Echo: GANASTE!  & Set /A Points+=1)
	IF "%WIN%" EQU "NO" (Echo: PERDISTE! & Set /A COMPOINTS+=1)
) ELSE (Echo: EMPATE!)
 
Timeout /T 3 2>NUL || (Pause)
Goto :Play
 
 
:ANI1
Echo:         ________________
Echo:      .='==============;:\
Echo:      ^|                ^|:^|
Echo:      ^|                ^|:^|
Echo:      ^|                ^|;^|
Echo:      ^|                ^|;/
Echo:      '================'` | MORE
If %PLAYER% EQU 2 (Set Win=SI)
If %PLAYER% EQU 3 (Set Win=NO)
Goto :EOF
 
:ANI2
Echo:            _________ 
Echo:          /-        -/
Echo:         /~~======~~/
Echo:        /          /
Echo:       (          (
Echo:        `==========` | MORE
If %PLAYER% EQU 1 (Set Win=NO)
If %PLAYER% EQU 3 (Set Win=SI)
Goto :EOF
 
:ANI3
Echo:        ___               __
Echo:       / _ \          _.-'_.'
Echo:       \____`-.____.-'_.-'
Echo:            `-. _.\.-'
Echo:        ____.-'`__/-._
Echo:       / _  .-'`  '-._`-._
Echo:       \___/          '-._'-.
Echo:                          `-` | MORE
If %PLAYER% EQU 1 (Set Win=SI)
If %PLAYER% EQU 2 (Set Win=NO)
Goto :EOF

No suelo comentar en temas así, Pero es que no puedo creer lo que ven mis ojos! No se que concepto de Ética tienen algunas personas... (Con respeto).

¿Te parece ético darle los instrumentos a una mujer para que pueda negarle la vida a un ser humano (Abortar)?, ¿En serio?.
El aborto si que es antiético, Yo ni lo respeto ni lo dejo de respetar, Solo digo lo que es.
¿Que un niño con deformaciones o enferno no tiene derecho a vivir para intentar ser feliz, Y luego, Si el quiere, Elegir si prefiere morir o lo que el quiera?,
¿Es más ético que todos esos detalles dependan únicamente de la sociedad y de una tercera persona: El egoismo e inmoralidad de una embarazada?

No si al final... Como no pongan una ley anti-aborto en todo el mundo, Eso de abortar se va a parecer mucho a aplastar una mosca, Y va a parecer lo más normal del mundo (Que cada día lo parece más).

Bueno... Saludos.

Hola, Empiezo este apartado (Con esperanzas de éxito xD) para que entre todos hablemos de lo que más nos gusta, El Rock!, Y compartamos lo que nos apetezca sobre este tema para pasar el rato o simplemente divertirnos...

Se acepta todo estilo de música Rock y derivados, Desde lo más satánico hasta lo más sensible!.

PD: No apto para fans de Justin Bieber  

---

Bueno, Yo voy a empezar subiendo unos videoclips de unas cantantes que están pa comerselas y repetir de postre , Subiré estilos variados, Y si esto va bien seguiré compartiendo más videos aquí a menudo.

Por cierto, Mi grupo favorito es Lacuna Coil, ¿Y EL TUYO?  

Saludos!

---

 



 

 

 

 

 

 

 

 


Y Esto, Es un temazo.

El mecanismo de impresión no importa, Lo que importa es el tipo de conexión (El puerto), Pues hay impresoras laser que se pueden conectar tanto en el puerto LPT como en USB.

PRINT "Archivo.txt" /D:PUERTO

PUERTO = LPT1, LPT2, COM1, COM2, etc...

O...

Notepad.exe /P "Archivo.txt"

Saludos.

Bienvenido.

Eres nuevo pero no cuesta nada ver las secciones del foro, Tienes un subforo para dudas de Batch.

@Echo OFF
Unrar.exe lb "Archivo.rar" | Find /I /C ".PDF"
Pause

PD: Unrar.exe está en la carpeta de Winrar.

Saludos

La verdad es que compartir un programa sin las OCX necesarias ha sido todo un FAIL por parte del autor

PD: A mi me gusta como quedó visualmente!

Saludos.

Ayer probé de pasar con CHCP + Type un SRT en Unicode a ANSI y no perdiío el charset, Pero con el SRT que has subido no he tenido éxito, Así que mejor descarga esta APP:
http://www.gbordier.com/gbtools/stringconverter.htm

@echo off
CHCP 1250 >NUL
 
For /R %%# in (*.srt) Do (stringconverter.exe "%%#" "%%~n#.ANSI%%~x#" /ANSI)
 
For /R %%# in (*ANSI.srt) Do (
	Echo Procesando archivo "%%~nx#"
	FOR /F "tokens=*" %%X in ('Type "%%#"') do (
		Echo "%%X"| findstr /R ".[^0-9]." >NUL || (Echo+ >> "%TEMP%\%%~nx#.srt")
		set "linea=%%X"
		Call :Replace
		Call Echo %%Linea_final%% >> "%TEMP%\%%~nx#.srt"
	)
	Type "%TEMP%\%%~nx#.srt" | more +1 > "%%~n#.MOD.%%~x#"
	Del /Q "%TEMP%\%%~nx#.srt", "%%~nx#"
)
Exit
 
:Replace
set "linea=%linea:. . .=...%"
set "linea=%linea:¿ =¿%"
set "linea=%linea:¡ =¡%"
set "linea=%linea:Klilyn=Krilin%"
set "linea=%linea:Ginew=Ginyu%"
set "linea=%linea:>=^>%"
set "linea=%linea:)=^)%"
Set "Linea_final=%LINEA%"
Goto:EOF
 
 

PD: No uses setlocal enabledelayedexpansion

Saludos

Sigo en este comentario,

Creo que te toca hacer alguna conversion...

1º - De Unicode a ANSI (Porque de Unicode a UTF-8 no se hacerlo directamente sin aplicaciones, Y sin perder los caracteres especiales) para usar el bat.
2º - De ANSI a lo que quieras:

@Echo off
wscript.exe convert.vbs "archivo"

PD:

objStream.Charset = AQUÍ EL CHARSET

NOTA: No intentes pasar de ANSI a utf-8 con este vbs porque se corrompen todos los caracteres de nuestro idioma :. Pero puedes pasarlo a Unicode,iso-8859-2, o ascii sin perder nada.

Convert.vbs

Option Explicit
 
Dim objFSO, strFileIn, strFileOut
 
strFileIn = WScript.Arguments.Item(0)
 
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
strFileOut = objFSO.GetBaseName( strFileIn ) & "_utf8.txt"
Set objFSO = Nothing
 
UTF8 strFileIn, strFileOut
 
 
Function UTF8( myFileIn, myFileOut )
' UTF8()  Version 1.00
' Written by Rob van der Woude
' http://www.robvanderwoude.com
 
    Dim objStream
 
    ' Valid Charset values for ADODB.Stream
    Const CdoBIG5        = "big5"
    Const CdoEUC_JP      = "euc-jp"
    Const CdoEUC_KR      = "euc-kr"
    Const CdoGB2312      = "gb2312"
    Const CdoISO_2022_JP = "iso-2022-jp"
    Const CdoISO_2022_KR = "iso-2022-kr"
    Const CdoISO_8859_1  = "iso-8859-1"
    Const CdoISO_8859_2  = "iso-8859-2"
    Const CdoISO_8859_3  = "iso-8859-3"
    Const CdoISO_8859_4  = "iso-8859-4"
    Const CdoISO_8859_5  = "iso-8859-5"
    Const CdoISO_8859_6  = "iso-8859-6"
    Const CdoISO_8859_7  = "iso-8859-7"
    Const CdoISO_8859_8  = "iso-8859-8"
    Const CdoISO_8859_9  = "iso-8859-9"
    Const cdoKOI8_R      = "koi8-r"
    Const cdoShift_JIS   = "shift-jis"
    Const CdoUS_ASCII    = "us-ascii"
    Const CdoUTF_7       = "utf-7"
    Const CdoUTF_8       = "utf-8"
 
    ' ADODB.Stream file I/O constants
    Const adTypeBinary          = 1
    Const adTypeText            = 2
    Const adSaveCreateNotExist  = 1
    Const adSaveCreateOverWrite = 2
 
    On Error Resume Next
 
    Set objStream = CreateObject( "ADODB.Stream" )
    objStream.Open
    objStream.Type = adTypeText
    objStream.Position = 0
    objStream.Charset = CdoUTF_8
    objStream.LoadFromFile myFileIn
    objStream.SaveToFile myFileOut, adSaveCreateOverWrite
    objStream.Close
    Set objStream = Nothing
 
    If Err Then
        UTF8 = False
    Else
        UTF8 = True
    End If
 
    On Error Goto 0
End Function

Saludos.

Son las carpetas temporales de los instaladores (Ya sabes, Un instalador tiene que desempaquetar el contenido en cierta carpeta primero) Lo que no se es que programa te ha hecho esa mierd*, Quizás Office como dice el amigo Dato00, O también pueden ser recientes actualizaciones del sistema (WinUpdate), Por ejemplo el ejecutable MSI que se ve en la imagen del instalador "vs10-kb...MSI" Es una actualizacion de Microsoft, Y por las siglas diria que es de ¿Microsoft VisualStudio 2010?, Bueno solo tienes que abrir la imagen del splashscreen.bmp o el ejecutable MSI para ver el nombre del programa que te a creado esa kaka... Y fijo que ha sido Microsoft  .

Los números de esas carpetas se refieren a las AppID o UninstallID (Números de serie, Como un SID) de cada instalador (Para que no séa posible ejecutar 2 instancias al mismo tiempo, O que no puedan existir 2 instalaciones del mismo programa), No hay de que preocuparse.

---

EDITO: Se me olvidaba comentar lo más importante:

Como ya he dicho esas carpetas son las AppID, Y también sirven para que el DESinstalador de dicho programa sepa en que carpeta se encuentra cada instalador, Para poder desinstalarlo, O reparar (Reinstalar) una instalación, Si borras las carpetas, No podrás desinstalar luego el contenido de cada una. Bueno, Esto puede depender...

Lo que quiero decir es... Que si ese programa de Microsoft ha usado (Con toda su jeta) el directorio C:\ y D:\ para guardar esas carpetas, y lo más importante, Si las carpetas no son carpetas temporales , Es decir, Si no las elimina el instalador automáticamente en el próximo reinicio de tu PC, Pues entonces vas a tener que dejarlas así donde están si algún quieres desinstalar ese programa o un compente y sus respectivas actualizaciones y todo lo que te haya instalado en esas carpetas...etc, Porque de lo contrario, Si deseas desinstalar, Te dirá que el instalador.MSI no se encuentra, bla, bla, bla... Te pedirá que lo selecciones manualmente, Pero será imposible porque borraste la carpeta  

Pero bueno, Que por otro lado, Puedes eliminar todas las carpetas, Y cuando quieras desinstalar, Pues usas RevoUninstaller o cualquier programa de ese tipo, Aunque no es tán limpio, Pero es lo que haría yo y cualquiera si nos meten las APPID ahi a molestar hombre, Serán desgraciaos!

PD: Normalmente los temporales que no se deben borrar de los MSI se guardan con el resto de instaladores en APPDATA...

---

EDITO 2: Bueno esto no tiene importancia pero ya que estamos... Creo que las carpetas con 4 números "1040","1042",etc.. de la segunda imagen que has puesto, Contienen los archivos de localización de paises, Es decir, Cada número equivale a un lenguaje distinto, Y los archivos que hay en cada carpeta deberían corresponder a dicho lenguaje, Séa cual séa el programa.

EDITO 3:
Y las carpetas "ar-as", "cz-cz", etc... Obviamente es lo mismo que lo anterior, Localizaciones de paises.
No se porque razón será pero en cada programa lo pueden hacer por ese método (xx-xx), O el método de los 4 números, Sobre eso no se ya que diferencias hay.

---

Saludos