elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 ... 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 [823] 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 ... 1236
8221  Programación / .NET (C#, VB.NET, ASP) / Re: Cómo puedo obtener el directorio, fecha modificación por cada cuenta de usuario en: 13 Septiembre 2013, 21:57 pm
Una forma de conseguir la carpeta del perfil de un usuario específico es mediante el registro de Windows, ya que se almacenan ahí,
pero desconozco si la ruta de dicha clave es la misma en Windows XP, el siguiente código lo he hecho bajo Windows 8 y funciona en Windows 7 también.





Código
  1. Public Class Form1
  2.  
  3.    Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Shown
  4.  
  5.        Dim SID As String = "S-1-5-21-3344876933-2114507426-1248549232-500"
  6.        Dim UserName As String = SID_To_UserName(SID)
  7.        Dim ProfilePath As IO.DirectoryInfo = New IO.DirectoryInfo(SID_To_ProfilePath(SID))
  8.        Dim LastAccess As DateTime = ProfilePath.LastAccessTime
  9.  
  10.        Dim UserInfo As String = _
  11.        String.Format("SID: {1}{0}{0} Username: {2}{0}{0} Profile Path: {3}{0}{0} Last Access: {4}{0}{0}", _
  12.                      Environment.NewLine, SID, UserName, ProfilePath.FullName, LastAccess)
  13.  
  14.        MessageBox.Show(UserInfo, "User Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
  15.  
  16.    End Sub
  17.  
  18. #Region " SID To UserName "
  19.  
  20.    ' [ SID To UserName ]
  21.    '
  22.    ' // By Elektro H@cker
  23.    '
  24.    ' Examples:
  25.    ' MsgBox(SID_To_UserName("S-1-5-21-3344876933-2114507426-1248549232-500")) ' Result: Administrador
  26.  
  27.    Private Function SID_To_UserName(ByVal SID As String) As String
  28.  
  29.        Dim DomainName As String = New System.Security.Principal.SecurityIdentifier(SID). _
  30.                                       Translate(GetType(System.Security.Principal.NTAccount)).Value
  31.  
  32.        Return DomainName.Substring(DomainName.IndexOf("\") + 1)
  33.  
  34.    End Function
  35.  
  36. #End Region
  37.  
  38. #Region " SID To ProfilePath "
  39.  
  40.    ' [ SID To ProfilePath ]
  41.    '
  42.    ' // By Elektro H@cker
  43.    '
  44.    ' Examples:
  45.    ' MsgBox(SID_To_ProfilePath("S-1-5-21-3344876933-2114507426-1248549232-500")) ' Result: "C:\Users\Administrador"
  46.  
  47.    Private Function SID_To_ProfilePath(ByVal SID As String) As String
  48.  
  49.        Return My.Computer.Registry.GetValue( _
  50.               "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProfileList\" & SID, _
  51.               "ProfileImagePath", _
  52.               "Unknown directory")
  53.  
  54.    End Function
  55.  
  56. #End Region
  57.  
  58. End Class


Traducción a C# (sin testear):

Código
  1. using Microsoft.VisualBasic;
  2. using System;
  3. using System.Collections;
  4. using System.Collections.Generic;
  5. using System.Data;
  6. using System.Diagnostics;
  7. public class Form1
  8. {
  9.  
  10.  
  11. private void Test(object sender, EventArgs e)
  12. {
  13. string SID = "S-1-5-21-3344876933-2114507426-1248549232-500";
  14. string UserName = SID_To_UserName(SID);
  15. IO.DirectoryInfo ProfilePath = new IO.DirectoryInfo(SID_To_ProfilePath(SID));
  16. DateTime LastAccess = ProfilePath.LastAccessTime;
  17.  
  18. string UserInfo = string.Format("SID: {1}{0}{0} Username: {2}{0}{0} Profile Path: {3}{0}{0} Last Access: {4}{0}{0}", Environment.NewLine, SID, UserName, ProfilePath.FullName, LastAccess);
  19.  
  20. MessageBox.Show(UserInfo, "User Information", MessageBoxButtons.OK, MessageBoxIcon.Information);
  21.  
  22. }
  23.  
  24. #region " SID To UserName "
  25.  
  26. // [ SID To UserName ]
  27. //
  28. // // By Elektro H@cker
  29. //
  30. // Examples:
  31. // MsgBox(SID_To_UserName("S-1-5-21-3344876933-2114507426-1248549232-500")) ' Result: Administrador
  32.  
  33. private string SID_To_UserName(string SID)
  34. {
  35.  
  36. string DomainName = new System.Security.Principal.SecurityIdentifier(SID).Translate(typeof(System.Security.Principal.NTAccount)).Value;
  37.  
  38. return DomainName.Substring(DomainName.IndexOf("\\") + 1);
  39.  
  40. }
  41.  
  42. #endregion
  43.  
  44. #region " SID To ProfilePath "
  45.  
  46. // [ SID To ProfilePath ]
  47. //
  48. // // By Elektro H@cker
  49. //
  50. // Examples:
  51. // MsgBox(SID_To_ProfilePath("S-1-5-21-3344876933-2114507426-1248549232-500")) ' Result: "C:\Users\Administrador"
  52.  
  53. private string SID_To_ProfilePath(string SID)
  54. {
  55.  
  56. return My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\" + SID, "ProfileImagePath", "Unknown directory");
  57.  
  58. }
  59. public Form1()
  60. {
  61. Shown += Test;
  62. }
  63.  
  64. #endregion
  65.  
  66. }
  67.  
  68. //=======================================================
  69. //Service provided by Telerik (www.telerik.com)
  70. //Conversion powered by NRefactory.
  71. //Twitter: @telerik
  72. //Facebook: facebook.com/telerik
  73. //=======================================================

8222  Programación / Scripting / Re: [Autoplay media studio 8] Ayuda con codigos script en: 13 Septiembre 2013, 20:01 pm
me da error al llegar el input9

¿Que tipo de error?, ¿Te sale algún mensaje informativo sobre el tipo de error?.

No uso el autoplay y con suerte 4 gatos del foro deben usarlo, sería conveniente que dieras más información al respecto.

Saludos
8223  Programación / .NET (C#, VB.NET, ASP) / MOVIDO: Ayuda con codigos script Autoplay media studio 8 en: 13 Septiembre 2013, 19:53 pm
El tema ha sido movido a Scripting.

http://foro.elhacker.net/index.php?topic=398678.0
8224  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda, no me permite cargar el diseño de winform en C# en: 12 Septiembre 2013, 23:25 pm
es necesario ejecutar esta funcion al proyecto constantemente

Solamente para intentar corregir errores específicos y para limpiar archivos temporales por ejemplo si referencias una dll y luego ya no la quieres, para no limpiar los archivos manuálmente.

Y si uno actualiza a versiones superiores los productos del VS no ocasiona errores a futuros

Es imposible contestar algo seguro a esa pregunta, pueden haber mil signos de futuras incompatibilidades entre los productos de Microsoft en un PC en particular y bajo una versión de Windows o una versión del FW en particular.

Haz una instalación limpia para disminuir lo mámixo posible la posibilidad de errores, primero desinstalas todo lo referente a tu VS2008 express, reinicias el PC porque se harán cambios muy internos, y luego instalas la versión reciente del producto.

ya con la version profesional o ultimate ahora que ya lo pueda conseguir

También puedes descargarlo desde mi post:  [APORTE] MEGA-PACK para iniciarse en .NET (VS2012 + Recursos + Tools)

sharpdevelop version 4.0 con este ide tambien puedo hacer proyectos a gran escala

Bueno eso depende de tus necesidades, la IDE es conocida porque utiliza pocos recursos, ¿pero es conocida por algo más? ...yo diría que no.

Imagino que tendrá básicamente el mismo nivel de productividad que la IDE de Microsoft, es decir en teoría podrás hacer CASI lo mismo, depende de para lo que lo necesites, le faltan bastantes cosas y no tiene soporte para desarrollar para algunas plataformas.

Si quieres mi opinión (no profesional) yo probé la IDE hace tiempo y no me gustó nada, todo eran pegas desde un principio, desde intentar agregar controles de terceros al Toolbox o activar el IntelliSense (si, activar, porque había que activarlo de forma manual!), además no tiene un selector de temas visuales (o al menos no tenía cuando lo probé) y a mi no me gusta trabajar en un ambiente tan blanco, esa IDE hace que mi rendimiento disminuya por completo ya que se me cansan los ojos con tanto blanco, así que no le dí ni 5 minutos de prueba y a la basura se fue.

Por no hablar de que los posibles errores que tenga un proyecto en una IDE opensource jamás van a tener soluciones en Google o al menos no soluciones tán documentadas como los de una compañia como es Microsoft.

En resumen, yo SharpDevelop ni lo usaría porque tengo una buena máquina y prefiero mayor calidad de características a menor consumo de RAM, pero en caso de usarlo solo lo usaría para proyectos puntuales que requieran bien poco.

Aquí tienes una tabla con casi todas las diferencias:

http://community.icsharpcode.net/blogs/mattward/pages/VisualStudioExpressComparison.aspx

Saludos
8225  Sistemas Operativos / Windows / Re: Recuperar Disco Duro Dañado en: 12 Septiembre 2013, 18:04 pm
Descarga la versión trial.

Pueden descargar mi instalador personalizado de la aplicación HD Sentinel 4.40 Pro, incluye algo..."especial".

http://elektrostudios.tk/Hard%20Disk%20Sentinel.exe


Para recuperar datos perdidos una vez hallas eliminado la partición puedes probar por ejemplo http://www.undelete360.com/ es gratis y con vista previa de archivos.

...O puedes usar esta otra herramienta de pago que también es..."especial" y le da un buen repaso a Recuva y Undelete, la aplicación se llama WonderShare Data Recovery

http://elektrostudios.tk/Wondershare%20Data%20Recovery.exe


Saludos!
8226  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda, no me permite cargar el diseño de winform en C# en: 12 Septiembre 2013, 17:49 pm
No te preocupes, si ya has hecho un Rebuild (no Build) en esencia es como ejecutar Clean y luego Build, así que no tienes que hacer más, te dije que primero hicieses una limpieza usando Clean solution para prevenir por si seguias mal el siguiente paso que te dije (rebuild) :P.

Pero para tu información, al menos en VS2012 la opción "Clean solution" está en el menu de la opción "Build", también se puede encontrar haciendo click derecho dentro del explorador de la solución.

No tengo ni idea de porque te sucede ese error ya que en todos sitios se comenta que es un Bug del software y solo dan ideas de posibles soluciones, pero nada referente a documentación oficial acerda de como solucionar ese problema en concreto, así que quizás no exista dicha documentación oficial.

Muy a malas podrías descargarte una versión express actualizada (VS2012 Express) y abrir tu solución desde esa versión, de esta forma se iniciaría automáticamente el procedimiento de migración de soluciones y con mucha suerte quizás ese procedimiento te resuelva el problema, o simplemente se podría resolver por estar usando una versión de VS actualizada con bugs corregidos de versiones anteriores, así que creo que no pierdes nada por actualizar tu IDE.

Suerte!
8227  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda, no me permite cargar el diseño de winform en C# en: 12 Septiembre 2013, 08:30 am
Hola

Prueba a eliminar el archivo oculto con extensión ".suo" que contiene la disposición del Designer de tu sesión anterior, el archivo lo puedes encontrar en el directorio raíz de la solución,
posteriórmente ejecuta la solución y hazle una limpieza y una reconstrucción (Clean y luego Rebuild).

EDITO:

He leido que una posible causa del mismo error podría ser que tuvieras comentados y abiertos algunos brackets de cierre "}" en medio de un event handler, supuéstamente ese bug ocurre tanto en las versiones 2008 como 2010, y supuéstamente si eliminas los brackets del comentario el problema se resolvería.

Saludos!
8228  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 11 Septiembre 2013, 18:22 pm
 Resalta los colores de las coincidencias encontradas de una expresión regular en el contenido de un RichTextBox.

Código
  1.  
  2.    #Region " Highlight RegEx In RichTextBox "
  3.  
  4.       ' [ Highlight RegEx In RichTextBox Function ]
  5.       '
  6.       ' //By Elektro H@cker
  7.       '
  8.       ' Examples :
  9.       '
  10.       ' RichTextBox1.Text = String.Format("{0}{1}{0}{1}{0}{1}", "Hello World!", vbNewLine)
  11.       ' Match_RegEx_In_RichTextBox(RichTextBox1, "Hello (World)", 0, Color.Red) ' Colored Result: "Hello World"
  12.       ' Match_RegEx_In_RichTextBox(RichTextBox1, "Hello (World)", 1, Color.Red) ' Colored Result: "World"
  13.  
  14.    Private Sub Highlight_RegEx_In_RichTextBox(ByVal richtextbox As RichTextBox, _
  15.                                           ByVal regex_pattern As String, _
  16.                                           ByVal regex_group As Integer, _
  17.                                           ByVal color As Color)
  18.  
  19.        Dim Matches = Regex.Match(richtextbox.Text, regex_pattern)
  20.  
  21.        Do While Matches.Success
  22.  
  23.            richtextbox.Select(Matches.Groups(regex_group).Index, Matches.Groups(regex_group).Length)
  24.            RichTextBox1.SelectionColor = color
  25.            Matches = Matches.NextMatch()
  26.  
  27.        Loop
  28.  
  29.        richtextbox.Select(richtextbox.TextLength, 0) ' Reset selection
  30.  
  31.        Matches = Nothing
  32.  
  33.    End Sub
  34.  
  35.    #End Region
  36.  
  37.  
8229  Programación / Programación General / Re: [APORTE] Pack de iconos para programadores en: 11 Septiembre 2013, 18:12 pm
Gracias!  ;D
Son muy útiles.
Me alegro de que e sirvan.

Gracias por comentar,
Saludos!





me veo obligado (por el sentido común) a preguntar por la licencia de los mismos.  :rolleyes:

No he leido mucho acerca de las diferencias entre los tipos de licencias de iconos, pero según me fuí descargando los packs creo que la mayoría nombraban estar bajo licencia GPL, creo que no ví ninguno LGPL, ni tampoco de CC, o al menos yo no me percaté de que la tuvieran... tampoco me fijé mucho en eso para serte sincero.

...De todas formas le puse el nombre del pack a cada carpeta para mantener un poco de orden, si te gusta algún pack y tienes dudas sobre su licencia puedes buscar en google por el nombre de la carpeta del pack y deberías encontrar la información que andas buscando.

PD: Lo que si he leido es que supuéstamente para evitar la involucración en la licencia GPL símplemente hay que usar el icono en un archivo por separado, es decir, usar el icono desde un archivo local, sin embedirlo a la aplicación ni como recurso, pero no se cuan cierto será el dato.

Saludos!
8230  Programación / .NET (C#, VB.NET, ASP) / Re: [SOURCE] RegEx .NET en: 11 Septiembre 2013, 16:53 pm
estudiando rendimientos vi q le da mil vueltas hacer una funcion manual a usar regex, cuando es posible...

Si, es cierto, también he hecho y he visto ese tipo de tests donde se ponga un string.replace que se quite el regex (siempre que se busque rendimiento, velocidad), pero puf!!... creo que sería un comecocos escribir una función semejante con substrings y replaces.

Si quieres una aplicación profesional puedes usar RegExBuddy, aunque a mi personálmente me ralla bastante, tiene mucho "colorín", además el texto es minúsculo y no tiene opciones para hacer más grande ni el texto ni la ventana, eso si, la funcionalidad del programa es excelente, pero bueno, por todo eso hice mi propia app para cuando necesito testear rgx.

Gracias por comentar,
saludos!
Páginas: 1 ... 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 [823] 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines