#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
GUICreate("Генерация пароля",500,200)
Local $idpassword = GUICtrlCreateInput("", 0, 5, 500, 20)
Local $idgenerate = GUICtrlCreateButton("сгенерировать пароль", 0, 100, 500, 25)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idgenerate
Local $password = ""
for $i = 0 to 10
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
$password &=$Letter
next
GUICtrlSetData($idpassword,"")
GUICtrlSetData($idpassword,$password)
EndSwitch
WEnd
|