Gut also ich habe ein Problem. Ich bin schon lange am rum werkeln und komme einfach nicht auf eine Lösung.
Ich möchte mein das autoit diese aufgabe macht:
Ich hab ne Gui, mit einem Input feld. Ich gebe dann eine Zahl ein, beispiel 6. Drücke auf startbutton.
Nun soll autoit eine txt erstellen/eine txt öffnen(die dann aber natürlich leer ist) und dann dort das reinschreibt:
a
b
c
d
(das so weiter bis z)
1
2
3
4
(das so weiter bis 9, dann 0)
und dann da ich ja am anfang eine 6 eingegeben habe, Soll er das dann so machen, das er am ende alles durchgeht bis es 6 buchstaben sind. Also als nächstes
aa
ab
ac
ad
(u.s.w bis z und dann a1 a2 u.s.w)
das macht er dann auch mit ba, bb, bc und wieder so weiter. bis am ende da steht. 000000 (also 6mal die letzte zahl)
Wie bekomme ich das hin?
Bis jetzt habe ich:
#include <GUIConstants.au3>
GUICreate("MeineGUI",150,100)
GUISetState(@sw_show)
$startb=GUICtrlCreateButton("Start",6,60,138,38,-1,-1)
$anzahl=GUICtrlCreateInput("",41,36,57,19,-1,-1)
$text=GUICtrlCreateLabel("Bitte geben sie die Buchstabenzahl an",26,7,96,30,-1,-1)
While 1
$msg=GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $startb
_startcreate()
EndSwitch
WEnd
Func _startcreate()
If Not FileExists(@ScriptDir & "\Wordlist.ini") Then
MsgBox(48, "File Not Found", "Required Blank file not found (" & @ScriptDir & "\Wordlist.ini" & ")" & @CRLF & "Please create a Wordlist.ini "& @CRLF & "Programm will close now")
Exit
Endif
Global $buchstabe
$buchstabe[1] = ("a")
$buchstabe[2] = ("b")
$buchstabe[3] = ("c")
$buchstabe[4] = ("d")
$buchstabe[5] = ("e")
$buchstabe[6] = ("f")
$buchstabe[7] = ("g")
$buchstabe[8] = ("h")
$buchstabe[9] = ("j")
$buchstabe[10] = ("k")
$buchstabe[11] = ("l")
$buchstabe[12] = ("m")
$buchstabe[13] = ("n")
$buchstabe[14] = ("o")
$buchstabe[15] = ("p")
$buchstabe[16] = ("q")
$buchstabe[17] = ("r")
$buchstabe[18] = ("s")
$buchstabe[19] = ("t")
$buchstabe[20] = ("u")
$buchstabe[21] = ("v")
$buchstabe[22] = ("w")
$buchstabe[23] = ("x")
$buchstabe[24] = ("y")
$buchstabe[25] = ("z")
$buchstabe[26] = ("1")
$buchstabe[27] = ("2")
$buchstabe[28] = ("3")
$buchstabe[29] = ("4")
$buchstabe[30] = ("5")
$buchstabe[31] = ("6")
$buchstabe[32] = ("7")
$buchstabe[33] = ("8")
$buchstabe[34] = ("9")
$buchstabe[35] = ("0")
$file = Fileopen(@ScriptDir & "\Wordlist.ini", 1)
$bzahl = GUICtrlRead($anzahl)
$ulimited = 999999999999
$wert = 35
for $i = 1 to $bzahl step +1
$wert = $wert*35
Next
Filewrite(@ScriptDir & "\Wordlist.ini", $wert)
for $i = 1 to $wert step +1
[/autoit][autoit][/autoit][autoit]for $i = 1 to 35 step +1
Filewrite(@ScriptDir & "\Wordlist.ini", $buchstabe[$i] & @CRLF)
Next
Next
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]Danke jeden für hilfe!