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ı.