DESCRIPCIÓN:

MasterMusik List Generator es una aplicación dedicada que desarrollé por necesidad para un pequeño negocio, no tenia pensado compartir el proyecto porque para la mayoría puede ser una aplicación inservible, pero creo que su funcionalidad principal se puede aprovechar para quien necesite desarrollar una aplicación de características similares, eso sí, hay que tener en cuenta que no es de funcionalidad genérica, es un código hardcodeado a mis necesidades, quizás no les sirva para nada la aplicación si no retocan un poco el código para adaptarlo a sus necesidades.

La aplicación básicamente sirve para listar una colección de archivos de música, líricas, y videoclips:

La estructura de carpetas en la que se basa la aplicación es:




(Espero que se pueda entender.)


Las listas se generan con una serie de parámetros adicionales (yo lo hago así porque luego necesito implementar las listas en otro escenario).

Esto es un ejemplo de una lista generada:


Los parámetros son (por orden):
Nombre de archivo; BitRate (en KBPS); Duración (en MM:SS); Tamaño (en MegaBytes).



IMÁGENES:






DEMOSTRACIÓN:





DESCARGA:
http://elektrostudios.tk/MasterMusik%20List%20Generator.zip

Incluye source y compilado.

¿A que te refieres con "colores"?

Si lo que quieres es personalizar el icono de un tipo de extensión, es facil, te muestro como hacerlo por consola:

(Para archivos XLS)


PD: Es un ejemplo, no lo he testeado con archivos XLS ya que no uso Excel.

Saludos

Hola

En varias ocasiones he visto a usuarios habituales del foro que casi todos conocemos (no son los típicos novatos) ofreciendo trabajo o recultando

Por ejemplo un usuario llamado $EDU se ofreció una vez para dar clases de Hacking básico, y el post tuvo buen recibimiento por parte de todos (yo incluido), hoy he visto un usuario nuevo que ofrece una oportunidad de trabajo para expertos en temas de seguridad de redes, y mensajes como estos los he visto varias veces.

Y luego también están los típicos usuarios que ofrecen dinero para hackear cuentas de facebook etc... pero quiero dejar constancia de que este tema no va con ninguno de esos lammers.


Creo que sería una oportunidad única para ElHacker para expandirse y hacerse un pequeño hueco (muy pequeño, pero con el tiempo quien sabe) en el area del empleo laboral.

Me gustaría poder ver algún día una sección en el Foro de EHN donde la gente pudiera ofrecer sus conocimientos por un módico incentivo, como dar clases, etc, y donde otro tipo de usuarios pudiesen contratar los servicios de estas personas.

Óbviamente nosotros estamos aquí para ayudar, no para vendernos, pero hay gente que a pesar de toda la ayuda posible no es capaz de realizar una aplicación (u otra cosa), y entonces prefieren contratar los servicios de alguien para resolver el problema, a mi me ha pasado más de una vez en este foro, y pues esa es la idea de la sección que propongo.


Este podría ser un post corriente de una persona cualquiera en esta sección de Empleo imaginaría:



Incluso se podrían crear unas reglas para mantener un equilibrio entre estafadores y personas honestas, además de una regla para especificar la estructura en la que se deberá escribir el contenido de un post, y todo esto serviría también para no corromper las reglas actuales de EHN como por ejemplo la regla de NO publicar datos muy personales como el email (yo estaría encantado en pensar todas esas reglas ya que propongo la idea, aunque no sé si yo sería la persona más indicado/experimentada para hacerlo bien):


Este podría ser el mensaje final escrito por un usuario cualquiera con las reglas del tablón ya impuestas y siendo respetadas, el mensaje podría ser tal que así:

Este podría ser el Body de otro post de Ofertas de trabajo:


Si un usuario estuviera interesado en alguno de los mensajes, podría contestar al post para contestar algo como "Yo puedo ayudarte contacta conmigo por Mensaje Privado amigo", o contactar diréctamente por privado.

Todos los detalles minuciosos de la idea se podrían perfeccionar, la regla de no publicar emails pues es un pequeño fastidio para la fluidez y el desarrollo de la idea en si misma, pero creo que se podrían encontrar alternativas como la de contestar por mensaje privado.

Y esta sección de "Ofertas de trabajo" no estaría destinado sólamente al campo de la programación ni sólamente a contratar servicios, sinó también a ofrecer los servicios y se podrían tratar todos los temas que se tratan en EHN, como el Diseño gráfico, la seguridad wireless, hardware, y en fin absolútamente todo!

¿Se imaginan las posibilidades?.

¿Que les parece la idea a ustedes?.

Saludos!

Varias maneras de Activar/Desactivar una serie de contorles:

#Region " Disable Controls "
 
    ' [ Disable Controls ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Disable_Controls(Button1)
    ' Disable_Controls({Button1, Button2})
    ' Disable_Controls(Of Button)(GroupBox1, False)
    ' Disable_Controls(Of Button)(GroupBox1.Controls, False)
 
    ' Disable Control(Control)
    Private Sub Disable_Control(ByVal [control] As Control)
        [control].Enabled = If([control].Enabled, False, True)
    End Sub
 
    ' Disable Controls({Control})
    Private Sub Disable_Controls(ByVal Controls() As Control)
        For Each [control] As Control In Controls
            [control].Enabled = If([control].Enabled, False, True)
        Next
    End Sub
 
    ' Disable Controls(Of Type)(Control)
    Public Sub Disable_Controls(Of T As Control)(ByVal Container As Control)
        For Each [control] As T In Container.Controls.OfType(Of T).Where(Function(ctrl) ctrl.Enabled)
            [control].Enabled = False
        Next
    End Sub
 
    ' Disable Controls(Of Type)(ControlCollection)
    Public Sub Disable_Controls(Of T As Control)(ByVal Collection As ControlCollection)
        For Each [control] As T In Collection.OfType(Of T).Where(Function(ctrl) ctrl.Enabled)
            [control].Enabled = False
        Next
    End Sub
 
#End Region

#Region " Enable Controls "
 
    ' [ Enable Controls ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Enable_Control(Button1)
    ' Enable_Controls({Button1, Button2})
    ' Enable_Controls(Of Button)(GroupBox1, False)
    ' Enable_Controls(Of Button)(GroupBox1.Controls, False)
 
    ' Enable Control(Control)
    Private Sub Enable_Control(ByVal [control] As Control)
        [control].Enabled = If(Not [control].Enabled, True, False)
    End Sub
 
    ' Enable Controls({Control})
    Private Sub Enable_Controls(ByVal Controls() As Control)
        For Each [control] As Control In Controls
            [control].Enabled = If(Not [control].Enabled, True, False)
        Next
    End Sub
 
    ' Enable Controls(Of Type)(Control)
    Public Sub Enable_Controls(Of T As Control)(ByVal Container As Control)
        For Each [control] As T In Container.Controls.OfType(Of T).Where(Function(ctrl) Not ctrl.Enabled)
            [control].Enabled = True
        Next
    End Sub
 
    ' Enable Controls(Of Type)(ControlCollection)
    Public Sub Enable_Controls(Of T As Control)(ByVal Collection As ControlCollection)
        For Each [control] As T In Collection.OfType(Of T).Where(Function(ctrl) Not ctrl.Enabled)
            [control].Enabled = True
        Next
    End Sub
 
#End Region

Listar por el método Burbuja un Array de String o una Lista de String:

#Region " BubbleSort Array "
 
    ' BubbleSort Array
    '
    ' Examples :
    '
    ' Dim MyArray As String() = {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_Array(myarray) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_Array(list As String()) As String()
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(y) y.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToArray
 
    End Function
 
#End Region

#Region " BubbleSort IEnumerable(Of String) "
 
 
    ' BubbleSort IEnumerable(Of String)
    '
    ' Examples :
    '
    ' Dim MyIEnumerable As IEnumerable(Of String) = {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_IEnumerable(MyIEnumerable) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_IEnumerable(list As IEnumerable(Of String)) As IEnumerable(Of String)
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(y) y.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr)
 
    End Function
 
#End Region

#Region " BubbleSort List(Of String) "
 
 
    ' BubbleSort List(Of String)
    '
    ' Examples :
    '
    ' Dim MyList As New List(Of String) From {"10", "333", "2", "45"}
    ' For Each item In BubbleSort_List(MyList) : MsgBox(item) : Next ' Result: {"2", "10", "45", "333"}
 
    Private Function BubbleSort_List(list As List(Of String)) As List(Of String)
 
        Return list.Select(Function(s) New With { _
            Key .OrgStr = s, _
            Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                           s, "(\d+)|(\D+)", _
                           Function(m) m.Value.PadLeft(list.Select(Function(x) x.Length).Max, _
                           If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

---

Listar por el  método Burbuja una Lista de DirectoryInfo o de FileInfo especificando la propiedad que se evaluará (por el momento solo funciona con propiedades "TopLevel"):

#Region " BubbleSort List(Of DirectoryInfo) "
 
    ' BubbleSort List(Of DirectoryInfo)
    '
    ' Examples :
    '
    ' Dim Folders As List(Of IO.DirectoryInfo) = IO.Directory.GetDirectories("C:\Windows", "*").Select(Function(p) New IO.DirectoryInfo(p)).ToList()
    '
    ' For Each folder In Bubble_Sort_List_DirectoryInfo(Folders, Function() New IO.DirectoryInfo("").Name)
    '     MsgBox(folder.Name)
    ' Next
 
    Private Shared Function Bubble_Sort_List_DirectoryInfo(list As List(Of IO.DirectoryInfo), _
                                                         exp As Linq.Expressions.Expression(Of Func(Of Object))) _
                                                         As List(Of IO.DirectoryInfo)
 
        Dim member As Linq.Expressions.MemberExpression = _
            If(TypeOf exp.Body Is Linq.Expressions.UnaryExpression, _
               DirectCast(DirectCast(exp.Body, Linq.Expressions.UnaryExpression).Operand, Linq.Expressions.MemberExpression), _
               DirectCast(exp.Body, Linq.Expressions.MemberExpression))
 
        Return list.Select(Function(s) New With { _
        Key .OrgStr = s, _
        Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                       s.Name, "(\d+)|(\D+)", _
                       Function(m) m.Value.PadLeft( _
                                   list.Select(Function(folder) DirectCast(DirectCast(member.Member, System.Reflection.PropertyInfo) _
                                                                .GetValue(folder, Nothing), Object).ToString.Length).Max(), _
                                                                If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

#Region " BubbleSort List(Of FileInfo) "
 
    ' BubbleSort List(Of FileInfo)
    '
    ' Examples :
    '
    ' Dim Files As List(Of IO.FileInfo) = IO.Directory.GetFiles("C:\Windows", "*").Select(Function(p) New IO.FileInfo(p)).ToList()
    '
    ' For Each file In Bubble_Sort_List_FileInfo(Files, Function() New IO.FileInfo("").Name)
    '     MsgBox(file.Name)
    ' Next
 
    Private Shared Function Bubble_Sort_List_FileInfo(list As List(Of IO.FileInfo), _
                                                         exp As Linq.Expressions.Expression(Of Func(Of Object))) _
                                                         As List(Of IO.FileInfo)
 
        Dim member As Linq.Expressions.MemberExpression = _
            If(TypeOf exp.Body Is Linq.Expressions.UnaryExpression, _
               DirectCast(DirectCast(exp.Body, Linq.Expressions.UnaryExpression).Operand, Linq.Expressions.MemberExpression), _
               DirectCast(exp.Body, Linq.Expressions.MemberExpression))
 
        Return list.Select(Function(s) New With { _
        Key .OrgStr = s, _
        Key .SortStr = System.Text.RegularExpressions.Regex.Replace( _
                       s.Name, "(\d+)|(\D+)", _
                       Function(m) m.Value.PadLeft( _
                                   list.Select(Function(file) DirectCast(DirectCast(member.Member, System.Reflection.PropertyInfo) _
                                                                .GetValue(file, Nothing), Object).ToString.Length).Max(), _
                                                                If(Char.IsDigit(m.Value(0)), " "c, Char.MaxValue))) _
        }).OrderBy(Function(x) x.SortStr).Select(Function(x) x.OrgStr).ToList
 
    End Function
 
#End Region

La mejor solución en ese caso es que te hagas un favor a ti mismo y no vuelvas a descargar un instalador lleno de ads de esa horrible página ni de ninguna página parecida.

Saludos!

El tema ha sido movido a Programación General.

http://foro.elhacker.net/index.php?topic=399732.0

Windows Server 2012 proporciona una API para crear una sesión de usuario programada (que no un script de inicio de sesión), pero esta API no está disponible en versiones anteriores de windows Server.

-> RDP API

Si lo que necesitas es ejecutar un proceso con las credenciales de una sesión distinta de manera "invisible", según tengo entendido (no estoy seguro al 100%) esto son las funciones que vas a necesitar de la WinAPI:

-> LogonUser (advapi32)
-> CreateProcessAsUser (advapi32)
-> CreateProcessWithLogonW (advapi32)
-> ImpersonateLoggedOnUser(advapi32)

Saludos

Cuando un moderador mueve un hilo a otra sección tiene la opción de dejar un post de referencia o "reporte" como tu lo llamas donde pone "El tema ha sido movido a X", esto se activa mediante unas opciones de moderación, pero no es obligatorio y quizás al moderador en cuestión se le olvidó hacerlo, o no disponia del tiempo necesario, o diréctamente no quiso hacerlo... que mas da!

En tu perfil siempre se va a ver reflejada la url del tema que publicaste, no digas que ha desaparecido.

Saludos!

Si los moderadores tuvieran que avisar de ese tipo de cambios a cada usuario que inflinge las normas entonces no habríamos suficientes moderadore, un poco de comprensión.

Tu tema te lo han movido a la sección Hardware, donde debe estar: http://foro.elhacker.net/hardware/fax_panasonic_kxft908-t399671.0.html;msg1888260#msg1888260

Si alguna otra vez te sucede algo parecico, antes de criticar la forma de trabajo de "X" Moderador puedes buscar el mensaje "perdido" en tu perfil: http://foro.elhacker.net/profiles/chano-u4176.html;sa,showPosts

PD: Quizás también te muevan este post, porque has vuelto a formualr tu pregunta en el subforo equivocado, esto debería ir en Sugerencias y dudas sobre el Foro

Saludos!