Tek Satır Kodla İkon Değiştirme [ vb.net ]

Crypter, Binder, RAT, Keylogger vb. kodlayan arkadaşlar ikon değiştirme konusunda bazen satırlarca kod yazmaları gerekiyor veya ikon değiştirme kodlarını bulup derlemekle uğraşıyor ikon değiştirme işlemi için. Program argüman kodlarını kullanıyor ve resource hacker'a ihtiyaç duyuyor kullanabilmek için uygulamanızın başlama yerine yani debug klasörü içerisine res diye bir klasör açın en altta vereceğim res.exe'yi atın veyahut sizin indirmiş olduğunuz resource hacker uygulamasını da atabilirsiniz. İkon problemine şahsen böyle bir çözüm buldum umarım işinize yarar temel mantığı ele alıp load olayına ekleyebilirsiniz, DLL'ye enjekte edebilirsiniz vesaire vesaire.

2 adet Textbox ekleyelim şahsen birini fazla koymuşum sizlerden ikinci bir ricam birinin adını textbox2 diğerinin adını textbox3 yapmanız.

3 adet buton ekleyelim bunlar sırası ile ikonumuzu seçecek, değiştirmek istediğimiz exe uygulamasını seçecek sonuncusu ise tüm bu operasyonu işleme koyacak.

1 adet opendfiledialog ekleyelim bunla da açma işlemi yapacağız.

İkon Seçme kodumuz;

OpenFileDialog1.DefaultExt = "ico"

OpenFileDialog1.Filter = "Icon dosyaları (*.ico)|*.ico"

OpenFileDialog1.FilterIndex = 1

If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then

TextBox3.Text = String.Empty

TextBox3.Text = OpenFileDialog1.FileName

End If

EXE Seçme Kodumuz;

OpenFileDialog1.DefaultExt = "ico"

OpenFileDialog1.Filter = "Icon dosyaları (*.ico)|*.ico"

OpenFileDialog1.FilterIndex = 1

If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then

TextBox2.Text = String.Empty

TextBox2.Text = OpenFileDialog1.FileName

End If

Bir fonksiyon oluşturalım ve adını uygulamanın başladığı yer olan İngilizcesi App_Path yapalım kodumuz aşağıdadır;

Public Function App_Path() As String

Return System.AppDomain.CurrentDomain.BaseDirectory()

End Function

Bir adet sub oluşturacağız ve bu ikonumuzu değiştirmeye yarayan tek satırlık kod olacak.

Private Sub IconIt(ByVal SourceIcon As String)

Shell(App_Path() & "res\\res.exe -addoverwrite " & TextBox2.Text & ", " & TextBox2.Text & ", " & SourceIcon & ", " & "icongroup, 1,0")

End Sub

Şimdi operasyonumuzu faaliyete geçireceğimiz koda geldi sıra butonumuza aşağıdaki kodu girdim;

Call IconIt(TextBox3.Text)

MsgBox("İkon başarı ile değiştirildi!", MsgBoxStyle.Information, "Sistem")

Ve işlemimiz tamamlandı.

Maveraün1Nehr

Mavi Takım