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