XProfan

'Source wurde am 25.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
'+-------------------------------------------------------------------------------------------
'+ Anzahl der Maustasten herausfinden.                                              -
'+-------------------------------------------------------------------------------------------
 $H Windows.PH
Declare Result%
Def @GetSystemMetrics(1) !"USER32","GetSystemMetrics"
CLS
Result%= GetSystemMetrics(~SM_CMOUSEBUTTONS);
WindowTitle "Deine Computermaus hat "+@Str$(Result%)+" Tasten."
WaitInput