Mensajes

si pero no es para sacar contraseñas... sino para hacer juegos de palabras

jjaa gracias x el ejemplo! funciona de 10 asi tal cual lo pasaste

yo pasaba a postear una solucion tb... pero es mas lammer xD
de todos modos la dejo x si les interesa =P

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim d As Byte

Text1.Text = ""

For a = 1 To 4
    For b = 1 To 4
        For c = 1 To 4
            For d = 1 To 4
                If a = b Or a = c Or a = d Or b = c Or b = d Or c = d Then
                Else
                Text1.Text = Text1.Text & a & b & c & d & vbCrLf
                End If
            Next d
        Next c
    Next b
Next a
End Sub


podrias hacer un programa q cada cierto tiempo verifique si tal archivo existe en tal carpeta con un determinado nombre, peso... incluso podrias hacer una copia en otra carpeta oculta, o un poco mas dicil de encontrar y q compare los archivos para ver si son iguales...

es solo una idea xD

pero eso se usa en las labels y no en los textbox...

hola.. tengo un problema con un fuerza bruta...

el tema es asi, tengo 6 letras y necesito ver las combinaciones de todas ellas...
pero no se como hacer a q no se repitan... xq asi el codigo es mucho mas lento :S

x ejemplo asdfgh
con este codigo primero aparece aaaaaa en vez de asdfgh y luego cambiarlas de lugar a x ejemplo asdfhg :S

colocar 2 command button, un timmer con intervalo 0
para hacer funcionar el code presionar el segundo command

Código (vb) [Seleccionar] Expandir

Dim cont As Byte
Dim Letras As String
Dim Letra() As String
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte
Dim La As String, Lb As String, Lc As String, Ld As String, Le As String, Lf As String

Private Sub Command1_Click()
Letras = ""

Do While Text1.Text <> ""
Letras = Letras & Left(Text1.Text, 1) & "|"
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
Loop

Letra = Split(Letras, "|")

For a = 0 To 5
   La = Letra(a)
    For b = 1 To 5
        Lb = Letra(b)
        For c = 2 To 5
            Lc = Letra(c)
            For d = 3 To 5
               Ld = Letra(d)
                For e = 4 To 5
                    Le = Letra(e)
                    For f = 5 To 5
                       Lf = Letra(f)
                        SendKeys La & Lb & Lc & Ld & Le & Lf
                        SendKeys "{Enter}"
                        DoEvents
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a

MsgBox "Termino"

End Sub

Private Sub Command2_Click()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If cont = 3 Then
Call Command1_Click
Timer1.Interval = 0
cont = 0
Else
cont = cont + 1
End If
End Sub


mmm esta bueno... es un poco raro, fuera de lo normal xD jaja

taria bueno q se vaya "arruinando" a medida q uno mueve el mouse... o algo asi...
con el evento mousemove creo q se podria hacer facilmente

Código [Seleccionar] Expandir

Image1.Picture = LoadPicture("Desktop.bmp")

el error esta ahi... si es un jpg no tenes q cargar un bmp xD

Código [Seleccionar] Expandir

Image1.Picture = LoadPicture("Desktop.jpg")

asi tendria q ser... de todos modos esa ruta tb esta incompleta : /

el problema es q ese pedazito de code al cual hiciste referencia no esta completo...
eso es solo el llamado al modulo clase.. pero falta el modulo clase
tal vez el error q te tira es aqui:

Código (vb) [Seleccionar] Expandir

Dim Foto As New Class1
eso es xq te falta el modulo clase CJpeg

el link esta mas arriba en ese mismo hilo posteado x EON.. el link q dejo es este:

http://www.pscode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=56382&strZipAccessCode=tp%2FP563821492

no hace falta q hagas dos post sobre lo mismo para q se te ayude...

para imprimirlos puedes mostrar los datos en un textbox o donde quieras del formulario, y luego imprimier este... para eso puedes usar el control CommonDialog

te explico... te pones a estudiar... y lo haces  

y sino te fijas bien donde carajo posteas... xq esto no es VBscript...