güzel ve korkutucu bişi

Arkadaşlar Buda benden olsun. Zararsız Bir şey sadece klavyeyi ve mouse kitleyip Bilgisayarı kapatıyor. Not: project > preferences sekmesinden microsoft speech object library eklemeniz gerekiyor. Kod: Dim speech As SpVoice Private Declare Function BlockInput Lib "user32" As Long Private Sub Form_Load BlockInput True End Sub Private Sub Form_Load Set speech = New SpVoice Timer1. Enabled = True End Sub Private Sub Timer1_Timer Label1 = Val(Label1) - 1 If Label1. Caption = 0 Then Timer1. Enabled = False speech. Speak Timer2. Enabled = True End If End Sub Private Sub Timer2_Timer Label2 = Val(Label2) - 1 If Label2. Caption = 0 Then speech. Speak Timer2. Enabled = False Shell ("shutdown -s -t 30") End End If End Sub