Code: Select all
#Requires AutoHotkey v2.0
#SingleInstance Force
ListLines 0
; Globals
Tray := A_TrayMenu
; Cases
TestCases := [
() => (A_TrayMenu),
() => (Tray),
]
; Test
TestCount := 10000000
TimeRecords := []
BestRecord := 9223372036854775807 ; LLONG_MAX
For Index, TestCase in TestCases {
QPC(1)
Loop TestCount
TestCase()
Record := QPC()
If Record < BestRecord
BestRecord := Record
TimeRecords.Push(Record)
}
Result := ""
For Record in TimeRecords {
Result .= Record (Record = BestRecord ? " <-" : "") "`n"
}
Msgbox Result
4.6398664 <-
4.6715327