Do you need the source? or....exe?
HotKeySet("{F4}","HP")
HotKeySet("{F1}","Start")
HotKeySet("{F2}","Start2")
HotKeySet("{F3}","Stop")
HotKeySet("{F9}","exxit")
$s=0
Func Start()
$s=1
While $s=1
Send("7")
Sleep(150)
Send("5")
Sleep(3050)
WEnd
EndFunc
Func Start2()
$s=1
While $s=1
Send("7")
Sleep(150)
Send("6")
Sleep(3050)
WEnd
EndFunc
Func Stop()
$s=0
EndFunc
Func HP()
Send("8")
Sleep(50)
Send("9")
EndFunc
While 1
Sleep(1000)
WEnd
Func exxit()
Exit 0
EndFunc