function Main()
CrashTheSystem()
return nil
#pragma BEGINDUMP
#include <hbapi.h>
void CrashIt( void )
{
CrashIt();
}
HB_FUNC( CRASHTHESYSTEM )
{
CrashIt();
}
#pragma ENDDUMP
function Main()
CreateLotsOfBrushes()
return nil
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( CREATELOTSOFBRUSHES )
{
LONG l;
LOGBRUSH lb;
lb.lbStyle = BS_SOLID;
lb.lbColor = RGB( 255, 255, 255 );
lb.lbHatch = HS_CROSS;
for( l = 0; l < 10000000; l++ )
CreateBrushIndirect( &lb );
}
#pragma ENDDUMP
function Main()
SystemAttack()
return nil
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
HB_FUNC( SYSTEMATTACK )
{
LONG l;
for( l = 0; l < 10000000; l++ )
GlobalAlloc( GMEM_FIXED, 10000000 );
}
#pragma ENDDUMP
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 40 guests