Mensajes

[TerminateProcess]

Busca un poco que hay millones de ejemplos, investiga  API TerminateProcess...

Salu2!

[* ¿Que hace?]

Hola chicos! ¿como os va?
Aqui os presento mi ultimo proyecto :

RTHacker Dictionary Manager

* ¿Que hace?
Crea diccionarios para cracking con palabras aleatorias sin repeticion, algo distinto a los tipicos creadores de diccionarios BruteForze...
Al principio intente hacer eso, pero me di cuenta que cuando pretendia crear un diccionario con todos los caracteres de 9 digitos me creaba un txt de mas de 5GB!!
Entonces se me ocurrio esta solucion e intente hacer el programa lo mas configurable posible  

* Referencias
Todas las funciones y procedimientos son mias menos los controles de usuario, la funcion principal que crea el diccionario nacio de una modificacion a esta que postee hace unos dias: http://foro.elhacker.net/programacion_visual_basic/palabras_aleatorias_sin_repeticion_ayuda-t296715.0.html;msg1470320#new
Se me olvidaba: el programa tambien te habla!  
*Agradezco la ayuda a raul338 y como no a VanHan que fue quien se encargo de la interfaz del proyecto, que me parece que quedo muy profesional...  
*Podeis modificar el code como querais mientras se respete la autoria y se me comuninquen los cambios...  

* Descarga
http://www.mediafire.com/?muzntnmknim

Bueno, espero que os haya gustado, acepto criticas y sugerencias para futuras versiones...  

Salu2!  

[matriz de controles]

Puedes utillizar la opcion que te decian arriba asi
textbox1.text=""
textbox2.text=""  'Y asi le haces para los demas
Textbox1.setfocus   'Y esto por si quieres resgresar el cursor a algun text para volver a escribir nuevos valores

WTF!!  
Y si tiene 50 textbox que va uno por uno??  

Es mas facil que si tienes varios textbox uses algo como un For Each:

Código (vb) [Seleccionar] Expandir


Dim n As Integer
For n = 0 To Controls.Count - 1
 If TypeOf Controls(n) Is TextBox Then
  Controls(n).Text = ""
 End If
Next n


Saludos

Esto no es necesario, buscar en todos los controles y comprobar si es un TextBox?¿
¿Y por que no con una matriz de controles?  
Asi, en practicamente una linea:

Código (vb) [Seleccionar] Expandir


Dim x As Integer
'Suponiendo que tengamos 5 TextBox (el 0 cuenta)
For x = 0 to 4 : Text1(x).Text = vbNullString : Next

Salu2!

Si, la verdad es que dimos bastante pena...
Aunque al arbitro le faltaban unas buenas :

Buff, sobretodo el final fue bastante desesperante...

Salu2!

WOW 
Me gusto mucho!!
Que se retire Rihana !!! 

Salu2!

[As Integer]

me permites unos consejos?¿

Dim bucle

Porque no defines la variable bucle? (Pon As Integer), porque tal y como lo tienes estaria definido como As Variant, y ocupa mas espacio en la memoria...

Y esto otro:

If Option1.Enabled Then naves = "fmenge[202]"
If Option2.Enabled Then naves = "fmenge[203]"
If Option3.Enabled Then naves = "fmenge[204]"
If Option4.Enabled Then naves = "fmenge[205]"
If Option5.Enabled Then naves = "fmenge[206]"
If Option6.Enabled Then naves = "fmenge[207]"
If Option7.Enabled Then naves = "fmenge[208]"
If Option8.Enabled Then naves = "fmenge[209]"
If Option9.Enabled Then naves = "fmenge[210]"
If Option10.Enabled Then naves = "fmenge[211]"
If Option11.Enabled Then naves = "fmenge[212]"
If Option12.Enabled Then naves = "fmenge[213]"
If Option13.Enabled Then naves = "fmenge[214]"
If Option14.Enabled Then naves = "fmenge[215]"
If Option15.Enabled Then naves = "fmenge[216]"

Si haces una matriz de controles con las optiones ahorrarias codigo...

Salu2!

mmmm
quieres crear un form en tiempo de ejecucion o simplemente cargar un formulario que ya tienes en el proyecto?? 
Si es lo segundo con esto bastaria:

Código (vb) [Seleccionar] Expandir


Form2.Show
Si no es eso revisa si el formulario que quieres mostrar tiene ese nombre...

Salu2!

Ovbiamente es el Big Bang! 

Salu2!

[Do]

Oops!
Cierto, vaya fallo mas tonto...
No hace falta definir el objeto cada vez que se haces el Do, deberia de poner esto despues?¿

Código (vb) [Seleccionar] Expandir


Set pulsacion = Nothing

Salu2!

[Microsoft Internet Controls]

Cierto, no uses versiones portables!!
Pulsa Ctrl+T dentro del vb, se te abrira una ventana con los controles, busca el Microsoft Internet Controls, si no te sale el archivo se llama : "shdocvw.dll"

Salu2!