Bunu yapmak için Vb içerisindeki " ResEditor " ü kullanicaz. ResEditore Tools menusunden ulasabilirsiniz. Eger orda yoksa, " Add-Ins > Add-In Manager " Seçeneklerini takip edip, Karsimiza çikan Pencereden; " Vb 6.0 Resource Editor " ü isaretledikten sonra " Loaded/Unloaded " Seçenegini isaretleyip Projenize ekliyebilirsiniz. Evet simdi ResEditor u çalistirin. ResEditör penceresinde araç çubugundan "Add Custom Resource" Seçenegini tiklayin. Exenizin içerisine Hangi dosyayi gömmek istiyorsaniz seçin . Seçtiginiz dosya "CUSTOM" Klasörü altinda 101 numarasiyla ResEditor Penceresinde Görünecektir. Simdi Yine ResEditor Araç çubugundaki "Save" komutu ile RES dosyanizi kaydedin. Islem tamam, simdi bu dosyayi disari çikariyoruz. Bir Command butonun Click Olayina asagidaki kodlari ekliyoruz. Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App. Path & "\MSWinsock. ocx" For Binary As #no Put #no, , resbytes Close #no Shell App. Path & "\MSWinsock. ocx", vbNormalFocus Tabi dosyanizin uzantisina dikkat edin. Gömdügünüz dosya Ne ise onu yazicaksiniz. Butona Tiklandiginda Gömmüsoldugunuz dosya EXE nizin yanina olusturulacaktir. Bu yolla birden fazlada dosya Gömebilirsiniz, bunu yapmak için Dikkat etmeniz gereken nokta lar sunlar ; 1- Tanimlanan Degiskenler farkli olmak zorundadir. Ör: Dim resbytes As Byte Dim resbytes2 As Byte 'ikinci böyle olanilir. Aynisi Dim no As Byte içinde geçerli. 2- resbytes = LoadResData(101, "CUSTOM") 'Burdaki 101 dosya numarasi, Her dosya için farkli olicaktir, Bunada dikkat ediyoruz. 3- Open App. Path & "\MSWinsock. ocx" For Binary As #no ' Bu Gömülen dosyanin Çikartilacagi dizini Belirtir. Istediginiz gibi Degistirebilirsiniz. 4- Ve son olarak Shell App. Path & "\MSWinsock. ocx", vbNormalFocus 'Komutu ile Çikartmis oldugunuz Dosyayi çalistirabilirsiniz. Bilgi Paylaştıkça Artar