Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Visual Basic İle 2 Dosyayı Birleştirme Falzası Joiner :D Visual Basic İle 2 Dosyayı Birleştirme Falzası Joiner :D
-
Visual Basic İle 2 Dosyayı Birleştirme
Bu bölümde sizlere 2 dosyayı birleştirmeyi anlatacağım
2 dosya bindirmek örnek içindir. isterseniz binlerce dosyayı bu şekilde
birbirine bindirebilirsiniz.. gerisi sizin zekânıza kalmış..
Dim nSF, nDF As Integer
Dim chunk As String
Private Sub Command1_Click()
nSF = 1
nDF = 2
Open "C:\holocaust.jpg" For Binary As nSF
Open "C:\turkajan.exe" For Binary As nDF
chunk = Space(1)
Get #nSF, 13127, chunk
Put #nDF, , chunk
Close #nSF
Close #nDF
End Sub
Bu örnekte C sürücüsünde yer alan holocaust.jpg resmine turkajan.exe dosyasını bindirir..
Yukarıda bahsettiğim gibi 2 dosya örnektir.. arttırılabilir... mesela bir listbox a dosya
path larını girin. sonra bi text kutusuna bindirilecek dosyanın path'ını girin.
1 den list1.listcount-1 e kadar bi döngü kurun
yukarıdaki kodun dosya isimleri yazan yerine
holocaust.jpg dosyasının yerine bindirilecek dosyanın textkutusunun adını yazın (text1.text)
turkajan.exe dosyasının yerine list1.list(dongu) yazın
bu kadar... dosyaları tekrar parçalamak için tekrar aynı taktiği kullanabilirsiniz ama bu sefer
dosyanın adı ve uzunluğunuda dosya sonuna kaydetmeniz gerekir..Zaten birçok file joiner bu şekilde yazıldı...
sorularınız için holocaust@w.cn adresine mail atabilirsiniz...
umarım işinize yarar // Holocaust -
execute edeiblen joinerlarda bu şekilde yazılır tek farkları aslında 2 değil 3 program execute etmeleridir 1. program diğer 2 programı kendini okuyarak çıkarıp açacak olandır sonuç dosya 1. programın iconun alacağından 1. programın include edilmiş RES dosyasına hangi icon sokulursa onun görünümünü alır aynı şekilde programın özellik bilgileride başka bi programdan kopyalanabilinir. işin mantığı bu teknik kısım ise her program kendi uzunluğu kadarnı okur devamı comment olarak algılanır dikkate alınmaz ancak kendinde okuyabilen programımız comment kısma yerleştirilmiş tüm verileri alaiblir. ben örnek kod verme taraftarı değilim oturun yazın :)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2740 Toplam Mesaj: 2
Cevapla