Zwykły generator kodów

[CoJaNigdy]

Siemka, jestem '' noobem '' w sprawach AutoIt, więc moje pytanie jest takie '' Jak zrobić prosty program do generowania mieszanych kodów typu

 

- A9O1-R5T8-P3K5

 

Za TuT'a albo pomoc jakomkolwiek daje PLUZY !!!

[C.J]

Przyda Ci się komenda Random i parę podstaw

[jackraymund]

i komenda chr, tego było od zajebu na forum, tylko szkoda że opcja szukaj nie działa ;<

[CisPK]

Trzymaj, nie wiem czy jest taki jaki chciałeś ale pisałem go na szybko żeby Ci pokazać o co chodzi. Ale zrobiłem specjalnie jeden mały błąd, którego można sie dopatrzyć znając minimalne podstawy AutoIT.

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$window = GUICreate("Generator", 255, 69, 192, 124)
$input = GUICtrlCreateInput("", 0, 0, 249, 21, $ES_READONLY)
$generuj = GUICtrlCreateButton("Generuj!", 0, 24, 251, 41)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Global $kody[5]
$kody[0] = 'Maslo'
$kody[1] = 'Brzuszek'
$kody[2] = 'Czekolada'
$kody[3] = 'AutoIT'
$kody[4] = 'Jax'

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $generuj
GUICtrlSetPos($in, $kody[Random(0, 4)])

EndSwitch
WEnd

 

[jackraymund]

Pos na Data, poza tym nie o to mu chodzilo

@down

a co ma być w tym złego?

Global $kody[5] ; globalnie zdeklarowana tablica z 5 miejscami

$kody[0] = 'Maslo' ;1

$kody[1] = 'Brzuszek';2

$kody[2] = 'Czekolada';3

$kody[3] = 'AutoIT';4

$kody[4] = 'Jax';5

nic zlego

[CoJaNigdy]

Bodajże to

 

Global $kody[5]

$kody[0] = 'Maslo'

$kody[1] = 'Brzuszek'

$kody[2] = 'Czekolada'

$kody[3] = 'AutoIT'

$kody[4] = 'Jax'

[Loude]

Na podstawie kodu CisPK'a wymodziłem takie gówno.

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIEdit.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 393, 113, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 16, 81, 21)
$Input2 = GUICtrlCreateInput("", 104, 16, 81, 21)
$Input3 = GUICtrlCreateInput("", 200, 16, 81, 21)
$Input4 = GUICtrlCreateInput("", 296, 16, 81, 21)
$generuj = GUICtrlCreateButton("Generuj", 8, 48, 371, 25)
$Button1 = GUICtrlCreateButton("Czysc", 8, 80, 371, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Global $litery[10]
$litery[0] = 'A'
$litery[1] = 'B'
$litery[2] = 'C'
$litery[3] = 'D'
$litery[4] = 'F'
$litery[5] = 'G'
$litery[6] = 'H'
$litery[7] = 'J'
$litery[8] = 'K'
$litery[9] = 'L'

Global $kody[10]
$kody[0] = '1'
$kody[1] = '2'
$kody[2] = '3'
$kody[3] = '4'
$kody[4] = '5'
$kody[5] = '6'
$kody[6] = '7'
$kody[7] = '8'
$kody[8] = '9'
$kody[9] = '0'


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($input1, "")
GUICtrlSetData($input2, "")
GUICtrlSetData($input3, "")
GUICtrlSetData($input4, "")
Case $generuj
;--Input1
_GUICtrlEdit_AppendText($input1, $litery[Random(0, 10)])
_GUICtrlEdit_AppendText($input1, $kody[Random(0, 6)])
_GUICtrlEdit_AppendText($input1, $litery[Random(0, 8)])
_GUICtrlEdit_AppendText($input1, $kody[Random(0, 4)])
;==>Input1

;--Input2
_GUICtrlEdit_AppendText($input2, $litery[Random(4, 6)])
_GUICtrlEdit_AppendText($input2, $kody[Random(1, 4)])
_GUICtrlEdit_AppendText($input2, $litery[Random(6, 10)])
_GUICtrlEdit_AppendText($input2, $kody[Random(2, 8)])
;==>Input2

;--Input3
_GUICtrlEdit_AppendText($input3, $litery[Random(4, 8)])
_GUICtrlEdit_AppendText($input3, $kody[Random(5, 10)])
_GUICtrlEdit_AppendText($input3, $litery[Random(2, 4)])
_GUICtrlEdit_AppendText($input3, $kody[Random(3, 6)])
;==>Input3

;--Input4
_GUICtrlEdit_AppendText($input4, $litery[Random(1, 2)])
_GUICtrlEdit_AppendText($input4, $kody[Random(3, 8)])
_GUICtrlEdit_AppendText($input4, $litery[Random(7, 10)])
_GUICtrlEdit_AppendText($input4, $kody[Random(3, 6)])
;==>Input4


EndSwitch
WEnd

[Sopelek997]

jak patrze na niektóre porady i kody to się mi słabo robi. Robicie wszytko nielogicznie i na około

 

Func randomCode($s, $w) ; $s oznacza ilosc sekcji, $w oznacza ilosc znakuów w sekcji
       local $i = 0
       local $tekst = ""
       While $i < $s * $w
               local $lol = Random(0, 1, 1)
               $tekst &= Chr(Random(48, 57, 1) * $lol + Random(65, 90, 1) * (not $lol))
               If ((Mod($i, $w) = $w - 1) And ($i < $s * $w - 1)) Then $tekst &= "-"
               $i += 1
       WEnd
       Return $tekst
EndFunc   ;==>randomCode
MsgBox(64, '', randomCode(3, 6))

 

@down

chujowy kod ;]

[jackraymund]

ja pierdole, ale wy kombinujecie

for $i = 1 to 100
consolewrite(chrw(random(65,90,1)) & chrw(random(65,90,1)) &chrw(random(48,57,1)) & chrw(random(65,90,1)) & "-" & chrw(random(65,90,1)) & chrw(random(65,90,1)) &chrw(random(48,57,1)) & chrw(random(65,90,1)) & "-" & chrw(random(65,90,1)) & chrw(random(65,90,1)) &chrw(random(48,57,1)) & chrw(random(65,90,1)) & "-" & chrw(random(65,90,1)) & chrw(random(65,90,1)) &chrw(random(48,57,1)) & chrw(random(65,90,1)) & @CRLF)
Next

literka,literka,cyfra,literka - ....

chrw(random(65,90,1)) od A do Z

chrw(random(48,57,1)) od 0 do 9

[Phoenix_PL]

...a do czego służy moja funkcja _PhoGenZnak która jest w poniższym UDFie?

Tam jest wszystko czego ci potrzeba...

http://www.mpcforum.pl/topic/723209-udf-phomiscau3-wszystkie-moje-funkcje-w-jednym-udf/

[JDaniel1]

Co to kłótnia czy prośba o skrypt? I tak każdy skrypt jest dobry i chodzą bez zarzutów

[CoJaNigdy]

Więc tak, ściągam program wklejam kod i jak zrobic takie okienko ?

[CisPK]

Na górnym pasku Tools>Koda (form designer). Ale musisz najpierw zapisać skrypt.