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 ... 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 [868] 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 ... 1236
8671  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 3 Julio 2013, 15:54 pm
Que el archivo no se descargaba, no lo hablamos ayer? xD

claro, quiero decir que ¿Como lo arreglaste? que correcciones habia que hacerle? xD
8672  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 3 Julio 2013, 14:31 pm
Ahora si va. ;D

No quiero desvirtuar mucho el tema, pero por curiosidad cual era el fallo?
8673  Programación / Scripting / Re: Dejar algún tipo de registro al abrir un Batch en: 2 Julio 2013, 21:33 pm
La forma en la que estás usando el comando es la correcta para ejecutar la ventana del hta minimizada, quizás el problema debe estar en el contenido de ese script hta.

PD: Aunque el /wait te lo puedes ahorrar, no es necesario.

Yo no he querido decir nada, pero a mi todo esto de hacer una aplicación en VB.NET para luego usar hta y bats me parece una insensatez, pero lo que me parece complétamente innecesario es tener que recurrir a un programa como WinRar, porque no creo que ningún programador en su sano juicio use o se le pase por la cabeza usar WinRar para distribuir su aplicación de manera oficial... existe algo que se llama "Install builder", que es mucho mejor que hacer un doble sfx junto a un script bat, y otro script hta, y no se cuantas cosas más ...según tu tutorial.

Luego no te extrañes si tu instalador SFX es detectado por 30 antivirus... porque es lo que te va a pasar.

Es mi opinión, guste o no.

Saludos!
8674  Programación / Scripting / Re: Dejar algún tipo de registro al abrir un Batch en: 2 Julio 2013, 19:28 pm
Me gustaría dejar algún tipo de registro sin tener que abrir un navegador eso es posible?

¿Que entiendes por "algún tipo de registro"?

¿Que quieres hacer?.
8675  Programación / .NET (C#, VB.NET, ASP) / Re: Asi va quedando mi rpg game engine en: 2 Julio 2013, 17:03 pm
Siempre quise hacer un juego 2D con el RPG Maker (Pero nunca lo llegué a probar por falta de gráficos ...y de ganas xD),
Tiene buenísma pinta, y la aplicaición es digna de admiración.

+10

Saludos!
8676  Sistemas Operativos / Windows / Re: ¿Alguien que tenga algún Windows que no sea el 7 podría hacerme un favor? en: 2 Julio 2013, 15:19 pm
Ingeniería Social?...

Dudo que alguien con 800 mensajes sea así de lammer, para acabar baneado por una tontería, de todas formas yo lo he probado en un win8 virtual por si las moscas  >:D

@OmarHack
En windows 8 x64 se instala, el lynx funciona, los comandos del beta mastershell no lo se, porque no los he encontrado.

PD: si pones "cmd" en el mastershell se ejecuta la cmd y finaliza el mastershell, quizás quieras evitarlo.

saludos
8677  Programación / .NET (C#, VB.NET, ASP) / Re: Librería de Snippets !! (Posteen aquí sus snippets) en: 2 Julio 2013, 07:27 am
He extendido y mejorado la función para buscar texto en la colección de Items de un listview:

PD: la versión antigua la pueden encontrar aquí: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1865639#msg1865639

#Region " [ListView] Find ListView Text "

    ' [ListView] Find ListView Text Function
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Find_ListView_Text(ListView1, "Test"))
    ' MsgBox(Find_ListView_Text(ListView1, "Test", 2, True, True))
    ' If Find_ListView_Text(ListView1, "Test") Then...

    Private Function Find_ListView_Text(ByVal ListView As ListView, _
                                        ByVal SearchString As String, _
                                        Optional ByVal ColumnIndex As Int32 = Nothing, _
                                        Optional ByVal MatchFullText As Boolean = True, _
                                        Optional ByVal IgnoreCase As Boolean = True) As Boolean

        Dim ListViewColumnIndex As Int32 = ListView.Columns.Count - 1

        Select Case ColumnIndex

            Case Is < 0, Is > ListViewColumnIndex ' ColumnIndex is out of range

                Throw New Exception("ColumnIndex is out of range. " & vbNewLine & _
                                    "ColumnIndex Argument: " & ColumnIndex & vbNewLine & _
                                    "ColumnIndex ListView: " & ListViewColumnIndex)

            Case Nothing ' ColumnIndex is nothing

                If MatchFullText AndAlso IgnoreCase Then ' Match full text, All columns, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text.ToLower = SearchString.ToLower Then Return True
                        Next
                    Next
                ElseIf MatchFullText AndAlso Not IgnoreCase Then ' Match full text, All columns, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text = SearchString Then Return True
                        Next
                    Next
                ElseIf Not MatchFullText AndAlso IgnoreCase Then ' Match part of text, All columns, IgnoreCase
                    If ListView1.FindItemWithText(SearchString) IsNot Nothing Then _
                         Return True _
                    Else Return False
                ElseIf Not MatchFullText AndAlso Not IgnoreCase Then ' Match part of text, All columns, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To ListViewColumnIndex
                            If Item.SubItems(X).Text.Contains(SearchString) Then Return True
                        Next
                    Next
                End If

            Case Else ' ColumnIndex is other else

                If MatchFullText AndAlso IgnoreCase Then ' Match full text, ColumnIndex, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.ToLower = SearchString.ToLower Then Return True
                    Next
                ElseIf MatchFullText AndAlso Not IgnoreCase Then  ' Match full text, ColumnIndex, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text = SearchString Then Return True
                    Next
                ElseIf Not MatchFullText AndAlso IgnoreCase Then ' Match part of text, ColumnIndex, IgnoreCase
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.ToLower.Contains(SearchString.ToLower) Then Return True
                    Next
                ElseIf Not MatchFullText AndAlso Not IgnoreCase Then ' Match part of text, ColumnIndex, CaseSensitive
                    For Each Item As ListViewItem In ListView.Items
                        If Item.SubItems(ColumnIndex).Text.Contains(SearchString) Then Return True
                    Next
                End If

        End Select

        Return False

    End Function

#End Region



EDITO:

Vuelto a mejorar:

(El anterior no medía la cantidad de subitems de cada item, por ejemplo en un listview con 3 columnas, un item con dos subitems y otro item con 3 subitems entonces daba error porque el primer item no tenia un tercer subitem)

Código
  1. #Region " [ListView] Find ListView Text "
  2.  
  3.    ' [ListView] Find ListView Text Function
  4.    '
  5.    ' // By Elektro H@cker
  6.    '
  7.    ' Examples :
  8.    ' MsgBox(Find_ListView_Text(ListView1, "Test"))
  9.    ' MsgBox(Find_ListView_Text(ListView1, "Test", 2, True, True))
  10.    ' If Find_ListView_Text(ListView1, "Test") Then...
  11.  
  12.    Private Function Find_ListView_Text(ByVal ListView As ListView, _
  13.                                        ByVal SearchString As String, _
  14.                                        Optional ByVal ColumnIndex As Int32 = Nothing, _
  15.                                        Optional ByVal MatchFullText As Boolean = True, _
  16.                                        Optional ByVal IgnoreCase As Boolean = True) As Boolean
  17.  
  18.        Select Case ColumnIndex
  19.  
  20.            Case Is < 0, Is > ListView.Columns.Count - 1 ' ColumnIndex is out of range
  21.  
  22.                Throw New Exception("ColumnIndex is out of range. " & vbNewLine & _
  23.                                    "ColumnIndex Argument: " & ColumnIndex & vbNewLine & _
  24.                                    "ColumnIndex ListView: " & ListView.Columns.Count - 1)
  25.  
  26.            Case Nothing ' ColumnIndex is nothing
  27.  
  28.                If MatchFullText Then ' Match full text in all columns
  29.  
  30.                    For Each Item As ListViewItem In ListView.Items
  31.                        For X As Int32 = 0 To Item.SubItems.Count - 1
  32.                            If String.Compare(Item.SubItems(X).Text, SearchString, IgnoreCase) = 0 Then
  33.                                Return True
  34.                            End If
  35.                        Next
  36.                    Next
  37.  
  38.                ElseIf Not MatchFullText Then ' Match part of text in all columns
  39.  
  40.                    Select Case IgnoreCase
  41.                        Case True ' IgnoreCase
  42.                            If ListView1.FindItemWithText(SearchString) IsNot Nothing Then
  43.                                Return True
  44.                            End If
  45.                        Case False ' CaseSensitive
  46.                            For Each Item As ListViewItem In ListView.Items
  47.                                For X As Int32 = 0 To Item.SubItems.Count - 1
  48.                                    If Item.SubItems(X).Text.Contains(SearchString) Then Return True
  49.                                Next
  50.                            Next
  51.                    End Select
  52.  
  53.                End If
  54.  
  55.            Case Else ' ColumnIndex is other else
  56.  
  57.                If MatchFullText Then ' Match full text in ColumnIndex
  58.  
  59.                    For Each Item As ListViewItem In ListView.Items
  60.                        If String.Compare(Item.SubItems(ColumnIndex).Text, SearchString, IgnoreCase) = 0 Then
  61.                            Return True
  62.                        End If
  63.                    Next
  64.  
  65.                ElseIf Not MatchFullText Then ' Match part of text in ColumnIndex
  66.  
  67.                    For Each Item As ListViewItem In ListView.Items
  68.                        Select Case IgnoreCase
  69.                            Case True ' IgnoreCase
  70.                                If Item.SubItems(ColumnIndex).Text.ToLower.Contains(SearchString.ToLower) Then
  71.                                    Return True
  72.                                End If
  73.                            Case False ' CaseSensitive
  74.                                If Item.SubItems(ColumnIndex).Text.Contains(SearchString) Then
  75.                                    Return True
  76.                                End If
  77.                        End Select
  78.                    Next
  79.  
  80.                End If
  81.  
  82.        End Select
  83.  
  84.        Return False ' Any matches
  85.  
  86.    End Function
  87.  
  88. #End Region
8678  Programación / .NET (C#, VB.NET, ASP) / Re: Necesito iconos de estilo mínimal para reproductor de música en: 1 Julio 2013, 20:13 pm
Asi que lo pongo por medio de un "PictureBox" Pero ese no es el chiste :/
No entendí eso, ¿Cual es el problema?

Un textbox es un textbox, no es un control para mostrar imágenes, quiero decir que no te preocupes, la forma de hacerlo es como lo estás haciendo, usando un picturebox. o creando un usercontrol de un TextBox para poner tu imagen xD, pero eso mejor no lo intentes (todavía) es dificil.

EDITO: Bueno, o puedes dibujar un gráfico usando GDI

Saludos
8679  Programación / .NET (C#, VB.NET, ASP) / Re: Necesito iconos de estilo mínimal para reproductor de música en: 1 Julio 2013, 19:54 pm
Ya no lo necesito, pero gracias!

Ninguno de lo que me has mostrado me convence, creo que seguiré usando los de WinAmp, se adaptan bien a los cambios:


Saludos
8680  Programación / .NET (C#, VB.NET, ASP) / Re: Necesito iconos de estilo mínimal para reproductor de música en: 1 Julio 2013, 12:10 pm
...Al final he extraido los iconos del exe del reproductor WinAmp, y no están muy mal:



Aunque no me gustan mucho, sigo esperando a ver si alguien se anima a compartir...

Saludos.
Páginas: 1 ... 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 [868] 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines