Mensajes

Hola.

Esto es pura curiosidad...

Me estaba preguntando cuanto tardaría en pulir un parser para los tags de un sitio específico, y esa pregunta me ha llevado a otra un poco ridícula quizás:
¿Cuanto tardaría en parsear un html de 100 mb?, y esta pregunta me lleva a la pregunta que reálmente quiero hacer (por curiosidad):

- ¿Existe un tamaño límite especificado en el lenguaje html?

...Es decir, ¿Si un html sobrepasa X tamaño (o número de líneas) es posible que el intérprete del navegador no pueda interpretar el código?

...¿Puede existir por la inmensa Internet un html de 2 Gb por ejemplo?, sé que es un tamaño descomunal, debería contener millones de líneas escritas, pero ahí tengo esa duda xD

Saludos!

Usa paneles.

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


saludos

Creo que eso es bastante ofensivo y discriminatorio...

Tienes razón, a veces se me va la boca sin pensar.
...Rectificado, espero que nadie más se haya molestado.

Saludos

[dryv]

@Seazoux
pásame el proyecto please, que sé que dryv a echo muchas cosas ahí y a lo mejor me sale algún snippet de la class "basdeclaraciones.vb" xD (¿Era de este proyecto, no?)

Saludos de nuevo xD

Antes de nada, esto debería en en programación.

Mi puntuación: 6.8

Mis Pros:
Diseño original, con sus elementos hechas por uno mismo.
Los botones de colores me gustan, me los imagino con una imagen de fondo (de algunos juegos) y creo que sí, que quedarán bien.
TitleBar customizado.

Mis Contras:
El background es muy típico y bastante cutre (sacado de google)
El contraste del texto del logo de la calavera con el background es malo, no pega nada, añadele un borde blanco de 3 pixels a alas letras.
La flecha de los 2 botones laterales no me gusta, tienen un sombreado extraño (grande) y demasiado resaltado 3D, tampoco me gusta esa forma de flecha.
Los botones del Framework son muy cuadrados, cuando todo lo demás está bastante redondeado , no pegan esos botones cuadrados ahí.
No hay opción para minimizar.

Saludos!

Sección de ayuda para aplicaciones CommandLine.

Código (vbnet) [Seleccionar] Expandir

#Region " Help Section "

    Private Sub Help()

        Dim Logo As String = <a><![CDATA[
.____                         
|    |    ____   ____   ____ 
|    |   /  _ \ / ___\ /  _ \
|    |__(  <_> ) /_/  >  <_> )
|_______ \____/\___  / \____/
        \/    /_____/    By Elektro H@cker
]]></a>.Value

        Dim Help As String = <a><![CDATA[   
                           
[+] Syntax:

    Program.exe [FILE] [SWITCHES]

[+] Switches:

    /Switch1   | Description.    (Default Value: X)
    /Switch2   | Description.
    /? (or) -? | Show this help.

[+] Switch value Syntax:

    /Switch1   (ms)
    /Switch2   (X,Y)

[+] Usage examples:

    Program.exe "C:\File.txt" /Switch1
    (Short explanation)

]]></a>.Value

        Console.WriteLine(Logo & Help)
        Application.Exit()

    End Sub

#End Region

Una class para grabar tareas del mouse (mover el mouse aquí, clickar botón izquierdo hallá, etc)

De momento solo he conseguido implementar los botones del mouse izquierdo/derecho.

Saludos.

Código (vbnet) [Seleccionar] Expandir

#Region " Record Mouse Class "

' [ Record Mouse Functions ]
'
' // By Elektro H@cker
'
' Examples :
' Record_Mouse.Start_Record()
' Record_Mouse.Stop_Record()
' Record_Mouse.Play() : While Not Record_Mouse.Play_Is_Completed : Application.DoEvents() : End While
' Record_Mouse.Mouse_Speed = 50

Public Class Record_Mouse

    ''' <summary>
    ''' Sets the speed of recording/playing the mouse actions.
    ''' Default value is 25.
    ''' </summary>
    Public Shared Mouse_Speed As Int64 = 30

    ''' <summary>
    ''' Gets the status pf the current mouse play.
    ''' False = Mouse task is still playing.
    ''' True = Mouse task play is done.
    ''' </summary>
    Public Shared Play_Is_Completed As Boolean

    ' Where the mouse coordenates will be stored:
    Private Shared Coordenates_List As New List(Of Point)
    ' Where the mouse clicks will be stored:
    Private Shared Clicks_Dictionary As New Dictionary(Of Int64, MouseButton)
    ' Timer to record the mouse:
    Private Shared WithEvents Record_Timer As New Timer
    ' Button click count to rec/play clicks:
    Private Shared Click_Count As Int32 = 0
    ' Thread to reproduce the mouse actions:
    Private Shared Thread_MousePlay_Var As System.Threading.Thread = New Threading.Thread(AddressOf Thread_MousePlay)
    ' API to record the current mouse button state:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    ' API to reproduce a mouse button click:
    Private Declare Sub Mouse_Event Lib "User32" Alias "mouse_event" (ByVal dwFlags As MouseButton, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
    ' GetAsyncKeyState buttons status
    Private Shared Last_ClickState_Left As Int64 = -1
    Private Shared Last_ClickState_Right As Int64 = -1
    Private Shared Last_ClickState_Middle As Int64 = -1

    Enum MouseButton

        Left_Down = &H2    ' Left button (hold)
        Left_Up = &H4      ' Left button (release)

        Right_Down = &H8   ' Right button (hold)
        Right_Up = &H10    ' Right button (release)

        Middle_Down = &H20 ' Middle button (hold)
        Middle_Up = &H40   ' Middle button (release)

        Left               ' Left   button (press)
        Right              ' Right  button (press)
        Middle             ' Middle button (press)

    End Enum

    ''' <summary>
    ''' Starts recording the mouse actions over the screen.
    ''' It records the position of the mouse and left/right button clicks.
    ''' </summary>
    Public Shared Sub Start_Record()

        ' Reset vars:
        Play_Is_Completed = False
        Coordenates_List.Clear() : Clicks_Dictionary.Clear()
        Last_ClickState_Left = -1 : Last_ClickState_Right = -1 : Last_ClickState_Middle = -1
        Click_Count = 0

        ' Set Mouse Speed
        Record_Timer.Interval = Mouse_Speed

        ' Start Recording:
        Record_Timer.Start()

    End Sub

    ''' <summary>
    ''' Stop recording the mouse actions.
    ''' </summary>
    Public Shared Sub Stop_Record()
        Record_Timer.Stop()
    End Sub

    ''' <summary>
    ''' Reproduce the mouse actions.
    ''' </summary>
    Public Shared Sub Play()
        Thread_MousePlay_Var = New Threading.Thread(AddressOf Thread_MousePlay)
        Thread_MousePlay_Var.IsBackground = True
        Thread_MousePlay_Var.Start()
    End Sub

    ' Procedure used to store the mouse actions
    Private Shared Sub Record_Timer_Tick(sender As Object, e As EventArgs) Handles Record_Timer.Tick

        Coordenates_List.Add(Control.MousePosition)

        ' Record Left click
        If Not Last_ClickState_Left = GetAsyncKeyState(1) Then
            Last_ClickState_Left = GetAsyncKeyState(1)
            If GetAsyncKeyState(1) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Down)
            ElseIf GetAsyncKeyState(1) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Up)
            End If
        End If

        ' Record Right click
        If Not Last_ClickState_Right = GetAsyncKeyState(2) Then
            Last_ClickState_Right = GetAsyncKeyState(2)
            If GetAsyncKeyState(2) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Down)
            ElseIf GetAsyncKeyState(2) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Up)
            End If
        End If

        ' Record Middle click
        If Not Last_ClickState_Middle = GetAsyncKeyState(4) Then
            Last_ClickState_Middle = GetAsyncKeyState(4)
            If GetAsyncKeyState(4) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Down)
            ElseIf GetAsyncKeyState(4) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Up)
            End If
        End If

    End Sub

    ' Procedure to play a mouse button (click)
    Private Shared Sub Mouse_Click(ByVal MouseButton As MouseButton)
        Select Case MouseButton
            Case MouseButton.Left : Mouse_Event(MouseButton.Left_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Left_Up, 0, 0, 0, 0)
            Case MouseButton.Right : Mouse_Event(MouseButton.Right_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Right_Up, 0, 0, 0, 0)
            Case MouseButton.Middle : Mouse_Event(MouseButton.Middle_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Middle_Up, 0, 0, 0, 0)
            Case Else : Mouse_Event(MouseButton, 0, 0, 0, 0)
        End Select
    End Sub

    ' Thread used for reproduce the mouse actions
    Private Shared Sub Thread_MousePlay()

        Click_Count = 0
        Clicks_Dictionary.Item(0) = Nothing

        For Each Coordenate In Coordenates_List

            Threading.Thread.Sleep(Mouse_Speed)

            If Coordenate = Nothing Then
                Click_Count += 1
                If Click_Count > 1 Then
                    Mouse_Click(Clicks_Dictionary.Item(Click_Count))
                End If
            Else
                Cursor.Position = Coordenate
            End If

        Next

        Mouse_Click(MouseButton.Left_Up)
        Mouse_Click(MouseButton.Right_Up)
        Mouse_Click(MouseButton.Middle_Up)

        Play_Is_Completed = True

    End Sub

End Class

#End Region

En win 7 no funca la wapada.

(Yo uso Windows 7 como SO principal.)

Asegúrate que estos valores son correctos:

Código [Seleccionar] Expandir

Set "Pattern=*.jpg"
Set "Replace=300x250"


Es decir que las imágenes sean jpg y que tengan el string "300x250" en el nombre del archivo.

Si no has modificado nada no se me ocurre porque no te funciona, pero el código en si mismo funciona como debe.

Saludos

Aquí tienes mi versión:

Código (vbnet) [Seleccionar] Expandir

#Region " Replace TextFile Line "

    ' [ Replace TextFile Line Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Replace_TextFile_Line("C:\File.txt", 1, "Hello world!")
    ' Replace_TextFile_Line("C:\File.txt", 3, True)
    ' If Replace_TextFile_Line("C:\File.txt", 5, "Elektro H@cker") Then ...

    Private Function Replace_TextFile_Line(ByVal Text_File As String, _
                                           ByVal Line_Number As Int64, _
                                           ByVal New_Text As Object) As Boolean

        Line_Number -= 1 : If Line_Number < 0 _
        Then Throw New Exception("Line Number can't be a negative value")

        Try
            Dim Lines_Array() As String = IO.File.ReadAllLines(Text_File)
            Lines_Array(Line_Number) = New_Text
            IO.File.WriteAllLines(Text_File, Lines_Array)
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try

    End Function

#End Region

Saludos.

Cierra el valor con comillas dobles:

Código [Seleccionar] Expandir

/password:"GS/123++"

Saludos