Mensajes

Edito 2: Al final he encontrado un trozo de codigo, al parecer es powershell pero funciona perfectamente.

Código (dos) [Seleccionar] Expandir

set "psCommand=powershell -Command "$pword = read-host 'Enter Password' -AsSecureString ; ^
    $BSTR=[System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($pword); ^
        [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)""
for /f "usebackq delims=" %%p in (`%psCommand%`) do set password=%%p
If NOT "%password%" EQU "abc" (Goto :FAIL)

Solo comento para decir muy pero que muy buena alternativa, pero como siempre en Batch se debe recurrir a la utilización de otro lenguaje y/o herramienta externa para llevar a cabo algunos propósitos de forma eficiente.

Saludos!

Yo me ofrezco para ayudar en lo que se pueda, en caso de que quieran, y también para participar en el concurso con el desaarrollo de una aplicación que se me ha ocurrido xD

saludos

Se agradece que algunoas personas estén agradecidas con el foro y tengan motivación por hacer regalos, alguna vez que otra yo intenté regalar subscripciones premium de Uploaded al primero que escribiese, pero siempre me borraban mis posts, claro, porque yo soy la oveja negra del foro, y mis regalos son escoria, ya verás como contigo no hacen lo mismo xD.

PD: Yo ya tengo GOT 3, pero quizás deberías aclarar si la descarga es de la serie con audio inglés o en castellano, o en ambas, a mi no me queda claro eso xD.

Saludos!

Como añadir una marca de agua en una imagen usando la librería Aspose Imaging ( http://www.aspose.com/.net/imaging-component.aspx ).

Código (vbnet) [Seleccionar] Expandir


    ' Add Watermark
    ' By Elektro

    ''' <summary>
    ''' Adds a watermark into an image, at the specified position.
    ''' </summary>
    ''' <param name="img">Indicates the image.</param>
    ''' <param name="text">Indicates the watermark text.</param>
    ''' <param name="fnt">Indicates the watermark text font.</param>
    ''' <param name="color">Indicates the watermark text color.</param>
    ''' <param name="position">Indicates the watermark text position.</param>
    ''' <returns>Aspose.Imaging.Image.</returns>
    Private Function AddWatermark(ByVal img As Aspose.Imaging.Image,
                                  ByVal text As String,
                                  ByVal fnt As Aspose.Imaging.Font,
                                  ByVal color As Aspose.Imaging.Color,
                                  ByVal position As Aspose.Imaging.PointF) As Aspose.Imaging.Image

        Using brush As New Aspose.Imaging.Brushes.SolidBrush With {.Color = color, .Opacity = 100.0F}

            ' Create and initialize an instance of Graphics class.
            Dim g As New Aspose.Imaging.Graphics(img)

            ' Draw a String using the SolidBrush object and Font, at specific Point and with specific format.
            g.DrawString(s:=text, font:=fnt, brush:=brush, point:=position)

        End Using

        ' Return the modified image.
        Return img

    End Function

    ''' <summary>
    ''' Adds a watermark into an image, at a prefedined position.
    ''' </summary>
    ''' <param name="img">Indicates the image.</param>
    ''' <param name="text">Indicates the watermark text.</param>
    ''' <param name="fnt">Indicates the watermark text font.</param>
    ''' <param name="color">Indicates the watermark text color.</param>
    ''' <param name="position">Indicates the watermark text position.</param>
    ''' <param name="verticalmargin">Indicates the watermark text vertical margin.</param>
    ''' <param name="horizontalmargin">Indicates the watermark text horizontal margin.</param>
    ''' <returns>Aspose.Imaging.Image.</returns>
    Private Function AddWatermark(ByVal img As Aspose.Imaging.Image,
                                  ByVal text As String,
                                  ByVal fnt As Aspose.Imaging.Font,
                                  ByVal color As Aspose.Imaging.Color,
                                  ByVal position As WatermarkPosition,
                                  Optional ByVal verticalmargin As Single = 0.0F,
                                  Optional ByVal horizontalmargin As Single = 0.0F) As Aspose.Imaging.Image

        Dim textformat As New Aspose.Imaging.StringFormat
        Dim textposition As Aspose.Imaging.PointF = Aspose.Imaging.PointF.Empty
        textformat.FormatFlags = Aspose.Imaging.StringFormatFlags.MeasureTrailingSpaces

        Select Case position

            Case WatermarkPosition.Top ' Note: horizontalmargin value is ignored.
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center

            Case WatermarkPosition.TopLeft
                textposition = New Aspose.Imaging.PointF(x:=horizontalmargin, y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

            Case WatermarkPosition.TopRight
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=verticalmargin)
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

            Case WatermarkPosition.Middle ' Note: verticalmargin horizontalmargin and values are ignored.
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center

            Case WatermarkPosition.MiddleLeft ' Note: verticalmargin value is ignored.
                textposition = New Aspose.Imaging.PointF(x:=(horizontalmargin), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

            Case WatermarkPosition.MiddleRight ' Note: verticalmargin value is ignored.
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=(img.Height \ 2))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

            Case WatermarkPosition.Bottom ' Note: horizontalmargin value is ignored.
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width \ 2), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Center

            Case WatermarkPosition.BottomLeft
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(horizontalmargin), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

            Case WatermarkPosition.BottomRight
                Dim f As New System.Drawing.Font(fnt.Name, fnt.Size, DirectCast(fnt.Style, System.Drawing.FontStyle))
                Dim measure As System.Drawing.Size = TextRenderer.MeasureText(text, f)
                textposition = New Aspose.Imaging.PointF(x:=(img.Width - measure.Width - horizontalmargin), y:=(img.Height - measure.Height - verticalmargin))
                textformat.Alignment = Aspose.Imaging.StringAlignment.Near

        End Select

        Using brush As New Aspose.Imaging.Brushes.SolidBrush With {.Color = color, .Opacity = 100.0F}

            ' Create and initialize an instance of Graphics class.
            Dim g As New Aspose.Imaging.Graphics(img)

            ' Draw a String using the SolidBrush object and Font, at specific Point and with specific format.
            g.DrawString(s:=text, font:=fnt, brush:=brush, point:=textposition, format:=textformat)

        End Using

        textformat.Dispose()

        ' Return the modified image.
        Return img

    End Function

    ''' <summary>
    ''' Specifies a Watermark position
    ''' </summary>
    Public Enum WatermarkPosition As Short

        ''' <summary>
        ''' Top position.
        ''' horizontalmargin value is ignored.
        ''' </summary>
        Top = 0S

        ''' <summary>
        ''' Top-Left position.
        ''' </summary>
        TopLeft = 1S

        ''' <summary>
        ''' Top-Right position.
        ''' </summary>
        TopRight = 2S

        ''' <summary>
        ''' Middle-Left position.
        ''' verticalmargin value is ignored.
        ''' </summary>
        MiddleLeft = 3S

        ''' <summary>
        ''' Middle position.
        ''' verticalmargin and horizontalmargin values are ignored.
        ''' </summary>
        Middle = 4S

        ''' <summary>
        ''' Middle-Right position.
        ''' verticalmargin value is ignored.
        ''' </summary>
        MiddleRight = 5S

        ''' <summary>
        ''' Bottom position.
        ''' horizontalmargin value is ignored.
        ''' </summary>
        Bottom = 6S

        ''' <summary>
        ''' Bottom-Left position.
        ''' </summary>
        BottomLeft = 7S

        ''' <summary>
        ''' Bottom-Right position.
        ''' </summary>
        BottomRight = 8S

    End Enum

Ejemplo de uso:

Código (vbnet) [Seleccionar] Expandir

    Private Sub Form1_Load() Handles MyBase.Load

        ' Load an image to add a watermark.
        Dim img As Aspose.Imaging.Image = Aspose.Imaging.Image.Load("C:\sample.bmp")

        ' Set the watermark text.
        Dim text As String = "ElektroStudios"

        ' Set the watermark text color.
        Dim color As Aspose.Imaging.Color = Aspose.Imaging.Color.White

        ' Set the watermark text font.
        Dim fnt As New Aspose.Imaging.Font("Lucida Console", 32, FontStyle.Bold)

        ' Add the watermark into the image.
        img = Me.AddWatermark(img:=img, text:=text, fnt:=fnt, color:=color, position:=WatermarkPosition.BottomRight)

        ' Or...
        ' Dim position As New Aspose.Imaging.PointF(x:=10, y:=10)
        ' img = Me.AddWatermark(img:=img, text:=text, fnt:=fnt, color:=color, position:=position)

        ' Save the image to disk.
        img.Save("C:\Watermark.bmp")

        ' See the resulting image.
        Process.Start("C:\Watermark.bmp")
        Application.Exit()

    End Sub

[Assembly.Load]

2.bin es un exe creado con c++.

No se mucho sobre este tema, no conozco mucho de C++ así que no puedo ayudarte casi, pero repetiré lo que dije:

El método Assembly.Load es para abrir ensamblados (entorno de ejecución .NET).

-> Assembly (CLI) - Wikipedia

Utilizar el método Assembly.Load(byte[]) para cargar un ensamblado C++ que contenga código nativo NO está soportado.

¿Has buscado en Google el código de error?, porque hay muchos resultados con información y posibles soluciones (aparte de este enlace):

"A mixed mode C++ EXE cannot be relocated in memory properly when loaded as a referenced assembly"

"[...] we only allow MSIL-Only images to be loaded [...] since anything else is not safe"--

+

-> Attempt to load an unverifiable executable with fixups (IAT with more than 2 sections or a TLS section.) (Exception from HRESULT: 0x80131019)

Asi pues, si quieres "cargar" una dll de C++ según parece vas a tener que recurrir al P/Invoking, aunque no se si esa será la única solución, como ya he dicho no manejo mucho este tema de cargar una dll de C++ para invokar funciones o lo que pretendas hacer, pero así es como siempre lo he echo con librerías de terceros desarrolladas en C++ y por supuesto con las de la WinAPI, toma un ejemplo:

Código (vbnet) [Seleccionar] Expandir

Imports System.Runtime.InteropServices

' <System.Security.SuppressUnmanagedCodeSecurity>
Friend Class SafeNativeMethods

    <DllImport("2.bin", EntryPoint:="Nombre_De_La_Función", SetLastError:=False, CharSet:=CharSet.Auto)>
    Friend Shared Function Nombre_A_Mostrar(
            ByVal Parametro1 As String,
            ByVal Parametro2 As IntPtr
    ) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

End Class

+

   NativeMethods - This class does not suppress stack walks for unmanaged code permission. (System.Security.SuppressUnmanagedCodeSecurityAttribute must not be applied to this class.) This class is for methods that can be used anywhere because a stack walk will be performed.

   SafeNativeMethods - This class suppresses stack walks for unmanaged code permission. (System.Security.SuppressUnmanagedCodeSecurityAttribute is applied to this class.) This class is for methods that are safe for anyone to call. Callers of these methods are not required to perform a full security review to make sure that the usage is secure because the methods are harmless for any caller.

   UnsafeNativeMethods - This class suppresses stack walks for unmanaged code permission. (System.Security.SuppressUnmanagedCodeSecurityAttribute is applied to this class.) This class is for methods that are potentially dangerous. Any caller of these methods must perform a full security review to make sure that the usage is secure because no stack walk will be performed.

PD: El compañero @Kubox creo que sabe bastante sobre este tema de C++ en .NET y te podrá ayudar mejor que yo en caso de que lea este post.

Saludos.

[Ice Bucket Challenge]

jajajjajaja... me rio por no llorar.

Si ya sabia yo que el fenómeno del 'Ice Bucket Challenge' no podia traer nada bueno en general.

http://foro.elhacker.net/foro_libre/ice_bucket_challenge_iquestque_opinas-t420476.0.html

Saludos

[Assembly.Load Method (Byte()) - MSDN]

Assembly.Load(buffer) me da error.

Código (csharp) [Seleccionar] Expandir

Assembly asm = Assembly.Load(buffer);//----------------->> AQUI DA EL ERROR.

Bien, ¿pero piensas explicar el tipo de excepción y el mensaje de error, o esperas que lo adivinemos?.

-> Assembly.Load Method (Byte()) - MSDN

El método Assembly.Load es para abrir ensamblados (entorno de ejecución .NET).

-> Assembly (CLI) - Wikipedia

¿El archivo 2.bin es un ensamblado .NET, una dll con la extensión camuflada?, ¿Cuales son tus verdaderas intenciones, que intentas conseguir?, ¿estás intentando clonar dicho ensamblado en la memoria para cargar el stream en tiempo de ejecución?;
porfavor, se claro con el problema que tienes, el error, y el resultado que esperas conseguir.

Saludos!

Lo que es una burla es que aún estés en el foro intentando vendernos tus cosas y decir que el administrador no reconoce tu trabajo y que nunca te presta atención cuando dices que algunos deberíamos darnos cuenta de nuestra hipocresía y blablabla, digas que yo me he metido con la gente  

PD: No pienses que la he tomado contigo, te conozco de hace mucho en el foro y me caes bien, esto se lo habría dicho a cualquiera que hubiese echo lo mismo porque simplemente no me parece correcto.

Me pareciste una persona inteligente, pero ya has demostrado que además de no ser capaz de aceptar una crítica contructiva eres completamente tonto y debes recurrir al sarcasmo así como a gilipolleces tonterías las cuales ni vienen al caso, ni son como tu dices.

Te lo diré de otro modo, ¿tu para que vienes a Trollear a un usuario juzgandole y diciendole si tiene que pagar por algo o no?, está claro que te gusta trollear a los que te llevan la contrario (y con motivos de sobra te la he llevado), o bien puedes intentar aceptarlo, o seguir con tus estupideces inmaduras repitiendo las frases que se te dicen, lo mismo que hacen los niños, ¿será que te identificas con el personaje 'Bender' por tu forma de ser?, eso parece.

Además:

1) Para criticar con objetividad sobre los problemas personales que pueda tener un moderador, primero deberías ser moderador, para poder vivirlo y no hablar sin tener ni p**a idea... como decimos en España.

2) Si quizás tienes falta de autoestima, medios, motivación, o si tienes incluso envidia y eso te impide intentar anunciarte en "X" lugar o vender un producto profesional a "X" persona entonces no es mi problema, pero yo no soy tu enemigo.

Un saludo!

Eleкtro - Un MP ignoro donde leerlo.- Soy un burro, que me perdonen los burros.- Se agradece tu " defensa" gracias

método 1:
en la página, arriba tienes un botón que pone "mensajes personales".

método 2:
en la página, en la esquina superior derecha sale información de tu usuario:

Hola, Zorronde
» Tienes X mensajes, 1 son nuevos

Pincha en "X mensajes".

saludos

Sé que ha habido varios concursos de este tipo, yo participé en uno, pero aun asi debo decir lo siguiente:

¿Estais hablando de un concurso de programación general donde habría códigos fuente de Java, VB.NET, C#, C++, Python, AutoHotkey, Batch, y etc?,
porque en ese caso es imposible valorar cada aplicación por igual (Funcionalidad, Diseño, Estructuración y rendimiento del código fuente, etc), un moderador o smplemente una persona encargada de evaluar dichos proyectos solo podría tener amplios conocimientos de Java por ejemplo y podría leer una bazofia de código escrito en Python y dicha persona podría no darse cuenta de que el código es "malo" por no tener el suficiente entendimiento de ese lenguaje pero al mismo tiempo podría parecerle una buena aplicación por fuera, porque es bonita y funciona, así que su valoración final se basaría en eso, algo a lo que no le veo mucho sentido a esto sinceramente.
Y si me deciis que habría personas encargadas para evaluar los proyectos por separado, eso viene siendo lo mismo, ya que uno sería apto para evaluar las apps de "X" lenguaje pero no de los demás, ¿así que como se tomaría la valoración general con el resto de proyectos?.

Si vuestra motivación es intentar ganar un concurso de "programación general" donde se os valore a todos por igual entonces esa idea me resulta algo absurda desde mi punto de vista porque a los detalles más importantes a tener en cuenta no se les acabaría dando tanta importancia al evaluar, por lo que ya he comentado, casi que todos tendrían las mismas posibilidades dentro de un margen y otros muchos directamente estarían descartados nada más aportar su proyecto (ej: los Batcheros).

En cambio si estuvieramos hablando de un (o diez) concurso(s) enfocado(s) a "X" lenguaje pues entonces si, deacuerdo, estoy a favor yo también por si a alguien le interesa mi humilde opinión.

Saludos!