pues con la necesidad de adaptarlo a un programa que estoy haciendo
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
como por ejemplo M8YMF-SB4QA-KTCN8-LRVXQ-H1XRA esta serial fue generada con el scrip
pero que pasaria si la serial no fue generada con este scrip...
gracias