Random 4 letter Generator HELP

[Moronic]

Ok, before I made this thread I was sure to use search to look for other topics, and I could'nt find any that helped so here it goes:

Could someone give me a source code to make a .exe that generates all possible 4 letters.

ex. aaas, kosd, aosd, siad, asjd...and so on.

I know it's pretty easy, I just can't find the source anywhere.

I know all I'm asking is for the source to generate 4 letters, but I would also like all the generated 4's to be saved for a .txt. Like a save option as in a "Save" button in the .exe. Thanks

[Pino]

just randomize 0 to 25 (26 numbers) 4 times and each time pick the corosponding letter to the number so 3 = c etc

then to save to txt file search the forum its EVERYWHERE

[Jmacp]

http://www.vbforums.com/showthread.p...hreadid=292642

Change,

Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz0123456789"

to

Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz

[Moronic]

Thanks Jmacp cheers.

[RESOLVED]

[Moronic]

Can someone make me a .exe with this code? or tell me how to make this into a .exe?

Option Explicit
Private BOOLER          As Boolean
Private numofperms      As Single
Private comboz          As String
Private myarray()       As Byte
Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz"
 
Private Function APPPATH() As String
 
    If Right$(App.Path, 1)  "\" Then
        APPPATH = App.Path & "\"
     Else
        APPPATH = App.Path
    End If
 
End Function
 
Private Sub command1_Click()
 
    BOOLER = False
    Open APPPATH & "combos.txt" For Output As #1
    Call GETALLCOMBOZ(charz, 4)  ' 4 = number of character combinations to try
    numofperms = 1
 
End Sub
 
Public Sub GETALLCOMBOZ(ByVal charact As String, _
                  ByVal num As Byte)
 
    ReDim myarray(num)
    Do While Not (BOOLER)
        myarray(numofperms) = myarray(numofperms) + 1
        If numofperms = num Then
            comboz = Left$(comboz, num - 1) + Mid$(charact, myarray(numofperms), 1)
         Else
            comboz = comboz + Mid$(charact, myarray(numofperms), 1)
        End If
        If myarray(numofperms)  Len(charact) + 1 Then
            If numofperms  num Then
                numofperms = numofperms + 1
             Else
               Print #1, comboz
            End If
         Else
            If numofperms = 1 Then
                BOOLER = True
             Else
                myarray(numofperms) = 0
                numofperms = numofperms - 1
                comboz = Left$(comboz, numofperms - 1)
            End If
        End If
    Loop
    Close #1
 
End Sub

[nareth]

File> Make ...

[Jmacp]

try this,