Losowa liczba, Losowa litera

[ulli]

Chciałbym, żeby program losował ciąg znaków (max. 20 znaków) Np. Litera, litera , liczba, litera, litera itp. itd. Próbowałem to zrobić z funkcją StringRegExp (używałem wyrażeń regularnych) , ale ona tylko może sprawdzić tekst. ;[ Macie jakąś alternatywę? może jakaś inna funkcja lub coś..

[Sopelek997]

random()

chr()

[ulli]

A da się coś zrobić żeby Random() zwracała tylko liczby całkowite? i wgl o co chodzi z Chr() bo nie kumam ;[ ??

 

 

 

@EDIT Random() już mam ;] wystarczyło ustawić ^flag^ na 1

[Protecto]

F1 nie boli. Na prawdę...

[4ggr35510n]

Słownik poprawnej polszczyzny nie boli. Naprawdę.

[adik_123]

Chyba o to Ci chodzi :

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pass", 175, 68, 5, 5)
$Input1 = GUICtrlCreateInput("", 8, 40, 160, 21)
$Button1 = GUICtrlCreateButton("Generuj Hasło", 8, 8, 160, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet ( "{ESC}","stop" )
Func stop ()
Exit
EndFunc
Global $wl[26] = ["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"]
Global $ml[26] = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]
While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $Button1
  pass()
EndSwitch
WEnd
Func pass()
$pass = $wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]&Random(0,9,1)&$wl[Random(0,25)]&$ml[Random(0,25)]
GUICtrlSetData($Input1,$pass)
EndFunc

[Sopelek997]

@up. Strasznie masz ten kod na około

 

HotKeySet ( "{ESC}","stop" )
GUICreate("Pass", 175, 68, 5, 5)
$Input1 = GUICtrlCreateInput("", 8, 40, 160, 21)
$Button1 = GUICtrlCreateButton("Generuj Hasło", 8, 8, 160, 25)
GUISetState()
Func stop ()
Exit
EndFunc
While 1
Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
 Case -3
  Exit
 Case $Button1
  pass(10)
EndSwitch
WEnd
Func pass($dl)
local $pass
for $i = 1 to $dl
$ii = random(1,3,1)
switch $ii
case 1
$pass &= chr(Random(65,90,1))
case 2
$pass &= chr(Random(97,122,1))
case 3
$pass &= Random(0,9,1)
endswitch
next
GUICtrlSetData($Input1,$pass)
EndFunc

[adik_123]

Wazne ze dziala , ale fakt ze Twoj jest lepszy. Mimo wszystko komus sie to moze przyda