Mensajes

[Europe]

@Daemon Freedom

Veo que eres de la vieja escuela, Viendo el tipo de música que te gusta y las discografias que tienes, Me extraña no ver por ahi a "Europe" y "Heroes del silencio" xD, Seguro que los conoces, Pero sinó, Búscalos, Creo que te gustarán, Y Patricia Tapia esto puede que también:

PD: También te aconsejo "Sister Sin" y "Lita Ford" (Esta última siendo más de la época de tus discografias...)

[youtube=425,350]http://www.youtube.com/watch?v=UQ6D74xoYj8&hd=1[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=XnhPdsZWmHc&hd=1[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=BQQpHYc4xnQ&hd=1[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=3xKFa6nCCwk&hd=1[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=y3rfFX0ilTg&hd=1[/youtube] [youtube=425,350]http://www.youtube.com/watch?v=KB3UiwAdfec&hd=1[/youtube] [youtube=425,350]http://www.youtube.com/watch?v=bY-9iQxTuk8&hd=1[/youtube]

Saludos

una buena mamada puede ser considerada como canivalismo?

Pero una MALA mamada SÍ, ¿No?.  

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

Saludos.



   

Código (dos) [Seleccionar] Expandir

@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

restringir algo así sí que es antiético y no moral.

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.

[satánico]

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!




[youtube=425,350]http://www.youtube.com/watch?v=2Thg0JQxtqk&hd=1[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=eTlfGImDDtI&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=gxQzZMRcC0U&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=opA_0z-K92g&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=2LR8zyBTIE4&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=Nkbw77A9dl8&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=xOUtQuS9YBg&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=CgRv0PnbKDg&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=mYxXvTpjwDw&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=FziMFrvyHU0&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=ZkVzUuRI2cQ&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=2XJBxqI3Bss&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=Hzjht0MIyBY&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=dc6lhFWhofA&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=Z_gh3Svsiis&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=7N4ARiSswQo&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=a2JHp-4xOvE&feature=share[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=wX1wPLjPhlc&feature=share[/youtube]  [youtube=425,350]http://www.youtube.com/watch?v=mH_z5vAkf2c&feature=share[/youtube]


Y Esto, Es un temazo.
[youtube=425,350]http://www.youtube.com/watch?v=_UwWYtLWEZg&feature=share[/youtube]

[PUERTO]

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.

Código (dos) [Seleccionar] Expandir

PRINT "Archivo.txt" /D:PUERTO
PUERTO = LPT1, LPT2, COM1, COM2, etc...

O...

Código (dos) [Seleccionar] Expandir

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.

Código (dos) [Seleccionar] Expandir


@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.

[CHCP + Type]

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

Código (dos) [Seleccionar] Expandir

@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

[NOTA]

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:

Código (dos) [Seleccionar] Expandir


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

PD:

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir

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.