当然ながら、4bytes書き込みならlpokeの方が早い。
#include "winmm.as"
timeBeginPeriod 1
wait 5
timeGetTime:st=stat
s="":ct=0
repeat //1秒間取得
poke s,0,$44:poke s,1,$33:poke s,2,$22:poke s,3,$11
timeGetTime:et=stat
if (et-st)>1000:ct=cnt:break
loop
mes "1秒間に"+ct+"回poke実行しました。"
timeGetTime:st=stat
s="":ct=0
repeat //1秒間取得
lpoke s,0,$11223344
timeGetTime:et=stat
if (et-st)>1000:ct=cnt:break
loop
mes "1秒間に"+ct+"回lpoke実行しました。"
timeEndPeriod 1
stop