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


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 [997] 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 ... 1253
9961  Programación / .NET (C#, VB.NET, ASP) / Re: [APORTE] Snippets (ACTUALIZADO 12/01/2013) Posteen aquí sus snippets!! en: 12 Enero 2013, 20:36 pm
Otro convertidor, en esta ocasión un convertidor de tiempo, ms, segundos, minutos, horas.


Código
  1. #Region " Convert Time Function"
  2.  
  3.    ' // By Elektro H@cker
  4.    '
  5.    ' MsgBox(Convert_Time(1, "h", "m"))
  6.    ' MsgBox(Convert_Time(1, "h", "s"))
  7.    ' MsgBox(Convert_Time(1, "h", "ms"))
  8.    ' MsgBox(Convert_Time(6000, "milliseconds", "seconds"))
  9.    ' MsgBox(Convert_Time(6000, "seconds", "minutes"))
  10.    ' MsgBox(Convert_Time(6000, "minutes", "hours"))
  11.  
  12.    Private Function Convert_Time(ByVal Time As Int64, ByVal Input_Time_Format As String, ByVal Output_Time_Format As String)
  13.        Dim Time_Span As New TimeSpan
  14.        If Input_Time_Format.ToUpper = "MS" Or Output_Time_Format.ToUpper = "MILLISECONDS" Then Time_Span = New TimeSpan(TimeSpan.TicksPerMillisecond * Time)
  15.        If Input_Time_Format.ToUpper = "S" Or Output_Time_Format.ToUpper = "SECONDS" Then Time_Span = New TimeSpan(TimeSpan.TicksPerSecond * Time)
  16.        If Input_Time_Format.ToUpper = "M" Or Output_Time_Format.ToUpper = "MINUTES" Then Time_Span = New TimeSpan(TimeSpan.TicksPerMinute * Time)
  17.        If Input_Time_Format.ToUpper = "H" Or Output_Time_Format.ToUpper = "HOURS" Then Time_Span = New TimeSpan(TimeSpan.TicksPerHour * Time)
  18.        If Output_Time_Format.ToUpper = "MS" Or Output_Time_Format.ToUpper = "MILLISECONDS" Then Return Time_Span.TotalMilliseconds
  19.        If Output_Time_Format.ToUpper = "S" Or Output_Time_Format.ToUpper = "SECONDS" Then Return Time_Span.TotalSeconds
  20.        If Output_Time_Format.ToUpper = "M" Or Output_Time_Format.ToUpper = "MINUTES" Then Return Time_Span.TotalMinutes
  21.        If Output_Time_Format.ToUpper = "H" Or Output_Time_Format.ToUpper = "HOURS" Then Return Time_Span.TotalHours
  22.        Return False ' Returns false if argument is in incorrect format
  23.    End Function
  24.  
  25. #End Region
  26.  
9962  Programación / .NET (C#, VB.NET, ASP) / Re: Como aplicar cambios al registro y refrescar el sistema sin tener que reiniciar? en: 12 Enero 2013, 18:44 pm
Sigo sin saber nada xD.

9963  Programación / .NET (C#, VB.NET, ASP) / Re: El proyecto no me reconoce las imagenes que incluyo en: 12 Enero 2013, 18:43 pm
La solución era agregarlos desde el menú de propiedades de la aplicación, y en la sección adecuada imagenes en la sección "Images", archivos de texto en la sección "Texts", etc...

Sigo sin saber porque si arrastro los recursos directamente nos e reconocen, pero bueno, pa que hacer las cosas mal...

Saludos.
9964  Programación / .NET (C#, VB.NET, ASP) / [solucionado] Como simular el método "performclick" de un botón? en: 12 Enero 2013, 18:17 pm
Hola,

Estoy usando un botón extendido que no dispone del método "performclick"

Esto no puedo hacerlo:
Código
  1. If "a" = "a" then Button1.performclick()
Puedo escribir el método y no me salta excepción, pero no sucede nada, y he leido el mismo tipo de problema en la página del autor, en CodeProject.

La pregunta es... ¿Puedo simularlo de alguna manera? (Que no séa clickando el botón por coordenadas...  :xD)

Dispongo del source del botón, por si saben como implementar el método...

Gracias por leer.
9965  Programación / .NET (C#, VB.NET, ASP) / Re: [APORTE] Snippets (ACTUALIZADO 12/01/2013) Posteen aquí sus snippets!! en: 12 Enero 2013, 18:00 pm
He actualizado el pack de Snippets en el post principal (Antes eran 76, ahora 114)

Si alguien quiere que incluya un pack con sus snippets en el post principal porfavor que me pase los snippets en formato de snippet (Archivo.snippet).

Y añado este snippet, un delimitador de strings, es parecido al método "Split", pero bajo mi opinión lo he mejorado bastante!

· Acepta 1 o 2 delimitadores,
· Opción de IgnoreCase
· Delimitar de izquierda a derecha o de derecha a izquierda.

Saludos!

Código
  1. #Region " Delimit_String Function "
  2.  
  3.    ' // By Elektro H@ker
  4.    '
  5.    ' USAGE:
  6.    '
  7.    ' MsgBox(Delimit_String("Welcome to my new house", "to")) ' my new house
  8.    ' MsgBox(Delimit_String("Welcome to my new house", "to", "house")) ' my new
  9.    ' MsgBox(Delimit_String("Welcome to my new house", "TO", "HoUSe", True)) ' my new
  10.    ' MsgBox(Delimit_String("Welcome to my new house", "house", "to", , "Left")) ' my new
  11.    ' MsgBox(Delimit_String("Welcome to my new house", "TO", "HoUSe", False)) ' False
  12.    ' MsgBox(Delimit_String("Welcome to my new house", "to", "to", , "Left")) ' Index was outside bounds of the array
  13.  
  14.    Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = "", Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
  15.        Dim Compare_Method As Integer = 0 ' Don't ignore case
  16.        If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
  17.  
  18.        If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" _
  19.            Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
  20.  
  21.        If Compare_Method = 0 Then
  22.            If Not STR.Contains(Delimiter_A) Or Not STR.Contains(Delimiter_B) _
  23.                Then Return False ' Returns false if one of the delimiters in NormalCase can 't be found
  24.        Else
  25.            If Not STR.ToUpper.Contains(Delimiter_A.ToUpper) Or Not STR.ToUpper.Contains(Delimiter_B.ToUpper) _
  26.            Then Return False ' Returns false if one of the delimiters in IgnoreCase can 't be found
  27.        End If
  28.  
  29.        Try
  30.            If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0) _
  31.                Else If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1)
  32.  
  33.            If Delimiter_B IsNot Nothing Then
  34.                If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1) _
  35.                 Else If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0)
  36.            End If
  37.  
  38.            Return STR ' Returns the splitted string
  39.        Catch ex As Exception
  40.            Return ex.Message ' Returns exception if index is out of range
  41.        End Try
  42.    End Function
  43.  
  44. #End Region

9966  Seguridad Informática / Hacking Wireless / Re: el handshake puede ser clave en wifislay ? en: 12 Enero 2013, 16:52 pm
Hay muchas utilidades para generar diccionarios,

Una forma lenta (Pero muy buena y diversa) es esta: [Batch] Ice Gen 1.0 (Generador de Wordlist,Combolist,WEP,WPA,Serial,Cookies,IP)

Saludos
9967  Programación / .NET (C#, VB.NET, ASP) / Re: Duda con conseguir un certificado de windows en: 12 Enero 2013, 16:48 pm
Hola,

Respondo a tu privado: "Sé de lo que hablas pero yo soy nuevo en .NET, todavía no he profundizado en certificados xD"

Y añado: Hay utilidades commandline de terceros (Y de Microsoft) para firmar digitalmente un ejecutable,
No recuerdo el nombre de ninguna de estas tools, tampoco sé si es exactamente lo que necesitas, pero ya tienes algo que buscar en Google jaja.

PD: En uno de los Windows SDK Tools encuentras la utilidad de Microsoft, era algo como signer.exe o sign.exe, y en una utilidad de terceros commandline, tenía un servicio online donde te generaba una key automáticamente, si no recuerod mal.

Saludos!

9968  Programación / .NET (C#, VB.NET, ASP) / Re: Tomar texto de un punto a otro en vb.net en: 12 Enero 2013, 16:39 pm
pero si la segunda opción es más fácil :P

Código
  1. Dim Tu_String = "Bienvenidos todos a mi nueva casa de color verde"
  2. Dim La_String_Delimitada = Delimit_String(Tu_String , "todos", "verde"))
  3.  
  4. MSGBOX(La_String_Delimitada)

Séa como séa me alegro de que te haya servido,

Saludos!
9969  Programación / .NET (C#, VB.NET, ASP) / Re: Tomar texto de un punto a otro en vb.net en: 12 Enero 2013, 15:16 pm
Creo que esto es lo que quiero según tus indicaciones:

Código
  1.        Dim STR As String = "bienvenidos todos a mi nueva casa de color verde"
  2.        Dim Delimitador_A As String = "todos"
  3.        Dim Delimitador_B As String = "verde"
  4.  
  5.        STR = Split(STR, Delimitador_A, , CompareMethod.Text)(1) '  Aquí tomo todo lo que hay a la derecha del primer delimitador
  6.        STR = Split(STR, Delimitador_B, , CompareMethod.Text)(0) ' Aquí tomo todo lo que hay a la izquierda del segundo delimitador
  7.  
  8.        MsgBox(STR) ' a mi nueva casa de color

Saludos!



EDITO:

Te lo voy a poner más fácil:

Código
  1. #Region " Delimit_String Function "
  2.  
  3.    ' // By Elektro H@ker
  4.    '
  5.    ' USAGE:
  6.    '
  7.    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos")) ' a mi nueva casa de color verde
  8.    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos", "verde")) ' a mi nueva casa de color
  9.    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", True)) ' a mi nueva casa de color
  10.    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", False)) ' False
  11.    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "verde", "todos", , "Left")) ' a mi nueva casa de color
  12.  
  13.    Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = Nothing, Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
  14.        Dim Compare_Method As Integer = 0 ' Don't ignore case
  15.        If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
  16.  
  17.        If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
  18.  
  19.        Try
  20.            If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1) _
  21.                Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0)
  22.  
  23.            If Delimiter_B IsNot Nothing Then
  24.                If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0) _
  25.                 Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1)
  26.            End If
  27.  
  28.            Return STR ' Returns the splitted string
  29.  
  30.        Catch
  31.            Return False ' Returns false if the delimiter "A" or "B" can't be found (Index is out or fange)
  32.        End Try
  33.    End Function
  34.  
  35. #End Region
9970  Programación / Scripting / Re: .batch resetear modem en: 12 Enero 2013, 14:51 pm
Si tu IP es estática siempre puedes usar un proxy gratis, o esperar a que tu ISP te renueve la IP (A mi a los 30 días o así me la cambian xD).

http://ultrasurf.us/
Páginas: 1 ... 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 [997] 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 ... 1253
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines