[vb] bloccare windowz

[teto]

BUON GIORNO ...
il programma ke sto implementando ha 1 funzionamento semplicissimo;il nome e cognome+ora avvio+ora chiusura sessione,in 1 file .txt)funziona benissimo :adhone: ,ma ora mi servirebbe il codice x bloccare il caricamento di windows,x poi fallo ricominciare quando l'utente ha immesso i vari dati del programmino.. --come 1 specie di password--
Spero di essere stato kiaro..grazie già da ora

[xegallo]

qui deve tenere conto di + cose
1 devi disabilitare il ctrl alt canc

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
Public Sub Disable_Ctrl_Alt_Canc()
    
    Dim AyW As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        True, TurFls, 0)
End Sub
Public Sub Enable_Ctrl_Alt_Canc()
    
    Dim AwY As Integer
    Dim TurFls As Boolean
    AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
        False, TurFls, 0)
End Sub

poi devi tenere il focus sempre sulla tua Applicazione

Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long

Public Sub AlwaysOnTop(myfrm As Form, SetOnTop As Boolean)
    If SetOnTop The
    lFlag = HWND_TOPMOST
Else
    lFlag = HWND_NOTOPMOST
End If
SetWindowPos myfrm.hwnd, lFlag, _
    myfrm.Left / Screen.TwipsPerPixelX, _
    myfrm.Top / Screen.TwipsPerPixelY, _
    myfrm.Width / Screen.TwipsPerPixelX, _
    myfrm.Height / Screen.TwipsPerPixelY, _
    SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

e devi anche farlo partire all'avvio

Public Declare Function WriteProfileSection Lib "kernel32" _
Alias "WriteProfileSectionA" (ByVal  lpAppName As String, _
ByVal lpString As String) As Long
'Sul Form
WriteProfileSection "windows", "load=" & App.path + "\" + _
App.EXEName + ".exe" & vbCrLf & _
"open=" & App.path + "\" + App.EXEName + ".exe"""