Hola

(Veo que aún sigues con lo del BruteForce xD)

Pues lo primero de todo que debes hacer es olvidarte de hacerlo con Batch, porque es lento y tu queja principal es por la lentitud de los ciclos de Batch.

La verdad es que te diría que te olvidases del scripting y que lo hagas en un lenguaje compilado, pero si quieres hacer un script hazlo en Python, Perl, o Ruby, la diferencia entre Batch y estos lenguajes es abismal (por supuesto también hablando de velocidad...).

Si estás dispuesto a aprender de verdad ...pues aún te queda mucho camino hasta saber hacer un loop o loops anidados para generar diccionarios, puedes empezar por elegir un lenguaje con el que empezar, descargarte el interprete de ese lenguaje en su página oficial, y leerte la documentación oficial donde está todo lo que puedes hacer con ese lenguaje, o leer libros o tutoriales online, practicar ejercicios, y seguir practicando.

Saludos!

EDITO: Me voy a desvirtuar un poco del tema, pero como te veo un poco perdido e indeciso te sugiero que te descargues la IDE VisualStudio para programar en VB.NET, crea un nuevo proyecto Winform en VB y prueba este código

#Region " Permute all combinations of characters "
 
    ' [ Permute Characters Function ]
    '
    ' Examples :
    ' Dim Permutations = Permute_Characters("abc", 2)
    ' For Each Permutation As IEnumerable(Of Char) In Permutations : RichTextBox1.Text &= vbNewLine & Permutation.ToArray : Next
    ' MsgBox(Permutations.Aggregate(Function(str, p) str.ToArray & Environment.NewLine & p.ToArray))
 
    Private Shared Function Permute_Characters(Of T)(list As IEnumerable(Of T), length As Integer) As IEnumerable(Of IEnumerable(Of T))
 
        If length = 1 Then
            Return list.[Select](Function(x) New T() {x})
        Else
            Return Permute_Characters(list, length - 1).SelectMany(Function(x) list, Function(t1, t2) t1.Concat(New T() {t2}))
        End If
 
    End Function
 
#End Region

Sirve para permutar todas las combinaciones posibles dada una serie de caracteres, bueno, ahí tienes unos ejemplos de como usarlo, en los comentarios del snippet.

En google puedes encontrar ejemplos de permutaciones para ruby, python, etc...

PD: Ahora, puedes cojer cualquier lenguaje de scripting, puedes intentar reproducir lo mismo usando decenas Fors, y ya verás la diferencia... xD

Actualizada la colección de snippets con un total de 400 Snippets...
...Casi nada!!

-> http://elektrostudios.tk/Snippets.zip

En la primera página de este hilo tienen un índice de todos los snippets que contiene el pack.

Saludos!

Format Time

Formatea un número de milisegundos.

#Region " Format Time "
 
    ' [ Format Time Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Format_Time(61500, TimeFormat.M_S_MS)) ' Result: "01:01:500"
    ' MsgBox(Format_Time(65000, TimeFormat.M_S))    ' Result: "01:05"
 
    ' TimeFormat [ENUM]
    Public Enum TimeFormat
        D_H_M_S_MS
        D_H_M_S
        D_H_M
        D_H
        D
 
        H_M_S_MS
        H_M_S
        H_M
        H
 
        M_S_MS
        M_S
        M
 
        S_MS
        S
    End Enum
 
    ' Format Time [FUNC]
    Private Function Format_Time(ByVal MilliSeconds As Int64, ByVal TimeFormat As TimeFormat) As String
 
        Dim Time As New TimeSpan(TimeSpan.TicksPerMillisecond * MilliSeconds)
 
        Select Case TimeFormat
 
            Case TimeFormat.D_H_M_S_MS
                Return Time.ToString("dd\:hh\:mm\:ss\:fff")
            Case TimeFormat.D_H_M_S
                Return Time.ToString("dd\:hh\:mm\:ss")
            Case TimeFormat.D_H_M
                Return Time.ToString("dd\:hh\:mm")
            Case TimeFormat.D_H
                Return Time.ToString("dd\:hh")
            Case TimeFormat.D
                Return Time.ToString("dd")
            Case TimeFormat.H_M_S_MS
                Return Time.ToString("hh\:mm\:ss\:fff")
            Case TimeFormat.H_M_S
                Return Time.ToString("hh\:mm\:ss")
            Case TimeFormat.H_M
                Return Time.ToString("hh\:mm")
            Case TimeFormat.H
                Return Time.ToString("hh")
            Case TimeFormat.M_S_MS
                Return Time.ToString("mm\:ss\:fff")
            Case TimeFormat.M_S
                Return Time.ToString("mm\:ss")
            Case TimeFormat.M
                Return Time.ToString("mm")
            Case TimeFormat.S_MS
                Return Time.ToString("ss\:fff")
            Case TimeFormat.S
                Return Time.ToString("ss")
            Case Else
                Return Nothing
        End Select
 
    End Function
 
#End Region

---

Cuando creo un listview suelo añadir un índice numérico en la primera columna, para mantener un orden, bueno pues este snippet sirve para reindexar esa columna por ejemplo cuando eliminamos un item del listview.

#Region " ReIndex ListView "
 
    ' [ ReIndex ListView ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' ReIndex_ListView(ListView1)
 
    ' ReIndex ListView [SUB]
    Private Sub ReIndex_ListView(ByVal ListView As ListView, Optional ByVal Column As Int32 = 0)
        Dim Index As Int32 = 0
        For Each Item As ListViewItem In ListView.Items
            Index += 1
            Item.SubItems(Column).Text = Index
        Next
    End Sub
 
#End Region

claro, quiero decir que ¿Como lo arreglaste? que correcciones habia que hacerle? xD

No quiero desvirtuar mucho el tema, pero por curiosidad cual era el fallo?

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!

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

¿Que quieres hacer?.

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!

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 

@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

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)

#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
 
        Select Case ColumnIndex
 
            Case Is < 0, Is > ListView.Columns.Count - 1 ' ColumnIndex is out of range
 
                Throw New Exception("ColumnIndex is out of range. " & vbNewLine & _
                                    "ColumnIndex Argument: " & ColumnIndex & vbNewLine & _
                                    "ColumnIndex ListView: " & ListView.Columns.Count - 1)
 
            Case Nothing ' ColumnIndex is nothing
 
                If MatchFullText Then ' Match full text in all columns
 
                    For Each Item As ListViewItem In ListView.Items
                        For X As Int32 = 0 To Item.SubItems.Count - 1
                            If String.Compare(Item.SubItems(X).Text, SearchString, IgnoreCase) = 0 Then
                                Return True
                            End If
                        Next
                    Next
 
                ElseIf Not MatchFullText Then ' Match part of text in all columns
 
                    Select Case IgnoreCase
                        Case True ' IgnoreCase
                            If ListView1.FindItemWithText(SearchString) IsNot Nothing Then
                                Return True
                            End If
                        Case False ' CaseSensitive
                            For Each Item As ListViewItem In ListView.Items
                                For X As Int32 = 0 To Item.SubItems.Count - 1
                                    If Item.SubItems(X).Text.Contains(SearchString) Then Return True
                                Next
                            Next
                    End Select
 
                End If
 
            Case Else ' ColumnIndex is other else
 
                If MatchFullText Then ' Match full text in ColumnIndex
 
                    For Each Item As ListViewItem In ListView.Items
                        If String.Compare(Item.SubItems(ColumnIndex).Text, SearchString, IgnoreCase) = 0 Then
                            Return True
                        End If
                    Next
 
                ElseIf Not MatchFullText Then ' Match part of text in ColumnIndex
 
                    For Each Item As ListViewItem In ListView.Items
                        Select Case IgnoreCase
                            Case True ' IgnoreCase
                                If Item.SubItems(ColumnIndex).Text.ToLower.Contains(SearchString.ToLower) Then
                                    Return True
                                End If
                            Case False ' CaseSensitive
                                If Item.SubItems(ColumnIndex).Text.Contains(SearchString) Then
                                    Return True
                                End If
                        End Select
                    Next
 
                End If
 
        End Select
 
        Return False ' Any matches
 
    End Function
 
#End Region