[Pytanie] Guictrlcreateedit

[Rower1310]

Witam jak zrobić w moim kodzie programu aby wygenerowany kod wpisywał do pola Edit.

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 229, 443, 192, 124)

$Input1 = GUICtrlCreateInput("Ile wygenerować haseł", 8, 8, 209, 21)

$Button1 = GUICtrlCreateButton("Wygeneruj Hasła", 8, 40, 97, 25, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Wyjscie", 120, 40, 97, 25, $WS_GROUP)

$Edit1 = GUICtrlCreateEdit("", 8, 72, 209, 357)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

Sleep(100)

WEnd

 

Func Button1Click()

$x = 1

$Haslo = " "

For $x = 1 To GUICtrlRead($Input1)

$Haslo = Chr(Random(97,112,1)) & Chr(Random(48,57,1)) & Chr(Random(97,112,1)) & Chr(Random(48,57,1)) & Chr(Random(97,112,1)) & Chr(Random(48,57,1)) & Chr(Random(97,112,1)) & Chr(Random(48,57,1))

Next

EndFunc

Func Button2Click()

Exit

EndFunc

[jackraymund]

guictrlsetdata($edit1,$haslo & @crlf)

[Rower1310]

Dzięki zaraz sprawdzę czy działa

 

Działa tylko teraz nie wiem jak zrobić gdy wpisze do input1 np. 4 to żeby mi w edit1 wpisał 4 wygenerowane hasła

Edytowane 20 Grudnia 2010 przez Rower1310

[jackraymund]

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

edytowałem strukturę bo była chujowa

[Rower1310]

Mam ostatnie pytanie jak zrobić żeby program nie obciążał mocno komputera

[RobeM]

nie pisać go w AutoIt tylko w innym języku

[Rand]

powciskaj sleep(100) do pętl

[Rower1310]

Temat można już zamknąć. Wszystkim dziękuję za pomoc. Zaraz dam +.

[jackraymund]

to samo co @up3

autoit to syf:D

przy 100.000 haslach tylko 10% skoczylo mi, to chyba nie dużo