Sign in to follow this  
Followers 0
Adam1213

Serial [key enterer]

3 posts in this topic

#1 ·  Posted (edited)

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



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


You only need two tools in life: WD40 and Duct Tape.If it moves and it shouldn't, use Duct Tape.If it should move but doesnt, use WD40.

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  
Followers 0