🚀 go-pugleaf

io sn 1 studente, nn vorrei che questo aiuto mi si ritorcesse contro,
comunque:

1) disabilita il tasto ctrl-alt-canc

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

Const SPI_SETSCREENSAVEACTIVE = 97

Sub DisableCAD(bState As Boolean)
    Dim x As Long
    Dim lngWas As Long
    x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
        bState, lngWas, 0)
End Sub

'Ecco come va usato
'Per disattivare:
DisableCAD True
'Per attivare:
DisableCAD False


2) disabilita l' alt-tab

'Inserire dichiarazione e costante in un modulo Bas

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

Public Const SPI_SCREENSAVERRUNNING = 97  'al posto del 97 devi mettere il
numero giusto, ora nn ricordo, cmq si trova facilmente(sarebbe il codice
dell'alt-tab)

'Scrivere questa routine da richiamare come segue:
'HotKeyEnabled False (per disabilitare)
'oppure HotKeyEnabled True (per abilitare)

Sub HotKeyEnabled (x As Boolean)

 Dim ret As Integer
 Dim pOld As Boolean
 ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, x, ZpOld, 0)

End Sub


3)a questo punto obblighi a inserire il nome e numero di tesserino, fai il
controllo se � giusto o meno, e disabiliti il tutto.

penso ke sia un sistema efficace.

feci un programma simile per nn far entrare mio padre nel mio sistema!!!!
cmq visita il sito da cui prendo sempre consigli:
http://www.visual-basic.it/

ciao