ctrl+alt+del iptal etmeee !!! -

kodlar bu deneme zamanım olmadı Kusura bakmyın


Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Sub Command1_Click()

Dim lngRetVal As Long
Dim blnPrevValue As Boolean
lngRetVal = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
blnPrevValue, 0&)

End Sub