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


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 ... 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 [915] 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 ... 1253
9141  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 31 Mayo 2013, 13:27 pm
Una función para devolver una lista con todas las coincidencias de un RegEx:

Código
  1. #Region " RegEx Matches To List "
  2.  
  3.    ' [ RegEx Matches To List Function ]
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    ' Dim str As String = "<span class=""genres""><a href=""http://www.mp3crank.com/genre/alternative"" rel=""tag"">Alternative</a> / <a href=""http://www.mp3crank.com/genre/indie"" rel=""tag"">Indie</a> / <a href=""http://www.mp3crank.com/genre/rock"" rel=""tag"">Rock</a></span>"
  9.    ' For Each match In RegEx_Matches_To_List(str, <a><![CDATA[tag">(\w+)<]]></a>.Value) : MsgBox(match) : Next
  10.  
  11.    Private Function RegEx_Matches_To_List(ByVal str As String, ByVal RegEx_Pattern As String) As List(Of String)
  12.  
  13.        Dim match As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(str, RegEx_Pattern)
  14.        Dim Match_List As New List(Of String)
  15.  
  16.        Do While match.Success
  17.            Match_List.Add(match.Groups(1).ToString)
  18.            match = match.NextMatch()
  19.            Application.DoEvents()
  20.        Loop
  21.  
  22.        Return Match_List
  23.  
  24.    End Function
  25.  
  26. #End Region





Unas cuantas expresiones regulares que he escrito para facilitar algunas taréas:

Código
  1.  
  2.    ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
  3.    ' MsgBox(Match_RegEx_MainBase_Url(Str)) ' Result: http://www.mp3crank.com
  4.  
  5.    Private Function Match_RegEx_MainBase_Url(ByVal str As String) As String
  6.  
  7.        ' Match criteria:
  8.        '
  9.        ' http://url.domain
  10.        ' https://url.domain
  11.        ' www.url.domain
  12.  
  13.        Dim RegEx As New System.Text.RegularExpressions.Regex( _
  14.        <a><![CDATA[(http://|https://|www).+\.[0-9A-z]]]></a>.Value)
  15.  
  16.        Return RegEx.Match(str).Groups(0).ToString
  17.    End Function

Código
  1.  
  2.    ' Dim str As String = <a><![CDATA[<href="http://www.mp3crank.com/feed"]]></a>.Value
  3.    ' MsgBox(Match_RegEx_Url(str)) ' Result: http://www.mp3crank.com/feed
  4.  
  5.    Private Function Match_RegEx_Url(ByVal str As String) As String
  6.  
  7.        ' Match criteria:
  8.        '
  9.        ' http://url
  10.        ' https://url
  11.        ' www.url
  12.  
  13.        Dim RegEx As New System.Text.RegularExpressions.Regex( _
  14.        <a><![CDATA[(http://|https://|www).+\b]]></a>.Value)
  15.  
  16.        Return RegEx.Match(str).Groups(0).ToString
  17.    End Function

Código
  1.  
  2.    ' Dim str As String = <a><![CDATA[href="http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm"]]></a>.Value
  3.    ' MsgBox(Match_RegEx_htm_html(str)) ' Result: http://www.mp3crank.com/the-rolling-stones/deluxe-edition.htm
  4.  
  5.    Private Function Match_RegEx_htm_html(ByVal str As String) As String
  6.  
  7.        ' Match criteria:
  8.        '
  9.        ' http://Text.htm
  10.        ' http://Text.html
  11.        ' https://Text.htm
  12.        ' https://Text.html
  13.        ' www.Text.htm
  14.        ' www.Text.html
  15.  
  16.        Dim RegEx As New System.Text.RegularExpressions.Regex( _
  17.        <a><![CDATA[(http://|https://|www).*\.html?]]></a>.Value)
  18.  
  19.        Return RegEx.Match(str).Groups(0).ToString
  20.    End Function

Código
  1.  
  2.    ' Dim str As String = <a><![CDATA[href=>Drifter - In Search of Something More [EP] (2013)</a>]]></a>.Value
  3.    ' MsgBox(Match_RegEx_Tag(str)) ' Result: Drifter - In Search of Something More [EP] (2013)
  4.  
  5.    Private Function Match_RegEx_Tag(ByVal str As String) As String
  6.  
  7.        ' Match criteria:
  8.        '
  9.        ' >..Text..<
  10.  
  11.        Dim RegEx As New System.Text.RegularExpressions.Regex( _
  12.        <a><![CDATA[>([^<]+?)<]]></a>.Value)
  13.  
  14.        Return RegEx.Match(str).Groups(1).ToString
  15.    End Function
9142  Programación / .NET (C#, VB.NET, ASP) / Re: [APLICACIÓN] ComRem 1.3 en: 31 Mayo 2013, 12:46 pm
Para esto ya esta TeamViewer, añade alguna funcionalidad más aparte?

Tienes menos delicadeza que yo (a veces) xD.



@El Benjo

Antes de nada, gracias por compartir, tu intención es buena, pero sin ánimo de ofender, ¿De que nos sirve esto sin el source?, de ahí mi pregunta anterior.

Una norma de cualquier foro de esta temática es compartir las aplicaciones programadas incluyendo el código fuente, sinó, el aporte se elimina, y las razones son obvias, te las puedes imaginar (virus de lammers), no basta con dar "palabra de honor" de que no contiene virus,
además, esto deja de ser un aporte educativo si no hay source, y entonces no debería estar publicado en .NET sinó en Software, con el resto de software NO libre para descargar.

...Aunque en las normas de programación de elhacker.net no está escrita dicha norma, me imagino que porque se les ha pasado esa norma, o porque es demasiado obvia (Como difundir el robo, la pederástia, o los delitos en si mismos, etc),
que me corrija NovLucker o Seba si me equivoco y si publicar programas sin código fuente en los subforos de programación está permitido en elhacker.net (reálmente eso me sorprendería, espero no meter la pata).

Un saludo!
9143  Programación / Scripting / Re: [BATCH] [ANDROID] A ver si se podria hacer esto... :D en: 31 Mayo 2013, 11:01 am
Hola,
Antes de nada, usa títulos descriptivos, no cosas como "ayuda" o "¿como se puede hacer esto?".





Utiliza un FOR para recorrer los archivos que quieras y efectuar cada acción con cada archivo del recorrido.

Código:
For %%# in ("C:\*.*") do (Echo %%#)

Código:
For %%# in ("C:\*.apk") do (
    java -Xmx1024m -jar baksmali.jar -c core.jar:core-junit.jar:bouncycastle.jar:ext.jar:framework.jar:framework2.jar:android.policy.jar:services.jar:apache-xml.jar:com.lge.core.jar -x "%%~f#"
)

...Lo mismo si necesitas automatizar algo con las carpetas, utiliza un FOR /D.

Saludos
9144  Programación / Scripting / Re: ayuda comando At y msg* en: 31 Mayo 2013, 10:41 am
No puedes, el comando AT no ofrece casi funcionalidades,
en su lugar usa el comando SCHTASKS para crear una taréa programada repetitiva de 5 minutos.

Código
  1. schtasks /create /tn "Nombre de tarea" /tr "msg.exe * Texto" /sc minute /mo 5

Saludos.
9145  Programación / Scripting / Re: Script Batch Para Subir archivo a FTP en: 31 Mayo 2013, 10:36 am
Un archivo de texto plano no es un archivo binário, prueba así:

Código
  1. open ftp.soportehosting.com.ar
  2. usuario
  3. password
  4. ascii
  5. put "c:\datos.txt"
  6. quit

...O diréctamente sin definir el tipo de transferencia de datos (ascii/binary).
9146  Programación / .NET (C#, VB.NET, ASP) / Re: [APLICACIÓN] ComRem 1.3 en: 31 Mayo 2013, 10:02 am
Hola El Benjo.

Una pregunta, ¿Tienes intención de compartir el source?.
9147  Programación / .NET (C#, VB.NET, ASP) / Re: Problema al mostrar el Form Parent en: 31 Mayo 2013, 09:32 am
Tienes algún tipo de código conflictivo en el form principal o el form secundario, un show/hide debería funcionar sin problemas, pero yo no te recomiendo que uses la propiedad visible ni que uses el método show/hide.

...En lugar de eso usa "Dispose" para liberar todos los recursos utilizados por el form secundario, así se pierde "el código conflictivo" y lo instancias desde cero la próxima vez al usar "Show".

Código:
Form2.Show()
Form2.Dispose()
Form2.Show()

Si eso te sigue sin funcionar, chungo... habría que fijarse entonces en el form principal.

Saludos!
9148  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 31 Mayo 2013, 09:27 am
Cancelar el evento OnMove

Código
  1.    #Region " Cancel Move Form "
  2.  
  3.       ' Examples:
  4.       ' Me.Moveable = False
  5.       ' Me.Moveable = True
  6.  
  7.       Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32
  8.  
  9.       Private bMoveable As Boolean = True
  10.  
  11.       Public Overridable Property Moveable() As Boolean
  12.           Get
  13.               Return bMoveable
  14.           End Get
  15.           Set(ByVal Value As Boolean)
  16.               If bMoveable <> Value Then
  17.                   bMoveable = Value
  18.               End If
  19.           End Set
  20.       End Property
  21.  
  22.       Protected Overrides Sub WndProc(ByRef m As Message)
  23.  
  24.           If m.Msg = &H117& Then
  25.               'Handles popup of system menu.
  26.               If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword.
  27.                   Dim AbleFlags As Int32 = &H0&
  28.                   If Not Moveable Then AbleFlags = &H2& Or &H1&
  29.                   EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags)
  30.               End If
  31.           End If
  32.  
  33.           If Not Moveable Then
  34.               'Cancels any attempt to drag the window by it's caption.
  35.               If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return
  36.               'Redundant but cancels any clicks on the Move system menu item.
  37.               If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return
  38.           End If
  39.  
  40.           'Return control to base message handler.
  41.           MyBase.WndProc(m)
  42.  
  43.       End Sub
  44.  
  45.    #End Region
9149  Programación / .NET (C#, VB.NET, ASP) / Re: Mostrar/Ocultar en: 31 Mayo 2013, 09:24 am
Aprovecho de una ves... y como hago para no mover el form.. es decir bloquearlo

que cuando se abra no se pueda mover

La manera sencilla:

Código
  1.    Dim Fixed_Location As Point ' = New Point(X, Y) ' Seteamos el valor por defecto.
  2.  
  3.    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  4.        ' ...O seteamos el valor por defecto cuando la ventana se haya creado.
  5.        Fixed_Location = New Point(Me.Location.X, Me.Location.Y)
  6.    End Sub
  7.  
  8.    Private Sub Form1_Move(sender As Object, e As EventArgs) Handles MyBase.Move
  9.        If Me.Visible Then Me.Location = Fixed_Location
  10.    End Sub

Después de hacerlo me he encontrado con el problema de que el layer de la ventana se sigue dibujando por la pantalla si se mantiene el botón del mouse para intentar arrastrarlo, es una cosa sin importancia, pero como me gusta la eficacia, al final he buscado la manera de hacerlo usando los mensajes de Windows:

(Este código no es mío)
Código
  1. #Region " Cancel Move Form "
  2.  
  3.    ' Examples:
  4.    ' Me.Moveable = False
  5.    ' Me.Moveable = True
  6.  
  7.    Private Declare Function EnableMenuItem Lib "user32.dll" Alias "EnableMenuItem" (ByVal hMenu As IntPtr, ByVal uIDEnableItem As Int32, ByVal uEnable As Int32) As Int32
  8.  
  9.    Private bMoveable As Boolean = True
  10.  
  11.    Public Overridable Property Moveable() As Boolean
  12.        Get
  13.            Return bMoveable
  14.        End Get
  15.        Set(ByVal Value As Boolean)
  16.            If bMoveable <> Value Then
  17.                bMoveable = Value
  18.            End If
  19.        End Set
  20.    End Property
  21.  
  22.    Protected Overrides Sub WndProc(ByRef m As Message)
  23.  
  24.        If m.Msg = &H117& Then
  25.            'Handles popup of system menu.
  26.            If m.LParam.ToInt32 \ 65536 <> 0 Then 'divide by 65536 to get hiword.
  27.                Dim AbleFlags As Int32 = &H0&
  28.                If Not Moveable Then AbleFlags = &H2& Or &H1&
  29.                EnableMenuItem(m.WParam, &HF010&, &H0& Or AbleFlags)
  30.            End If
  31.        End If
  32.  
  33.        If Not Moveable Then
  34.            'Cancels any attempt to drag the window by it's caption.
  35.            If m.Msg = &HA1 Then If m.WParam.ToInt32 = &H2 Then Return
  36.            'Redundant but cancels any clicks on the Move system menu item.
  37.            If m.Msg = &H112 Then If (m.WParam.ToInt32 And &HFFF0) = &HF010& Then Return
  38.        End If
  39.  
  40.        'Return control to base message handler.
  41.        MyBase.WndProc(m)
  42.  
  43.    End Sub
  44.  
  45. #End Region

Saludos...
9150  Sistemas Operativos / Windows / Re: Net.Framework 3.5 en: 30 Mayo 2013, 19:24 pm
Windows 8 trae instalado por defecto Framework 4.5,
esto quiere decir que incluye las librerías de Framework 2.0, 3.0, 3.5, 4.0 y 4.5.

En palabras simples: No necesitas instalar una versión inferior de Framework en Windows 8 para ejecutar utorrent o cualquier otro programa que necesite Framework.

¿Duda resuelta? :P

PD: Lo siento pero tengo que decirlo: No creo que te costase nada intentar instalar dichos programas en Windows 8 para ver que pasaba, en lugar de comerte la cabeza intentando instalar "X" versión de Framework, ya sé que ...bueno, que no es tu culpa, no lo sabías, pero podrías haberlo intentado en un fín de semana entero, digo yo :xD.

EDITO: Según un comentario de Simorg, es posible que en Windows XP esto no séa igual, puede que Windows XP esté mal gestionado en el tema "Framework" y séa más independiente obligando a tener varias versiones instaladas para ejecutar ciertos programas, pero al menos en Windows 7/8 esto es como lo he explicado.

EDITO 2:
Para ser más exactos (Sacado de MSDN):
Teniendo Framework 3.5 puedes ejecutar aplicaciones que requieran fw 2.0, 3.0 y 3.5.
Teniendo Framework 4.0 intalado no puedes ejecutar aplicaciones que requieran 2.0, 3.0 o 3.5.
Teniendo instalado Framework 4.5, puedes ejecutar todas las versiones anteriores.

Framework 3.5 incluye todas las librerías necesarias para ejecutar aplicaciones que requieran 2.0, 3.0 y 2.5, porque Framework 3.5 es un "2.0" en si mismo, por esa razón, yo pienso que es una tremenda tontería tener instalado al mismo tiempo framework 3.5 justo alguna de sus versiones anteriores.
Framework 4.0 es "el siguiente paso" del Framework, usa un nuevo "layering" y por eso no es compatible con las versiones anteriores. (Aunque no me atrevo a desmentir a Microsoft, pero yo sólamente con FW 4.0 instalado y el 3.5 capado en un Windows puedo ejecutar aplicaciones de 2.0 y 3.5)
Framework 4.5 es una actualización de la versión 4.0 (igual que la 3.5 es del 3.0), que incluye todo lo necesario para ejecutar todas las versiones (aunque no sé si la versión 1.0 y 1.1 están incluidas en el 4.5, sincéramente, no voy a buscar información de hace décadas)

EDITO 3:
Y según MSDN puedes instalar .NET Framework 3.5 SP1 (ServicePack 1) en Windows 8, pero no explican porqué, yo imagino que los propósitos estarán más bien relacionados con la programación o para testear compatibilidades etc... más que con la ejecución de aplicaciones que requieran FW 3.5, porque al estar el 4.5, se supone que no se requiere.

Un saludo!
Páginas: 1 ... 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 [915] 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 ... 1253
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines