Jump to content
Sign in to follow this  
Adam1213

Serial [key enterer]

Recommended Posts

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 by Adam1213

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...