SİSTEMİ 10 SANİYEDE DURDURUN

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)

Private Sub Durdur_Click()
DoEvents
'mouse ve klavyeyi bloke et

BlockInput True 'bloke işlemine başla
Sleep 10000 '10 saniye bloke et
BlockInput False 'bloke işlemini sonlandır
End Sub


forma bi buton oluşturun (name:durdur) sonra forma yukardaki kod yapıştırın

10 snliğine pc donacak