Generador de Seriales

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:       Jesux Herrera (GUI) Justin Reno (Function)

 Script Function:
    Generador de Seriales (Ejemplo) (Example).

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Generador de Seriales", 322, 137, -1, -1)
$Input1 = GUICtrlCreateInput("", 24, 40, 273, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Generar = GUICtrlCreateButton("Generar", 24, 80, 275, 25)
$Label1 = GUICtrlCreateLabel("Serial", 144, 16, 36, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 8, 0, 305, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

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

        Case $Generar
            GUICtrlSetData($Input1,_GenerateSerialNumber())


    EndSwitch
WEnd

;Funcion Creada por Justin Reno en el 2008

Func _GenerateSerialNumber()
     $Characters = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", "")
     $SerialNumber = ""
     For $X = 1 To 5
          For $I = 1 To 5
               $SerialNumber &= $Characters[Random(1, 35, 1)]
          Next
          If $X <> 5 Then $SerialNumber &= " - "
     Next
     Return $SerialNumber
EndFunc