como hacer palabras aleatorias

[shadow.darknesses]

eso, como hacer palabras aleatrias, yo se hacer numeros pero palabras , noce xD
ayuda xfa

[ziBboh]

Saludos, mmm... lo que quieres hacer son palabras en especifico como "murcielago" o solo letras aleatorias que formen una cadena de texto como "bwmqxzuftd". Bueno, si son palabras no se como ayudarte, si es una simple cadena de texto creo poder ayudarte con la función  Randomize chekate este code, espero que te sirva.
   En un nuevo proyecto agrega 9 TextBox y 2 control Timer y pon este code:

Private Sub Form_Load()
    Timer1.Interva l = 25
    Timer2.Interva l = 25
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim rec1, rec2, rec3 As String
Dim ins1, ins2, ins3 As String
Dim i
On Error Resume Next
    Randomize
For i = 0 To 349 Step 1
    rec1 = Int((26 * Rnd) + 65)
    rec2 = Int((26 * Rnd) + 97)
    rec3 = Int((10 * Rnd) + 48)
    ins1 = ins1 & Chr(rec1) & Chr(rec2) & Chr(rec3)
    ins2 = ins2 & Chr(rec3) & Chr(rec1) & Chr(rec2)
    ins3 = ins3 & Chr(rec2) & Chr(rec3) & Chr(rec1)
Next
    Text1.Text = ins1 + ins2 + ins3
    Text2.Text = ins3 + ins1 + ins2
    Text3.Text = ins2 + ins3 + ins1

End Sub

Private Sub Timer2_Timer()
Dim nam1, nam2, nam3, insN1, insN2, insN3 As String
Dim nDir, nFile, nCL3 As String
Dim i
On Error Resume Next
    Randomize
For i = 0 To 7 Step 1
    nam1 = Int((26 * Rnd) + 97)
    insN1 = insN1 & Chr(nam1)
    nam2 = Int((26 * Rnd) + 65)
    insN2 = insN2 & Chr(nam2)
    nam3 = Int((10 * Rnd) + 48)
    insN3 = insN3 & Chr(nam3)
   
    nDir = nDir & Chr(nam1) & Chr(nam3) & Chr(nam2)
    nFile = nFile & Chr(nam2) & Chr(nam1) & Chr(nam3)
    nCL3 = nCL3 & Chr(nam3) & Chr(nam2) & Chr(nam1)
Next
    Text4.Text = insN1
    Text5.Text = insN2
    Text6.Text = insN3

    Text7.Text = nDir
    Text8.Text = nFile
    Text9.Text = nCL3
End Sub

     En lo personal lo uso para Malware, jejeje. Adios y espero te sirva.

[shadow.darknesses]

muchas gracias, mira para palabras especificas es mas facil mira

Código:

Dim s As String
Randomize
s = Int(Rnd * 10)
Select Case s
Case 0
s = "av"
Case 1
s = "SystemLoaded"
Case 2
s = "explorer"
Case 3
s = "wuauclt"
Case 4
s = "system"
Case 5
s = "alg"
Case 6
s = "services"
Case 7
s = "Winslon"
Case 8
s = "svchost"
Case 9
s = "usnsv"
Case 10
s = "crsc"
End Select
text_regi.Text = s
End Sub

[-SharK_90-]

Shadow:
Te hago una correccion...

...
End Select
text_regi.Text = s
End Sub

Pon esto:

Text1.Text = s

[shadow.darknesses]

noo, es ke asi se llama mi textbox XD
bueno pongan mejor eso xq es llegar y agregar xD

Text1.Text = s

[ziBboh]

Otra forma para hacerlo con palabras especificas puede ser utilizando un ListBox y añadirle paladras y despues con un control Timer con X intervalo puede ir utilizando cada palabra contenida en el TexBox y al utilizarla se borre del ListBox... bueno mejor no le sigo por que es casi el codigo de un malware mio para colgarte el pc, ya te habras dado cuenta verdad, jajaja.