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 - seba123neo

#741
yo no bajo de Emule ni de Ares ni que fuera la ultima opcion del mundo, es mas he descargado todo lo que siempre queria y nunca use ese programa, aparte de ser un criadero de virus.
#744
Dudas Generales / Re: puertos 7171 y 7172
21 Enero 2012, 01:51 AM
fijate primero si no hay nada escuhando en esos puertos, con el comando "netstat -a" o bajate algunn programa que te escanea los puertos abiertos de los processo que tengas corriendo.

saludos.
#745
Foro Libre / Re: Usuarios con 0 mensajes
21 Enero 2012, 00:58 AM
como bien dijo EI, los mensajes en el foro libre no cuentan, eso es por las dudas para los que postean aca cualquier gansada con tal de sumar post, pero tambien existen los usuarios que participan en todos los foros de una forma media "desesperada" como para sumar tambien, hay de todo...
#747
otra muestra mas de la carcel mental en la que viven estos tipos, y no me vengan a decir que "es su cultura asi" porque no tiene nada que ver.
#749
Hola, aca un ejemplo de VB .NET para hacer eso, hay mucha info en internet de esto igual, mucho para C#.

Código (vbnet) [Seleccionar]
Imports System
Imports System.Runtime.InteropServices

Public Class Form1

    <StructLayout(LayoutKind.Sequential, Pack:=1)> _
    Private Structure MyStruct
        Public id As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=20)> _
        Public text As String
    End Structure

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Llenamos la estructura con algunos datos
        Dim msg As MyStruct
        msg.id = 888
        msg.text = "Holaaaaaa1"

        'La convertimos a Bytes
        Dim bytes As Byte() = StructToByteArray(msg)

        'Convertimos el array de bytes a la estructura nuevamente
        Dim msg2 As MyStruct = ByteArrayToStruct(bytes)
        MsgBox(msg2.id)
        MsgBox(msg2.text)

    End Sub

    Private Function ByteArrayToStruct(ByVal bytes As Byte()) As MyStruct
        Dim handle As GCHandle = GCHandle.Alloc(bytes, GCHandleType.Pinned)
        Dim stuff As MyStruct = DirectCast(Marshal.PtrToStructure(handle.AddrOfPinnedObject(), GetType(MyStruct)), MyStruct)
        handle.Free()
        Return stuff
    End Function

    Private Function StructToByteArray(ByVal logFont As MyStruct) As Byte()
        Dim length As Integer = Marshal.SizeOf(logFont)
        Dim ptPoint As IntPtr = Marshal.AllocHGlobal(length)
        Marshal.StructureToPtr(logFont, ptPoint, True)
        Dim bff As Byte() = New Byte(length - 1) {}
        Marshal.Copy(ptPoint, bff, 0, length)
        Marshal.FreeHGlobal(ptPoint)
        Return bff
    End Function
End Class
#750
Noticias / Re: Cierre de MU
20 Enero 2012, 01:37 AM
yo estaba descargando con la cuenta premium que tengo y de repente se corto, digo que carajos paso, no entraba a megaupload, se habra caido como tantas veces, despues me fui a dormir ahora me levanto y veo esto, me quiero cortar las pelotas. ahora falta que cierren rapidshare y ya seria el colmo.