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

#4251
La función SizeOf devuelve el tamaño estático de asignación de la representación de un type, que bien mirado también se puede evaluar como "el tamaño máximo" como has hecho, pero no es eso exactamente, es el tamaño, tal cual, asignes lo que asignes a ese type en particular.

El valor máximo de un entero firmado de 32 bit (o signed int32) es positivamente hablando 2.147.483.647 y negativamente hablando -2.147.483.648.

Ten en cuenta que los números enteros sin firmar (o unsigned int16/int32/int64) no pueden representarse como valores negativos, así que el valor máximo de un entero de 32 bit sin firmar es 4.294.967.295 y negativamente hablando 0.

El resto de detalles ya te lo ha explicado @MinusFour y compañía.

Saludos
#4252
Cita de: Kaxperday en  8 Noviembre 2015, 17:22 PM¿que pasos he de seguir para compilarla con sus dependencias?.
Indica el enlace de descarga y miro el tema de las dependencias, pero de todas formas en la fuente de donde te lo hayas descargado debe mencionar algo sobre eso... ¿no?.

Cita de: Kaxperday en  8 Noviembre 2015, 17:22 PM¿Como puedo conseguir una librería estática de curl descargandola?
¿"Librería estática"?, imagino que te refieres a descargar un Wrapper de libCURL para .Net, en ese caso aquí tienes uno:


EDITO: Por cierto, acabo de ver que libCURL (c++ nativo) lo puedes descargar desde la plataforma o servicio NuGet, las dependencias se descargarán automaticamente.
https://www.nuget.org/packages/curl/

En el explorador de soluciones de visual studio, pinchas click derecho > Manage Nuget Packages... > Online (Buscar) > "Curl".

Saludos!
#4253
Software / Re: SHA1 como averiguarlo
8 Noviembre 2015, 17:23 PM
Cita de: Zorronde en  8 Noviembre 2015, 16:58 PMPido disculpas por este error.-

¿Qué error?, ¿te refieres a publicar el post en la sección de "Windows"?, en ese caso tampoco lo consideremos un error, hombre!, simplemente había un lugar más apropiado donde publicar este tipo de pregunta, pero error ...tampoco es eso.

Saludos!
#4254
Cita de: Teenagers en  8 Noviembre 2015, 16:24 PMme gustaría saber si hay alguna forma de entrar a una web sin saber la contraseña.



EDITO: Esto me recuerda a la pregunta que hoy hicieron de "¿CÓMO CONSIGO UNA TARJETA DE CRÉDITO GRATIS?". En fin.

Saludos!
#4255
Software / Re: SHA1 como averiguarlo
8 Noviembre 2015, 13:33 PM
Con el programa Hasher, por poner un ejemplo de las miles de aplicaciones que calculan el hash de archivos, particularmente esta app me gusta bastante.




Saludos
#4256
pf, ese "Onda Vital" nunca lo he soportado, es para ir y darle una guantá con la mano abierta al erudito de dirección que fue capaz de destrozar la esencia o la mágia de toda una saga, solo con esa "insignificante" decisión de traducción.

Pero España es algo más que el Castellano, por cosas así yo siempre veia DB y DB-Z en idioma Valenciano :), aunque la traducción y el doblaje Catalán tmb está muy bien.

Es como ver MusculMan en Español, una autentica birria de doblaje y traducción, en Valenciano era mil veces más divertido. Los que tengan una cierta edad ya... sabrán de lo que les hablo.

Y ya no hablemos de Shin-chan (o como se escriba), a mi me gustaba mucho xD, pero en español da pena ver esa serie, es lo más aburrido que he visto jamás, la voz del niño es lo más triste que existe (literálmente, es una voz triste y lerda), pero en Catalán la cosa cambia mucho, es mucho más divertido, muchísimo. Yo la veia en Catalán :).

Malditos doblajes españoles de series... siempre la cagan.

Saludos!
#4257
Una simple esructura para representar un color, en un string con formato y sintaxis unica.
Se puede extender sencillamente para añadir más formatos/sintaxis.

Ejemplo de uso:
Código (vbnet) [Seleccionar]
Dim colorString As New ColorString(Color.FromArgb(255, 91, 146, 198))

Console.WriteLine(String.Format("ColorString Structure Size: {0}", Marshal.SizeOf(GetType(ColorString)).ToString))
Console.WriteLine(String.Format("Color.Tostring      : {0}", colorString.Color.ToString))
Console.WriteLine(String.Format("ColorString.Tostring: {0}", colorString.ToString))
Console.WriteLine()

Console.WriteLine(String.Format("Numeric Format (Standard)    : {0}", colorString.Numeric(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Numeric Format (CSharp)      : {0}", colorString.Numeric(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Numeric Format (VbNet)       : {0}", colorString.Numeric(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Numeric Format (VisualStudio): {0}", colorString.Numeric(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
Console.WriteLine()

Console.WriteLine(String.Format("Hexadecimal Format (Standard)    : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Hexadecimal Format (CSharp)      : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Hexadecimal Format (VbNet)       : {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Hexadecimal Format (VisualStudio): {0}", colorString.Hexadecimal(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
Console.WriteLine()

Console.WriteLine(String.Format("Web Format (Standard)    : {0}", colorString.Web(ColorString.ColorStringSyntax.Standard)))
Console.WriteLine(String.Format("Web Format (CSharp)      : {0}", colorString.Web(ColorString.ColorStringSyntax.CSharp)))
Console.WriteLine(String.Format("Web Format (VbNet)       : {0}", colorString.Web(ColorString.ColorStringSyntax.VbNet)))
Console.WriteLine(String.Format("Web Format (VisualStudio): {0}", colorString.Web(ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))


Resultado de ejecución:
CitarColorString Structure Size: 24
Color.Tostring      : Color [A=255, R=91, G=146, B=198]
ColorString.Tostring: {A=255, R=91, G=146, B=198}

Numeric Format (Standard)    : 255, 91, 146, 198
Numeric Format (CSharp)      : Color.FromArgb(255, 91, 146, 198);
Numeric Format (VbNet)       : Color.FromArgb(255, 91, 146, 198)
Numeric Format (VisualStudio): 255; 91; 146; 198

Hexadecimal Format (Standard)    : FF5B92C6
Hexadecimal Format (CSharp)      : Color.FromArgb(0xFF, 0x5B, 0x92, 0xC6);
Hexadecimal Format (VbNet)       : Color.FromArgb(&HFF, &H5B, &H92, &HC6)
Hexadecimal Format (VisualStudio): 0xFF5B92C6

Web Format (Standard)    : #5B92C6
Web Format (CSharp)      : ColorTranslator.FromHtml("#5B92C6");
Web Format (VbNet)       : ColorTranslator.FromHtml("#5B92C6")
Web Format (VisualStudio): #5B92C6

Ejemplo de utilidad en la vida real:


Código fuente:
Código (vbnet) [Seleccionar]
   ''' ----------------------------------------------------------------------------------------------------
   ''' <summary>
   ''' Defines a <see cref="Color"/> with an unique string-format representation in the specified string-syntax.
   ''' </summary>
   ''' ----------------------------------------------------------------------------------------------------
   ''' <example> This is a code example.
   ''' <code>
   ''' Dim colorString As New ColorString(Color.FromArgb(255, 91, 146, 198))
   '''
   ''' Console.WriteLine(String.Format("ColorString Structure Size: {0}", Marshal.SizeOf(GetType(ColorString)).ToString))
   ''' Console.WriteLine(String.Format("Color.Tostring      : {0}", colorString.Color.ToString))
   ''' Console.WriteLine(String.Format("ColorString.Tostring: {0}", colorString.ToString))
   ''' Console.WriteLine()
   ''' Console.WriteLine(String.Format("Numeric Format (Standard)    : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.Standard)))
   ''' Console.WriteLine(String.Format("Numeric Format (CSharp)      : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
   ''' Console.WriteLine(String.Format("Numeric Format (VbNet)       : {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
   ''' Console.WriteLine(String.Format("Numeric Format (VisualStudio): {0}", colorString.Numeric(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
   ''' Console.WriteLine()
   ''' Console.WriteLine(String.Format("Hexadecimal Format (Standard)    : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.Standard)))
   ''' Console.WriteLine(String.Format("Hexadecimal Format (CSharp)      : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
   ''' Console.WriteLine(String.Format("Hexadecimal Format (VbNet)       : {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
   ''' Console.WriteLine(String.Format("Hexadecimal Format (VisualStudio): {0}", colorString.Hexadecimal(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
   ''' Console.WriteLine()
   ''' Console.WriteLine(String.Format("Web Format (Standard)    : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.Standard)))
   ''' Console.WriteLine(String.Format("Web Format (CSharp)      : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.CSharp)))
   ''' Console.WriteLine(String.Format("Web Format (VbNet)       : {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.VbNet)))
   ''' Console.WriteLine(String.Format("Web Format (VisualStudio): {0}", colorString.Web(ColorUtil.ColorString.ColorStringSyntax.VisualStudioPropertyGrid)))
   ''' </code>
   ''' </example>
   ''' ----------------------------------------------------------------------------------------------------
    <Serializable>
   <StructLayout(LayoutKind.Sequential)>
   Public Structure ColorString

#Region " Properties "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the <see cref="Color"/>.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <value>
       ''' The <see cref="Color"/>.
       ''' </value>
       ''' ----------------------------------------------------------------------------------------------------
       Public ReadOnly Property Color As Color
           <DebuggerStepThrough>
           Get
               Return Me.colorB
           End Get
       End Property
       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' ( Backing field )
       ''' The <see cref="Color"/>.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       Private ReadOnly colorB As Color

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the numeric color-string representation for this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <value>
       ''' The numeric color-string representation.
       ''' </value>
       ''' ----------------------------------------------------------------------------------------------------
       Public ReadOnly Property Numeric(ByVal colorStringSyntax As ColorStringSyntax) As String
           <DebuggerStepThrough>
           Get
               Return Me.GetNumericString(colorStringSyntax)
           End Get
       End Property

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the Hexadecimal color-string representation for this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <value>
       ''' The Hexadecimal color-string representation.
       ''' </value>
       ''' ----------------------------------------------------------------------------------------------------
       Public ReadOnly Property Hexadecimal(ByVal colorStringSyntax As ColorStringSyntax) As String
           <DebuggerStepThrough>
           Get
               Return Me.GetHexadecimalString(colorStringSyntax)
           End Get
       End Property

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the Web color-string representation for this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <value>
       ''' The Web color-string representation.
       ''' </value>
       ''' ----------------------------------------------------------------------------------------------------
       Public ReadOnly Property Web(ByVal colorStringSyntax As ColorStringSyntax) As String
           <DebuggerStepThrough>
           Get
               Return Me.GetWebString(colorStringSyntax)
           End Get
       End Property

#End Region

#Region " Enumerations "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Specifies a string syntax to represent a color value.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       Public Enum ColorStringSyntax As Integer

           ''' <summary>
           ''' Standard syntax.
           ''' </summary>
           Standard = 0

           ''' <summary>
           ''' C# language syntax.
           ''' </summary>
           CSharp = 1

           ''' <summary>
           ''' Visual Basic.Net language syntax.
           ''' </summary>
           VbNet = 2

           ''' <summary>
           ''' VisualStudio IDE's property grid syntax.
           ''' </summary>
           VisualStudioPropertyGrid = 3

       End Enum

#End Region

#Region " Constructors "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Initializes a new instance of the <see cref="ColorString"/> structure.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="color">
       ''' The source <see cref="Color"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Public Sub New(ByVal color As Color)

           Me.colorB = color

       End Sub

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Initializes a new instance of the <see cref="ColorString"/> structure.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="brush">
       ''' The source <see cref="SolidBrush"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Public Sub New(ByVal brush As SolidBrush)

           Me.colorB = brush.Color

       End Sub

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Initializes a new instance of the <see cref="ColorString"/> structure.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="pen">
       ''' The source <see cref="Pen"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Public Sub New(ByVal pen As Pen)

           Me.colorB = pen.Color

       End Sub

#End Region

#Region " Private Methods "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the numeric string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="syntax">
       ''' The color-string syntax.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The numeric string representation.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <exception cref="InvalidEnumArgumentException">
       ''' syntax
       ''' </exception>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Private Function GetNumericString(ByVal syntax As ColorStringSyntax) As String

           Dim byteString As String =
               String.Format("{0}, {1}, {2}, {3}",
                             Convert.ToString(Me.colorB.A),
                             Convert.ToString(Me.colorB.R),
                             Convert.ToString(Me.colorB.G),
                             Convert.ToString(Me.colorB.B))

           Select Case syntax

               Case ColorString.ColorStringSyntax.Standard
                   Return byteString

               Case ColorString.ColorStringSyntax.CSharp
                   Return String.Format("Color.FromArgb({0});", byteString)

               Case ColorString.ColorStringSyntax.VbNet
                   Return String.Format("Color.FromArgb({0})", byteString)

               Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                   Return byteString.Replace(",", ";")

               Case Else
                   Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))

           End Select

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the numeric string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="syntax">
       ''' The color-string syntax.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The numeric string representation.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <exception cref="InvalidEnumArgumentException">
       ''' syntax
       ''' </exception>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Private Function GetHexadecimalString(ByVal syntax As ColorStringSyntax) As String

           Dim a As String = Convert.ToString(Me.colorB.A, 16).ToUpper
           Dim r As String = Convert.ToString(Me.colorB.R, 16).ToUpper
           Dim g As String = Convert.ToString(Me.colorB.G, 16).ToUpper
           Dim b As String = Convert.ToString(Me.colorB.B, 16).ToUpper

           Select Case syntax

               Case ColorString.ColorStringSyntax.Standard
                   Return String.Format("{0}{1}{2}{3}", a, r, g, b)

               Case ColorString.ColorStringSyntax.CSharp
                   Return String.Format("Color.FromArgb(0x{0}, 0x{1}, 0x{2}, 0x{3});", a, r, g, b)

               Case ColorString.ColorStringSyntax.VbNet
                   Return String.Format("Color.FromArgb(&H{0}, &H{1}, &H{2}, &H{3})", a, r, g, b)

               Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                   Return String.Format("0x{0}{1}{2}{3}", a, r, g, b)

               Case Else
                   Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))

           End Select

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Gets the Web string representation of a <see cref="Color"/>, in the specified <see cref="ColorStringSyntax"/> syntax.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="syntax">
       ''' The color-string syntax.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The Web string representation.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <exception cref="InvalidEnumArgumentException">
       ''' syntax
       ''' </exception>
       ''' ----------------------------------------------------------------------------------------------------
       <DebuggerStepThrough>
       Private Function GetWebString(ByVal syntax As ColorStringSyntax) As String

           Dim htmlString As String = ColorTranslator.ToHtml(Color)

           Select Case syntax

               Case ColorString.ColorStringSyntax.Standard
                   Return htmlString

               Case ColorString.ColorStringSyntax.CSharp
                   Return String.Format("ColorTranslator.FromHtml(""{0}"");", htmlString)

               Case ColorString.ColorStringSyntax.VbNet
                   Return String.Format("ColorTranslator.FromHtml(""{0}"")", htmlString)

               Case ColorString.ColorStringSyntax.VisualStudioPropertyGrid
                   Return htmlString

               Case Else
                   Throw New InvalidEnumArgumentException("syntax", syntax, GetType(ColorStringSyntax))

           End Select

       End Function

#End Region

#Region " Public Methods "

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Performs an implicit conversion from <see cref="ColorString"/> to <see cref="Color"/>.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="colorString">
       ''' The <see cref="ColorString"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The resulting <see cref="Color"/> of the conversion.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Shared Widening Operator CType(ByVal colorString As ColorString) As Color

           Return Drawing.Color.FromArgb(colorString.Color.R, colorString.Color.G, colorString.Color.B)

       End Operator

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Performs an implicit conversion from <see cref="Color"/> to <see cref="ColorString"/>.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="color">
       ''' The <see cref="Color"/>.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The resulting <see cref="ColorString"/> of the conversion.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Shared Narrowing Operator CType(ByVal color As Color) As ColorString

           Return New ColorString(color)

       End Operator

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Implements the operator =.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="colorString1">
       ''' The first <see cref="ColorString"/> to evaluate.
       ''' </param>
       '''
       ''' <param name="colorString2">
       ''' The second <see cref="ColorString"/> to evaluate.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The result of the operator.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Shared Operator =(ByVal colorString1 As ColorString,
                                ByVal colorString2 As ColorString) As Boolean

           Return colorString1.Equals(colorString2)

       End Operator

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Implements the operator &lt;&gt;.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="colorString1">
       ''' The first <see cref="ColorString"/> to evaluate.
       ''' </param>
       '''
       ''' <param name="colorString2">
       ''' The second <see cref="ColorString"/> to evaluate.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' The result of the operator.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Shared Operator <>(ByVal colorString1 As ColorString,
                                 ByVal colorString2 As ColorString) As Boolean

           Return Not colorString1.Equals(colorString2)

       End Operator

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Determines whether the specified <see cref="System.Object"/> is equal to this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="obj">
       ''' Another object to compare to.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' <see langword="True"/> if the specified <see cref="System.Object"/> is equal to this instance; otherwise, <see langword="False"/>.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Overrides Function Equals(ByVal obj As Object) As Boolean

           If (TypeOf obj Is ColorString) Then
               Return Me.Equals(DirectCast(obj, ColorString))

           ElseIf (TypeOf obj Is Color) Then
               Return Me.Equals(New ColorString(DirectCast(obj, Color)))

           Else
               Return False

           End If

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Determines whether the specified <see cref="ColorString"/> is equal to this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <param name="colorString">
       ''' Another <see cref="ColorString"/> to compare to.
       ''' </param>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' <see langword="True"/> if the specified <see cref="ColorString"/> is equal to this instance; otherwise, <see langword="False"/>.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Overloads Function Equals(ByVal colorString As ColorString) As Boolean

           Return (colorString.Color.ToArgb = Me.colorB.ToArgb)

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Returns a hash code for this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' A hash code for this instance, suitable for use in hashing algorithms and data structures like a hash table.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Overrides Function GetHashCode() As Integer

           Return Me.colorB.GetHashCode()

       End Function

       ''' ----------------------------------------------------------------------------------------------------
       ''' <summary>
       ''' Returns a <see cref="System.String"/> that represents this instance.
       ''' </summary>
       ''' ----------------------------------------------------------------------------------------------------
       ''' <returns>
       ''' A <see cref="System.String"/> that represents this instance.
       ''' </returns>
       ''' ----------------------------------------------------------------------------------------------------
       Public Overrides Function ToString() As String

           Return String.Format(CultureInfo.CurrentCulture, "{{A={0}, R={1}, G={2}, B={3}}}",
                                Me.colorB.A, Me.colorB.R, Me.colorB.G, Me.colorB.B)

       End Function

#End Region

   End Structure
#4258
Windows / Re: Problema configuracion en paralelo
8 Noviembre 2015, 02:52 AM
Cita de: Drexes en  7 Noviembre 2015, 22:29 PMError en el archivo de manifiesto o directiva "C:\Windows\WinSxS\manifests\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d.manifest" en la línea 0. Sintaxis XML no válida.

Por los detalles del error deduzco que lo que ocurre es que el archivo de manifiesto se ha corrompido durante el "apagón" que tuviste, probablemente el archivo esté vacío, ya que en la linea 0 debería estar la cabezera Xml, y que de error justo en esa linea (o en ese archivo) es muy extraño, posible sintoma de un conflicto como el que acabo de mencionar. Aunque solo es una conjetura.

El contenido del archivo debería ser similar a este:
Código (xml) [Seleccionar]
<?xml version="1.0" encoding="UTF-8"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:cmiv2="urn:schemas-microsoft-com:asm.v3" cmiv2:copyright="Copyright (c) Microsoft Corporation. All Rights Reserved.">
 <noInheritable />
 <assemblyIdentity name="Microsoft.Windows.Common-Controls" version="6.0.7601.17514" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" type="win32" />
 <dependency cmiv2:discoverable="no" cmiv2:resourceType="Resources">
   <dependentAssembly>
     <assemblyIdentity name="Microsoft.Windows.Common-Controls.Resources" version="6.0.0.0" processorArchitecture="x86" language="*" publicKeyToken="6595b64144ccf1df" type="win32" />
   </dependentAssembly>
 </dependency>
 <file hash="f1c9e38b4e912205bb7991e0e0e899717df5cace" hashalg="SHA1" name="comctl32.dll" cmiv2:sourceName="" cmiv2:importPath="$(build.nttree)\asms\60\msft\windows\common\controls\">
   <windowClass versioned="yes">ToolbarWindow32</windowClass>
   <windowClass versioned="yes">ComboBoxEx32</windowClass>
   <windowClass versioned="yes">msctls_trackbar32</windowClass>
   <windowClass versioned="yes">msctls_updown32</windowClass>
   <windowClass versioned="yes">msctls_progress32</windowClass>
   <windowClass versioned="yes">msctls_hotkey32</windowClass>
   <windowClass versioned="yes">msctls_statusbar32</windowClass>
   <windowClass versioned="yes">SysHeader32</windowClass>
   <windowClass versioned="yes">SysListView32</windowClass>
   <windowClass versioned="yes">SysTreeView32</windowClass>
   <windowClass versioned="yes">SysTabControl32</windowClass>
   <windowClass versioned="yes">SysIPAddress32</windowClass>
   <windowClass versioned="yes">SysPager</windowClass>
   <windowClass versioned="yes">NativeFontCtl</windowClass>
   <windowClass versioned="yes">Button</windowClass>
   <windowClass versioned="yes">Static</windowClass>
   <windowClass versioned="yes">Listbox</windowClass>
   <windowClass versioned="yes">ScrollBar</windowClass>
   <windowClass versioned="yes">SysLink</windowClass>
   <windowClass versioned="yes">tooltips_class32</windowClass>
   <windowClass versioned="yes">ButtonListBox</windowClass>
   <windowClass versioned="yes">SysAnimate32</windowClass>
   <windowClass versioned="yes">SysMonthCal32</windowClass>
   <windowClass versioned="yes">SysDateTimePick32</windowClass>
   <windowClass versioned="yes">ReBarWindow32</windowClass>
   <windowClass versioned="yes">Edit</windowClass>
   <windowClass versioned="yes">Combobox</windowClass>
   <windowClass versioned="yes">ComboLBox</windowClass>
   <windowClass versioned="yes">DropDown</windowClass>
   <signatureInfo xmlns="urn:schemas-microsoft-com:asm.v3">
     <signatureDescriptor PETrust="true" pageHash="true" />
   </signatureInfo>
   <asmv2:hash xmlns:asmv2="urn:schemas-microsoft-com:asm.v2">
     <dsig:Transforms xmlns:dsig="http://www.w3.org/2000/09/xmldsig#">
       <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
     </dsig:Transforms>
     <dsig:DigestMethod xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
     <dsig:DigestValue xmlns:dsig="http://www.w3.org/2000/09/xmldsig#">OTsk4NYAfHSu4vsu4sGGI9N99k4nm2dnlS3P7g6suxA=</dsig:DigestValue>
   </asmv2:hash>
 </file>
 <memberships xmlns="urn:schemas-microsoft-com:asm.v3">
   <categoryMembership>
     <id name="Microsoft.Windows.Fusion_Components_All" version="6.1.7601.17514" processorArchitecture="x86" language="neutral" buildType="release" publicKeyToken="1122334455667788" />
   </categoryMembership>
 </memberships>
</assembly>


Y digo similar, por que el contenido que he mostrado hace referencia al archivo con número de build 6.0.7601.17514 de Windows NT (x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2.manifest). Desafortunadamente no tengo el archivo exacto al que hace referencia el error. Puedes tratar de reemplazar el contenido que he mostrado por el de tu archivo de manifiesto conflictivo, pero no creo que te funcione en absoluto, ya que los hashes y tokens son distintos.

Te sugiero instalar una máquina virtual con tu misma versión de Windows 7 Ultimate, y de ese sistema operativo huésped sacas y copias el contenido de ese archivo de manifiesto que te indica el error,
"C:\Windows\WinSxS\manifests\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d.manifest", para reemplazarlo por el archivo de manifiesto en tu sistema operativo anfitrión.

Pero antes de nada comprueba si dicho archivo está vacío para confirmar la conjetura, de lo contrario, indica que hay exactamente en la primera linea del archivo, la linea 0.

También, comprueba la presencia de los archivos "C:\Windows\System32\comctl32.dll" y "C:\Windows\Syswow64\comctl32.dll", y que no estén corruptos (es decir, que su tamaño no sea 0 bytes), de lo contrario puedes restaurarlos desde las copias de seguridad que encontrarás realizando una búsqueda en el directorio C:Windows\WinSXS, o también desde una máquina virtual.

Por último, en la consola de Windows (CMD), ejecuta esta orden para localizar y corregir archivos corruptos del sistema de archivos de Windows (en caso de que se encuentren errores):
Sfc.exe /ScanNow

Saludos!
#4259
Cita de: Orubatosu en  7 Noviembre 2015, 20:52 PM"America Latina": "Kame Kame Ha"

La traducción literal sería "tortuga, tortuga haaaaaa"

jajajaja, ¿en sero significa eso?.

Hay cosas que es mejor no saber nunca. Orubatosu, gracias por destrozar nuestras infancias  :xD.

Saludos
#4260
Programación General / MOVIDO: Parcial
7 Noviembre 2015, 12:29 PM