Dosya Gömmek... Evet bu makalede, Oluşturduğunuz uygulamaların içine nasıl Dosya gömebileceğinizi Öğreniceksiniz. Aslında bunun çok kolay olduğunu, Birkaç basit işlemle nasıl halledileceğini görücez. Bunu yapmak için Vb içerisindeki " ResEditor (Resource Editor) " ü kullanıcaz. ResEditore Tools menusunden ulaşabilirsiniz. Eğer orda yoksa, " Add-Ins > Add-In Manager " Seçeneklerini takip edip, Karşımıza çıkan Pencereden; " Vb 6.0 Resource Editor " ü işaretledikten sonra " Loaded/Unloaded " Seçeneğini işaretleyip Projenize ekliyebilirsiniz. Evet şimdi ResEditor u çalıştırın. ResEditör penceresinde araç çubuğundan "Add Custom Resource" Seçeneğini tıklayın. Exenizin içerisine Hangi dosyayı gömmek istiyorsanız seçin (.DLL .EXE .OCX ..Vs). Seçtiğiniz dosya "CUSTOM" Klasörü altında 101 numarasıyla ResEditor Penceresinde Görünecektir. Şimdi Yine ResEditor Araç çubuğundaki "Save" komutu ile RES dosyanızı kaydedin. İşlem tamam, şimdi bu dosyayı dışarı çıkarıyoruz... Bir Command butonun Click Olayına aşağıdaki kodları 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 dosyanızın uzantısına dikkat edin. Gömdüğünüz dosya Ne ise onu yazıcaksınız. (ör: Program.exe , deneme.dll ..Vs) Butona Tıklandığında Gömmüşolduğunuz dosya EXE nizin yanına oluşturulacaktır. Bu yolla birden fazlada dosya Gömebilirsiniz, bunu yapmak için Dikkat etmeniz gereken nokta lar şunlar ; 1- Tanımlanan Değişkenler farklı olmak zorundadır. (eğer kodlar aynı Yordam içerisindeyse) Ör: Dim resbytes() As Byte Dim resbytes2() As Byte 'ikinci böyle olanilir. Aynısı Dim no As Byte içinde geçerli. 2- resbytes = LoadResData(101, "CUSTOM") 'Burdaki 101 dosya numarası, Her dosya için farklı olıcaktır, Bunada dikkat ediyoruz. 3- Open App.Path & "\MSWinsock.ocx" For Binary As #no ' Bu Gömülen dosyanın Çıkartılacağı dizini Belirtir. İstediğiniz gibi Değiştirebilirsiniz. 4- Ve son olarak Shell App.Path & "\MSWinsock.ocx", vbNormalFocus 'Komutu ile Çıkartmış olduğunuz Dosyayı çalıştırabilirsiniz.
0 yorum:
Yorum Gönder