Serial [key enterer]

[Adam1213]

When you buy certain software they give you serials ****-****-****-**** entering cant just be done by copy and paste once, because the input box is instead input boxes [****]-[****]-[****]-[****]

#cs
_________________________________________
    Adam1213 - http://adam1213.tk
    Release date: 15/1/07
_________________________________________
#CE
hotkeyset('{ESC}', 'onexit')
$delay=60 ;          1/10 seconds
$requiresdelay=0
$requirestab=0 ;        If enabled, delay will also be used     
;Opt("SendKeyDelay", 40) 

$serial=inputbox("Serial", "Enter the serial number")
;________________ DELAY ____________________
for $t=$delay to 0 step -1
    sleep(100)
    $r=StringFormat("%.1f", $t/10)
    traytip("Starting in", $r & " secs ",10,16+1)
next

if $requiresdelay OR $requirestab then
    $array = StringSplit($serial,"-", 1)
    for $t=1 to $array[0]
        send($array[$t])
        sleep(100)
        if $requirestab then send (@tab)
    next
else
    send ($serial)
    exit
endif
;__________ EXIT _____________________________
func onexit()
    exit
endfunc

Edited January 14, 2007 by Adam1213

[James]

Thats quite clever

[acideax]

Adam1213.. great work.. really clever.. comes in handy .. cheers