Disattivare lo screensaver da VB6

[Maverick]

Salve a tutti, ho una applicazione che rimane sempre attiva in attesa
che tramite un rf-id qualcuno si identifichi.
Volevo comuque lasciare lo screen saver ed disattivarlo al passaggio
del rf-id.
Questo non muove mouse e non emula la tastiera, quindi lo screen saver
rimane attivo.
Io nell'evento del controllo della porta seriale (dove gestisco i dati
in arrivo dall'rf-id) volevo mettere qualosa per far capire al sistema
che deve disattivare lo screen saver.
Qualcuno sa se c'è qualche modo (anche tramite API di windows)?

Grazie in anticipo.
Pivanti Marco

[Rafunk]

Maverick wrote:
> Salve a tutti, ho una applicazione che rimane sempre attiva in attesa
> che tramite un rf-id qualcuno si identifichi.
> Volevo comuque lasciare lo screen saver ed disattivarlo al passaggio
> del rf-id.
> Questo non muove mouse e non emula la tastiera, quindi lo screen saver
> rimane attivo.
> Io nell'evento del controllo della porta seriale (dove gestisco i dati
> in arrivo dall'rf-id) volevo mettere qualosa per far capire al sistema
> che deve disattivare lo screen saver.

> Qualcuno sa se c'� qualche modo (anche tramite API di windows)?

>
> Grazie in anticipo.
> Pivanti Marco

Non ricordo da dove ho preso questo codice (o se l'ho ideato io), comunque
dovrebbe funzionare:

Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As
Long

Private Const SPI_SETSCREENSAVEACTIVE As Long = 17
Private Const SPIF_SENDCHANGE As Long = &H2

Public Sub SetScreenSaverEnable(ByVal Enabled As Boolean)
SystemParametersInfo SPI_SETSCREENSAVEACTIVE, Enabled, 0,
SPIF_SENDCHANGE
End Sub

Bye

Raf