La que pasa es que mando una infinidad de datos a ese listbox y cree que sobrepaso el limite pero aun asi sigue almacenando las datos
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#32
Programación Visual Basic / Re: VB6 y Base de Datos
2 Agosto 2007, 21:16 PM
Aqui un ejemplo de creacion de credenciales escolares
form1
Form 2
form 3
Ya solo conoecta los textbox ect
*Necesitas la carpeta "C:\Imagenes" para que funciones
form1
Código (vb) [Seleccionar]
Private Sub Command1_Click()
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
Else
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
If Text1(0) = Text2(0) Then
MsgBox "El registro a cido guardado"
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Wend
End If
Data1.Recordset.AddNew
For i = 0 To 7
Text2(i) = Text1(i)
Next i
Data1.Recordset.Update
Data1.Recordset.MoveFirst
MsgBox "El registro a sido añadido"
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub
Private Sub Command3_Click()
For i = 0 To 7
Text1(i) = ""
Next i
End Sub
Private Sub Command4_Click()
Form2.Show
End Sub
Form 2
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
If Text1 = Text2(3) Then
For i = 0 To 7
Form1.Text1(i) = Text2(i)
Next i
MsgBox "La busqueda a finalizado"
Me.Hide
End If
Data1.Recordset.MoveNext
Wend
End Sub
form 3
Código (vb) [Seleccionar]
Private Sub Form_Load()
For i = 0 To 6
T1(i) = Form1.Text1(i)
Next i
x = Form1.Text1(7) & ".jpg"
Image2 = LoadPicture("C:\Imagenes\" & x)
res = MsgBox("¿Realmente quiere imprimir la credencial?", vbYesNo, "Imprimir")
If res = vbYes Then
MsgBox "La credencial de " & vbCrLf & Form1.Text1(0) & vbCrLf & "a sido impresa", vbInformation, "Imprimiendo"
Else
MsgBox "Impresion cancelada", vbInformation, "Cancelando impresion"
Me.Hide
End If
End Sub
Ya solo conoecta los textbox ect
*Necesitas la carpeta "C:\Imagenes" para que funciones
#33
Programación Visual Basic / Re: Como enviar un archivo a la papelera de reciclaje
2 Agosto 2007, 21:02 PM
Es necesario a la papelera de reciclaje por que lo puedes eliminar definitivamente con
Pero esto te elimina el archivo de forma definitiva
Código (vb) [Seleccionar]
Kill "C:\Prueba.txt"
Pero esto te elimina el archivo de forma definitiva
#34
Programación Visual Basic / Algo dificil de explicar
2 Agosto 2007, 20:46 PM
Mi duda es la siguiente ¿como mando datos de un exe a otro exe?, es decir al yo dar clic en un boton del exe1 y que me genere, no se un numero aleatorio o lo que sea pero que me mande el resultado del proceso a un cuadro de texto del exe2.
Espero y me explique bien
Espero y me explique bien
#35
Programación Visual Basic / Listbox
2 Agosto 2007, 20:10 PM
Esto talves sonara tonto pero.......
Alguien sabe como pasar al final de un listbox
Gracias de antemano
Alguien sabe como pasar al final de un listbox
Gracias de antemano
#36
Programación Visual Basic / Re: Ayuda en fuerza bruta
2 Agosto 2007, 02:24 AM
Yo soy nuevo en programacion asi que todo es bienvenido
Me podris decir cuales son las etiquetas code
Me podris decir cuales son las etiquetas code
#37
Programación Visual Basic / Ayuda en fuerza bruta
2 Agosto 2007, 02:01 AM
De entrada gracias por leer esto. Mi pregunta es la siguiente.
Hice un programa que genera todas las combinaciones posibles con "2" "3" "4" "5" "6" y "7" caracteres el problema es que tarda demasiado alguien sabe como acelerar el proceso. este es el codigo.
Necesita 11 LABEL
Un listbox
Un timer con intervalo de 100 (inicia enabled "false")
Y tres botones
Hice un programa que genera todas las combinaciones posibles con "2" "3" "4" "5" "6" y "7" caracteres el problema es que tarda demasiado alguien sabe como acelerar el proceso. este es el codigo.
Necesita 11 LABEL
Un listbox
Un timer con intervalo de 100 (inicia enabled "false")
Y tres botones
Código (vb) [Seleccionar]
Public mil As Integer
Public seg As Integer
Public min As Integer
Public hor As Integer
Public cont As Long
Public detener As Boolean
Private Sub Command1_Click()
'Programa que genera todas las combinaciones posibles con "2","3","4","5","6", y "7"
'caracteres el metodo es un poco tardado pero solo asi he logrado generarlo
'Si deseas que se formen combinaciones con mas de "7" caracteres solo sigue la misma
'estructura
'Creado por Sergio Uziel Tovar Lemus
Timer1.Enabled = True
Label5.Caption = "Procesando"
Command2.Enabled = False
Command3.Enabled = True
detener = False
cont = 0
'Comienza a generar combinaciones con dos caracteres
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora hace las combinaciones con tres caracteres
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
For chr_tres = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_tres
DoEvents
Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora hace las combinaciones con cuatro caracteres
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
For chr_tres = Asc("a") To Asc("z")
For chr_cuatro = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_cuatro
DoEvents
Next chr_tres
Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Ahora comenzamos con cinco caracteres
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
For chr_tres = Asc("a") To Asc("z")
For chr_cuatro = Asc("a") To Asc("z")
For chr_cinco = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_cinco
DoEvents
Next chr_cuatro
DoEvents
Next chr_tres
Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Con seis caracteres
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
For chr_tres = Asc("a") To Asc("z")
For chr_cuatro = Asc("a") To Asc("z")
For chr_cinco = Asc("a") To Asc("z")
For chr_seis = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_seis
DoEvents
Next chr_cinco
DoEvents
Next chr_cuatro
DoEvents
Next chr_tres
Next chr_dos
DoEvents
Next chr_uno
ProgressBar1.Value = ProgressBar1.Value + 18.3
'Finalmente con siete
For chr_uno = Asc("a") To Asc("z")
For chr_dos = Asc("a") To Asc("z")
For chr_tres = Asc("a") To Asc("z")
For chr_cuatro = Asc("a") To Asc("z")
For chr_cinco = Asc("a") To Asc("z")
For chr_seis = Asc("a") To Asc("z")
For chr_siete = Asc("a") To Asc("z")
List1.AddItem Chr(chr_uno) & Chr(chr_dos) & Chr(chr_tres) & Chr(chr_cuatro) & Chr(chr_cinco) & Chr(chr_seis) & Chr(chr_siete)
cont = cont + 1
Label2.Caption = cont
If detener = True Then
Command2.Enabled = True
Command3.Enabled = False
MsgBox "El proceso ha sido detenido por el usuario." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
Exit Sub
End If
DoEvents
Next chr_siete
DoEvents
Next chr_seis
DoEvents
Next chr_cinco
DoEvents
Next chr_cuatro
DoEvents
Next chr_tres
Next chr_dos
DoEvents
Next chr_uno
Command2.Enabled = True
ProgressBar1.Value = ProgressBar1.Value + 18.3
Label5.Caption = "Terminado"
Timer1.Enabled = False
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
MsgBox "El proceso ha terminado satisfactoriamente." & vbCrLf & vbCrLf & "Resultados obtenidos." & vbCrLf & vbCrLf & "Numeros de combinaciones: " & cont & vbCrLf & vbCrLf & "Tiempo transcurrido" & vbCrLf & Label6.Caption & vbCrLf & Label7.Caption & vbCrLf & Label8.Caption & vbCrLf & Label9.Caption & vbCrLf & vbCrLf & "Porcentaje del proceso: " & ProgressBar1.Value & "% de un 100% posible", vbInformation, "Informacion para el usuario"
mil = 0
seg = 0
min = 0
hor = 0
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido por el usuario"
ProgressBar1.Value = 0
End Sub
Private Sub Command2_Click()
Label5.Caption = "Limpiando"
List1.Clear
Label2.Caption = List1.ListCount
Label5.Caption = "Detenido"
End Sub
Private Sub Command3_Click()
detener = True
Timer1.Enabled = False
End Sub
Private Sub Command8_Click()
End Sub
Private Sub Command9_Click()
End Sub
Private Sub Form_Load()
Label1.Caption = "combinaciones generadas: "
Label2.Caption = List1.ListCount
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
End Sub
Private Sub Timer1_Timer()
mil = mil + 1
Label6.Caption = "Horas: " & hor
Label7.Caption = "Minutos: " & min
Label8.Caption = "Segundos: " & seg
Label9.Caption = "Milesimas: " & mil
If mil = 10 Then
mil = 0
seg = seg + 1
If seg = 60 Then
seg = 0
min = min + 1
If min = 60 Then
min = 0
hor = hor + 1
End If
End If
End If
End Sub