DEF @ZeroMemory(2) ! "Kernel32","RtlZeroMemory" Declarar Zona# Dim Zona#,4 long Zona#,0=8672488 Imprimir @Largo(Zona#,0) @ZeroMemory(Zona#,4) Imprimir @Largo(Zona#,0) Waitinput
DEF @ZeroMemory(2) ! "Kernel32","RtlZeroMemory" Declarar Zona#,time&,e% Dim Zona#,4 Selección aleatoria WhileLoop 15 Time& = &gettickcount e% = time& Mod 2 WhileLoop 10000 long Zona#,0=Rnd(8672488) If e% @ZeroMemory(Zona#,4) Más clear Zona# EndIf Wend Imprimir &gettickcount - time&,If(e%,"ZeroMemory","Clear") Wend Waitinput
Session-Cookies