Mensajes

venga vaaaa... voy a ser humilde y no voy a votar mi propia app 

Por cierto tu que tipo de anime eres de ver? Eres aficionado o solo lo ves cuando te interesa? Y que series has visto? xD

Pues principálmente cualquier cosa que no acabe en "MON", como pokemon, digimon, doreamon, y su p**a madre mon.

Solo veo Anime cuando me entero de que ha salido doblado algún Anime y veo el primer capítulo a ver si me gusta o no... pero no estoy nada enterado de cuando salen nuevos dvd's o series Anime, por eso en los foros de Anime es fácil porque los rippers suben novedades en las primeras páginas del foro...

Este es el Anime que me gusta,
las series y ovas que tengo:

Código [Seleccionar] Expandir

3x3 Ojos
Animatrix
Berserk
Burst Angel
Catgirl Nuku Nuku
Chobits
Coyote Ragtime Show
D.N.A. 2
Darkstalkers
Death Note
Devil Hunter Yohko
Devil May Cry
Dominion Tank Police
Dragon Ball GT
Dragon Ball Z
Dragon Pink
Dragon Quest
Dragon Rider
El puño de la estrella del norte
Elfen Lied
Ergo Proxy
Excel Saga
Fatal Fury
Fate-Stay night
FLCL
Fullmetal Alchemist
Futurama
Gantz
Golden Boy
Grenadier
GunGrave
Hack Sign
Halo Legends
Hellsing
HighSchool of the dead
Hyper Police
Iczer-3
Iria
Jester
Karas
La ley de Ueki
Las Crónicas de Lodoss
Las Crónicas de Lodoss - Crónicas del Caballero Heroico
Los Caballeros Del Zodiaco
Los caballeros del Zodiaco - Lost canvas
Los Simpson
Louie, el guerrero de las runas
MAR Heaven
Master Of Mosquiton
Moeyo Ken
Neo Ranga
Orphen
Orphen Revenge
Outlaw Star
Ragnarok
Reideen
Rin - Hijas del Mnemosyne
Slayers
Solty Rei
Street Fighter II
Tenjou Tenge
Tokyo Majin
Urotsukidoji
Videogirl Ai
Virus, El cazador
Witchblade
Words Worth
Zetman

Y las películas:

Código [Seleccionar] Expandir

Akira
Alita, Angel de combate
Appleseed - The beginning
Beowulf
Berserk - La Edad de Oro I
Berserk - La Edad de Oro II
Blood - El Ultimo Vampiro
Dante's Inferno
Dead Leaves
Dead Space - Perdición
Devilman
Dragon Ball - (01) - La leyenda de Shenron
Dragon Ball - (02) - La princesa durmiente del castillo del demonio
Dragon Ball - (03) - La gran aventura mística
Dragon Ball - (04) - El camino hacia el más fuerte
Dragon Ball GT - 100 años despues
Dragon Ball Z - (01) - Garlick Junior inmortal
Dragon Ball Z - (02) - El más fuerte del mundo
Dragon Ball Z - (03) - La Superbatalla
Dragon Ball Z - (04) - El Super Guerrero Son Goku
Dragon Ball Z - (05) - Los Mejores Rivales
Dragon Ball Z - (06) - Guerreros De Fuerza Ilimitada
Dragon Ball Z - (07) - Los Tres Grandes Super Saiyanos
Dragon Ball Z - (08) - Estalla El Duelo
Dragon Ball Z - (09) - Los Guerreros De Plata
Dragon Ball Z - (10) - Fusión
Dragon Ball Z - (11) - El ataque del dragón
Dragon Ball Z - (12) - El Regreso De Broly
Dragon Ball Z - (13) - El Combate Definitivo
Dragon Ball Z - (14) - El último combate
Dragon Ball Z - (15) - Un futuro diferente
El Último profesor
Fatal Fury
Final Fantasy - La Fuerza Interior
Final Fantasy VII - Advent Children
Final Fantasy VII - Last Order
Fullmetal Alchemist - El Conquistador De Shambala
Futurama (01) - El Gran Golpe De Bender
Futurama (02) - La Bestia Con Un Billón De Espaldas
Futurama (03) - El juego de Bender
Futurama (04) - Hacia la verde inmensidad
La Crisis Carnivora
La princesa Mononoke
Landlock
Legend Of Lemnear
Los Caballeros Del Zodiaco (01) - La leyenda de la manzana de oro
Los Caballeros Del Zodiaco (02) - La batalla de los dioses
Los Caballeros Del Zodiaco (03) - Los santos escarlatas
Los Caballeros Del Zodiaco (04) - El guerrero de Armageddon
Maris, La Chica Maravillosa
Memories - (02) - Bomba Fétida
Ninja Scroll
Resident Evil - 01 - Degeneration
Resident Evil - 02 - La maldición
Shadow Skill
Shin Chan - (01) - En busca de las bolas perdidas
Shin Chan - (02) - La invasión
Shin Chan - (03) - Operación rescate
Shin Chan - (04) - En la Isla del Tesoro
Shin Chan - (05) - El pequeño samurái
Shin Chan - (06) - Aventuras en Henderland
Shin Chan - (07) - Perdidos en la jungla
Shin Chan - (08) - Los Adultos Contraatacan
Shin Chan - (09) - La Ambición de Karakaka
Shin Chan - (10) - El chuletón imposible
Shin Chan - (11) - Le llamaban Shin Chan
Shin Chan - (12) - Spa Wars, La guerra de los balnearios
Shin Chan - (13) - Tres minutos para salvar al mundo
Starship Troopers - Invasion
Street Fighter Alpha
Street Fighter Alpha Generations
Street Fighter II
Tekken
Vampire Hunter D
Vampire Hunter D, Bloodlust
Vexille

Una Class que hice para manejar las API's del Caret.

[youtube=640,360]http://www.youtube.com/watch?v=7ZKRnT7qll4&feature=youtu.be[/youtube]

Código (vbnet) [Seleccionar] Expandir

#Region " Caret "

' [ Caret Class ]
'
' // By Elektro H@cker
'
' Examples:
' Dim bmp As New Bitmap("C:\Image.jpg")
' Caret.Create(TextBox1, 7)
' Caret.Create(TextBox1, bmp, 20)
' Caret.BlinkTime(500)
' Caret.Hide(TextBox1)
' Caret.Show(TextBox1)
' Caret.Destroy()

Public Class Caret

#Region " API's "

   Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As IntPtr, ByVal hBitmap As IntPtr, ByVal nWidth As Int64, ByVal nHeight As Int64) As Int64
   Private Declare Function HideCaret Lib "user32" (ByVal hwnd As IntPtr) As Int64
   Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As IntPtr) As Int64
   Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Int64) As Int64
   Private Declare Function SetCaretPos Lib "user32" (ByVal x As Int64, ByVal y As Int64) As Int64
   Private Declare Function DestroyCaret Lib "user32" () As Int64

#End Region

#Region " Funcs & Procs "

   ''' <summary>
   ''' Create a new caret.
   ''' </summary>
   ''' <param name="ctrl">The name of the control.</param>
   ''' <param name="Width">The Width of the caret cursor.</param>
   ''' <param name="Height">The name of the caret cursor.</param>
   Public Shared Sub Create(ByVal ctrl As Control, _
                            ByVal Width As Int32, _
                            Optional ByVal Height As Int32 = 0)

       If Height = 0 Then
           CreateCaret(ctrl.Handle, IntPtr.Zero, Width, (ctrl.Font.Size * 2))
       Else
           CreateCaret(ctrl.Handle, IntPtr.Zero, Width, Height)
       End If

       Show(ctrl)

   End Sub

   ''' <summary>
   ''' Create a new caret with Bitmap image.
   ''' </summary>
   ''' <param name="ctrl">The name of the control.</param>
   ''' <param name="bmp">The Bitmap image to use.</param>
   ''' <param name="Width">The Width of the caret cursor.</param>
   ''' <param name="Height">The name of the caret cursor.</param>
   Public Shared Sub Create(ByVal ctrl As Control, _
                            ByVal bmp As Bitmap, _
                            ByVal Width As Int32, _
                            Optional ByVal Height As Int32 = 0)


       If Height = 0 Then
           bmp = Resize_Bitmap(bmp, Width, (ctrl.Font.Size * 2))
           CreateCaret(ctrl.Handle, bmp.GetHbitmap, Width, (ctrl.Font.Size * 2))
       Else
           bmp = Resize_Bitmap(bmp, Width, Height)
           CreateCaret(ctrl.Handle, bmp.GetHbitmap, Width, Height)
       End If

       Show(ctrl)

   End Sub

   ''' <summary>
   ''' Hide the caret.
   ''' </summary>
   ''' <param name="ctrl">The name of the control.</param>
   Public Shared Sub Hide(ByVal ctrl As Control)
       HideCaret(ctrl.Handle)
   End Sub

   ''' <summary>
   ''' Show the caret.
   ''' </summary>
   ''' <param name="ctrl">The name of the control.</param>
   Public Shared Sub Show(ByVal ctrl As Control)
       ShowCaret(ctrl.Handle)
   End Sub

   ''' <summary>
   ''' Set the blinking time of the caret.
   ''' </summary>
   ''' <param name="ms">Blink interval in Milliseconds.</param>
   Public Shared Sub BlinkTime(ByVal ms As Int64)
       SetCaretBlinkTime(ms)
   End Sub

   ''' <summary>
   ''' Set the position of the caret.
   ''' </summary>
   ''' <param name="x">X coordinate.</param>
   ''' <param name="y">Y coordinate.</param>
   Public Shared Sub Position(ByVal X As Int32, ByVal Y As Int32)
       SetCaretPos(X, Y)
   End Sub

   ''' <summary>
   ''' Destroy the caret.
   ''' </summary>
   Public Shared Sub Destroy()
       DestroyCaret()
   End Sub

   ' Resizes a Bitmap Image
   Private Shared Function Resize_Bitmap(ByVal bmp As Bitmap, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
       Dim Bitmap_Source As New Bitmap(bmp)
       Dim Bitmap_Dest As New Bitmap(CInt(Width), CInt(Height))
       Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
       Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
       Return Bitmap_Dest
   End Function

#End Region

End Class

#End Region

¿Una nueva Jenag en el foro?, pues hola ...¿y besitos? xD

[EDITO:]

Quizas te refieras a evoshare anime

Si, esa era!! Muchas gracias por recordármelo.

Pues acabo de volver a registrarme sin problemas, los registros no están cerrados, pero al registrarse te redirige a una página con un tema muy feo:

Estimados amig@s,

EvoShare como foro de Descarga Directa, llega a su fin.

Ha sido un largo periplo de casi siete años que acaba el próximo 31 de julio. A partir de esta fecha desaparece EvoShare.net

bla bla bla...

EDITO: Y encima parece que ya no hay casi ripeos en ese foro.

Vaya una desgracia para la comunidad Anime

Sincéramente a mi el resto de páginas me dan un poco de asco, todo lo que encuentro es subtitulado y en japones, me gustaría encontrar un foro como evoshare donde hay muchos rips de series que estén actuálmente doblandolas al castellano (De España), y encima a la mejor calidad en MKV... Ojisan, tu que controlas de esto, a ver si me dices alguna.

Igual Electro... gracias tu codigo va todo perfecto justo lo que necesitaba

De nada, mírate de nuevo el código le puse el regex.

Saludos

[EDITO:]

Te pasaste un poco al agrupar tantas veces las condiciones ((((()))), eso es lo que falla, están mal agrupadas, de todas formas te lo he mejorado un poco:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Button1.Click

       ' Creamos una expresión regular con el patrón de direcciones válidas.
       Dim SoundCloud_RegEx As New System.Text.RegularExpressions.Regex("(http://|https://)(www\.)?soundcloud.com/.+?")
       ' Patrón de búsqueda:
       ' http://soundcloud.com/Texto
       ' https://soundcloud.com/Texto
       ' http://www.soundcloud.com/Texto
       ' https://www.soundcloud.com/Texto

       ' Aquí almacenaremos la url del TextBox.
       Dim URL As Uri

       Try
           ' Seteamos la Url del TextBox.
           URL = New Uri(TextBox1.Text.ToLower)
       Catch 'ex As Exception
           MessageBox.Show("El formato de la URL no es correcto, intente de nuevo.", _
                           "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End Try

       ' Comprobamos la longitud de la url del TextBox.
       Select Case URL.ToString.Length

           Case 0 ' La longitud es 0.

               MessageBox.Show("El campo de la URL está vacío, porfavor introduzca una URL.", _
                               "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub

           Case Else ' La longitud es diferente a 0.

               ' Comprobamos si el RegEx encuentra coincidencias con la URL del TextBox.
               If Not SoundCloud_RegEx.IsMatch(URL.ToString) Then
                   MessageBox.Show("La URL introducida no corresponde a Soundcloud, intente de nuevo.", _
                                   "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
               End If

       End Select

   End Sub

EDITO: Aparte, una cosa sin importancia, pero que en el futuro puede darte error y no darte cuenta de la razón... los square brackets sobran [] aquí:

Código [Seleccionar] Expandir

MessageBoxIcon.[Error]
Su uso es muy especial.

EDITO 2: Si usases un RegEx quedaría más simplificado el código, pero bueno, tal como te lo dejé te sirve.

EDITO 3: Dejo aquí posteada la versión antigua por si el regex de antes no funcionase con todas las urls:

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button1.Click

        ' Seteamos en un Array las urls que consideramos válidas.
        Dim Valid_URLs() As String = "http://www.soundcloud.com/ https://www.soundcloud.com/ http://soundcloud.com/ https://soundcloud.com/".ToLower.Split(ChrW(32)).ToArray

        ' Aquí almacenaremos la url del TextBox.
        Dim URL As Uri

        Try
            ' Seteamos la Url del TextBox.
            URL = New Uri(TextBox1.Text.ToLower)
        Catch 'ex As Exception
            MessageBox.Show("El formato de la URL no es correcto, intente de nuevo.", _
                            "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        ' Comprobamos la longitud de la url del TextBox.
        Select Case URL.ToString.Length

            Case 0 ' La longitud es 0.

                MessageBox.Show("El campo de la URL está vacío, porfavor introduzca una URL.", _
                                "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub

            Case Else ' La longitud es diferente a 0.

                For Each Valid_URL As String In Valid_URLs
                    If URL.ToString.StartsWith(Valid_URL) Then
                        ' Se encontró una URL válida, así que salimos del ciclo y de la subrutina.
                        Exit Sub
                    End If
                Next

                ' Si hemos llegado hasta aquí significa que no se encontró ninguna URL válida.
                MessageBox.Show("La URL introducida no corresponde a Soundcloud, intente de nuevo.", _
                                "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Select

    End Sub

Saludos

[RichTextBox]

Un RichTextBox optimizado para usarse como alternativa de Label , es un Label con posibilidad de añadir texto en distintos colores y en distintas fuentes.

Código (vbnet) [Seleccionar] Expandir

'  /*               *\
' |#* RichTextLabel *#|
'  \*               */
'
' // By Elektro H@cker
'
'   Description:
'   ............
' · A RichTextbox used as a Label to set text using various colors.
'
'   Methods:
'   ........
' · AppendText (Overload)

' Examples:
' RichTextLabel1.AppendText("My ", Color.White, , New Font("Arial", 12, FontStyle.Bold))
' RichTextLabel1.AppendText("RichText-", Color.White, , New Font("Arial", 12, FontStyle.Bold))
' RichTextLabel1.AppendText("Label", Color.YellowGreen, Color.Black, New Font("Lucida console", 16, FontStyle.Italic))

Imports System.ComponentModel

Public Class RichTextLabel : Inherits RichTextBox

   Public Sub New()
       MyBase.Enabled = False
       MyBase.Size = New Point(200, 20)
   End Sub

#Region " Overrided Properties "

   ''' <summary>
   ''' Turn the control backcolor to transparent.
   ''' </summary>
   Protected Overrides ReadOnly Property CreateParams() As CreateParams
       Get
           Dim cp As CreateParams = MyBase.CreateParams
           cp.ExStyle = (cp.ExStyle Or 32)
           Return cp
       End Get
   End Property

#End Region

#Region " Shadowed Properties "

   ' AcceptsTab
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property AcceptsTab() As Boolean
       Get
           Return MyBase.AcceptsTab
       End Get
       Set(value As Boolean)
           MyBase.AcceptsTab = False
       End Set
   End Property

   ' AutoWordSelection
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property AutoWordSelection() As Boolean
       Get
           Return MyBase.AutoWordSelection
       End Get
       Set(value As Boolean)
           MyBase.AutoWordSelection = False
       End Set
   End Property

   ' BackColor
   ' Not hidden, but little hardcoded 'cause the createparams transparency.
   <Browsable(True), EditorBrowsable(EditorBrowsableState.Always)>
   Public Shadows Property BackColor() As Color
       Get
           Return MyBase.BackColor
       End Get
       Set(value As Color)
           MyBase.SelectionStart = 0
           MyBase.SelectionLength = MyBase.TextLength
           MyBase.SelectionBackColor = value
           MyBase.BackColor = value
       End Set
   End Property

   ' BorderStyle
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property BorderStyle() As BorderStyle
       Get
           Return MyBase.BorderStyle
       End Get
       Set(value As BorderStyle)
           MyBase.BorderStyle = BorderStyle.None
       End Set
   End Property

   ' Cursor
   ' Hidden from the designer and editor,
   ' because while the control is disabled the cursor always be the default even if changed.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property Cursor() As Cursor
       Get
           Return MyBase.Cursor
       End Get
       Set(value As Cursor)
           MyBase.Cursor = Cursors.Default
       End Set
   End Property

   ' Enabled
   ' Hidden from the but not from the editor,
   ' because to prevent exceptions when doing loops over a control collection to disable/enable controls.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Always)>
   Public Shadows Property Enabled() As Boolean
       Get
           Return MyBase.Enabled
       End Get
       Set(value As Boolean)
           MyBase.Enabled = False
       End Set
   End Property

   ' HideSelection
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property HideSelection() As Boolean
       Get
           Return MyBase.HideSelection
       End Get
       Set(value As Boolean)
           MyBase.HideSelection = True
       End Set
   End Property

   ' MaxLength
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property MaxLength() As Integer
       Get
           Return MyBase.MaxLength
       End Get
       Set(value As Integer)
           MyBase.MaxLength = 2147483646
       End Set
   End Property

   ' ReadOnly
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property [ReadOnly]() As Boolean
       Get
           Return MyBase.ReadOnly
       End Get
       Set(value As Boolean)
           MyBase.ReadOnly = True
       End Set
   End Property

   ' ScrollBars
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property ScrollBars() As RichTextBoxScrollBars
       Get
           Return MyBase.ScrollBars
       End Get
       Set(value As RichTextBoxScrollBars)
           MyBase.ScrollBars = RichTextBoxScrollBars.None
       End Set
   End Property

   ' ShowSelectionMargin
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property ShowSelectionMargin() As Boolean
       Get
           Return MyBase.ShowSelectionMargin
       End Get
       Set(value As Boolean)
           MyBase.ShowSelectionMargin = False
       End Set
   End Property

   ' TabStop
   ' Just hidden from the designer and editor.
   <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
   Public Shadows Property TabStop() As Boolean
       Get
           Return MyBase.TabStop
       End Get
       Set(value As Boolean)
           MyBase.TabStop = False
       End Set
   End Property

#End Region

#Region " Funcs & Procs "

   ''' <summary>
   ''' Append text to the current text.
   ''' </summary>
   ''' <param name="text">The text to append</param>
   ''' <param name="forecolor">The font color</param>
   ''' <param name="backcolor">The Background color</param>
   ''' <param name="font">The font of the appended text</param>
   Public Overloads Sub AppendText(ByVal text As String, _
                         ByVal forecolor As Color, _
                         Optional ByVal backcolor As Color = Nothing, _
                         Optional ByVal font As Font = Nothing)

       Dim index As Int32 = MyBase.TextLength
       MyBase.AppendText(text)
       MyBase.SelectionStart = index
       MyBase.SelectionLength = MyBase.TextLength - index
       MyBase.SelectionColor = forecolor

       If Not backcolor = Nothing _
       Then MyBase.SelectionBackColor = backcolor _
       Else MyBase.SelectionBackColor = DefaultBackColor

       If font IsNot Nothing Then MyBase.SelectionFont = font

       ' Reset selection
       MyBase.SelectionStart = MyBase.TextLength
       MyBase.SelectionLength = 0

   End Sub

#End Region

End Class

[anime evolution]

Estoy tratando de localizar una página cuyo nombre no recuerdo exáctamente, era anime evolution, evolanime evoanime animeevo, algo parecido, es un foro donde hay muchísimos rips de Anime doblado al castellano, seguro que quien controle de Anime sabrá a que página me refiero... digánmela ! xD

Bueno, y si saben más tipos de páginas/foros de este estilo pues porfavor digánmelas, como mcanime.net o animehd.org, pero tener en cuenta que no me interesan ni los animes subtitulados ni los animes doblados al latino.

Un saludo!

@SγиtαxEяяoя

Creo que lo que el quiere es modificar las Classes de un exe compilado, pero en tiempo real, al vuelo.

...Pero para lo que tu le propones es mejor utilizar .NET Reflector, siempre que el exe séa un ensamblado .NET, claro.

Saludos.