Beepton Systemweit abschalten

[kostas]

Sub beep(dummy as int)

'

Declare Sub SystemParametersInfoSet Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long)

'

Const SPI_SETBEEP = 2
Const SPIF_SENDWININICHANGE = &H2

Const SPIF_UPDATEINIFILE = &H1

'

~SystemParametersInfoSet(SPI_SETBEEP, dummy, 0, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)   ' dummy = 0 = Aus, dummy = 1 = EIn

'

EndSub