Mensajes

[TODOS]

desde su pagina inicial me baja un archivo de eses qu antes de instalar se tienen qe descomprimir

TODOS los installbuilders necesitan desempaquetar (descomprimir) el contenido del instalador antes de instalar (expandir archivos).

Comprueba que tienes bien registrada la ruta de extracción de archivos temporales, es decir, la variable de entorno "TEMP"

En consola:

Código [Seleccionar] Expandir

Echo %TEMP%

Eso debería mostrarte algo parecido a esto:

Código [Seleccionar] Expandir

C:\Users\NOMBRE\AppData\Local\Temp

Ahí es donde se extraen los archivos del instalador,
si sigues teniendo problemas, puedes instalarte una VM (Máquina Virtual) y descomprimir los archivos del instalador en la VM para después pasar los archivos a tu máquina Host , son 181 archivos los que extrae el instalador, unos 30 mb, no me apetece subirlos, lo siento xD.

Saludos!

[DESCRIPCIÓN:]

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:

Código [Seleccionar] Expandir

Carpeta de canciones
----Subcarpetas de 1 nivel, que contienen archivos de audio.

Código [Seleccionar] Expandir

Carpeta de líricas que contiene archivos txt o lrc.

Código [Seleccionar] Expandir

Carpeta de videoclips
----Subcarpetas de 1 nivel, que contienen archivos de video.

(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:

Código [Seleccionar] Expandir

69 Eyes - We Own The Night;192;03:57;5,52
A City Serene - I Guess It's Curtains For You;192;03:52;5,32
A City Serene - The Escape;192;04:19;5,93
A City Serene - Walk The Plank;192;03:26;4,73
A City Serene - With Swords Crossed;192;03:22;4,64
A Day To Remember - Another Song About The Weekend;230;03:45;6,44
A Day To Remember - Downfall Of Us All;231;03:29;6,02
etc...
etc...
etc...

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:


[youtube=720,480]http://www.youtube.com/watch?v=QAFe5DBvelw[/youtube]


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)

Código [Seleccionar] Expandir

Reg ADD "HKCR\.xls\defaulticon" /V "" /D "C:\Ruta del icono personalizado.ico,0" /F
Reg ADD "HKLM\Software\Classes\.xls\defaulticon" /V "" /D "C:\Ruta del icono personalizado.ico,0" /F

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

Saludos

[empleo laboral]

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:

Hola se busca programador con conocimientos de Python y pyQT4 para desarrollar una aplicación que me haga "X" tarea, pago bien

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í:

Nombre....: Pablo
Pais......: España
Ciudad....: Madrid
Requisitos: C/C++
Coste.....: 30 €
Modo Pago.: Paypal
Asunto....:

Hola se busca programador con conocimientos de C/C++ para llevar a cabo una aplicación que envie emails a mi dirección de correo constántemente.

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

Nombre....: Jaime
Pais......: España
Ciudad....: Barcelona
Salario...: PREGUNTAR
Modo Pago.: Paypal o Ingreso bancario
Asunto....:

Hola ofrezco mis servicios a todas las personas que estén interesadas

Soy programador, tengo un nivel de conocimientos medio en Java y alto en C#..

Aunque mi especialidad es el Hardware, puedo quedar en persona por la zona de Barcelona para reparar equipos.

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:

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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:

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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"):

Código (vbnet) [Seleccionar] Expandir

#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

Código (vbnet) [Seleccionar] Expandir

#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

lo que no me deja instalar son los archivos como por ejemplo los que se descargan de softonic que antes de instalar te pide extraer los archivos

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!