Autoit.ES

Código: Seleccionar todo

;Funcion Creada por Justin Reno en el 2008

#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, 100, 25)
$Comprobar = GUICtrlCreateButton("Comprobar", 194, 80, 100, 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)

GUICtrlSetData($Input1,_GenerateSerialNumber())

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Generar
			GUICtrlSetData($Input1,_GenerateSerialNumber())
	EndSwitch
WEnd

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