Function Key(K, T, D)
While TRUE
KeyPress K, T
Delay D
Wend
End Function
Dim K1, K2, K3, T1, T2, T3
K1 = "A"
K2 = "B"
K3 = "C"
T1 = 1
T2 = 2
T3 = 3
BeginThread Key(K1, T1, 200)
BeginThread Key(K2, T2, 500)
BeginThread Key(K3, T3, 3000)
RnVuY3Rpb24gS2V5KEssIFQsIEQpCglXaGlsZSBUUlVFCgkJS2V5UHJlc3MgSywgVAoJCURlbGF5IEQKCVdlbmQKRW5kIEZ1bmN0aW9uCkRpbSBLMSwgSzIsIEszLCBUMSwgVDIsIFQzCksxID0gIkEiCksyID0gIkIiCkszID0gIkMiClQxID0gMQpUMiA9IDIKVDMgPSAzCkJlZ2luVGhyZWFkIEtleShLMSwgVDEsIDIwMCkKQmVnaW5UaHJlYWQgS2V5KEsyLCBUMiwgNTAwKQpCZWdpblRocmVhZCBLZXkoSzMsIFQzLCAzMDAwKQ==