Break ON
Dim $,$i,$sKey
$=SendKeys("{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{F13}{F14}{F15}{F16}Q")
While $sKey<>"Q"
	Get $sKey
	If Not $sKey $i=$i+1 "Function key F"+$i+" generated: "+@ERROR+@CRLF EndIf
Loop

Quote:

---

Function key F1 generated: 59
Function key F2 generated: 60
Function key F3 generated: 61
Function key F4 generated: 62
Function key F5 generated: 63
Function key F6 generated: 64
Function key F7 generated: 65
Function key F8 generated: 66
Function key F9 generated: 67
Function key F10 generated: 59
Function key F11 generated: 59
Function key F12 generated: 59
Function key F13 generated: 59
Function key F14 generated: 59
Function key F15 generated: 59
Function key F16 generated: 59

---