DEF @ZeroMemory(2) ! "Kernel32","RtlZeroMemory" Declare area# Dim area#,4 long area#,0=8672488 Print @Long(area#,0) @ZeroMemory(area#,4) Print @Long(area#,0) Waitinput
DEF @ZeroMemory(2) ! "Kernel32","RtlZeroMemory" Declare area#,time&,e% Dim area#,4 Randomize WhileLoop 15 Time& = &gettickcount e% = time& Mod 2 WhileLoop 10000 long area#,0=Rnd(8672488) If e% @ZeroMemory(area#,4) Else clear area# EndIf Wend Print &gettickcount - time&,If(e%,"ZeroMemory","Clear") Wend Waitinput
Session-Cookies