Teşekkur ederim. Bana yaramadı başkasına yarar belki Dün 3 saat uğraştım sonunda buldum. Meyersem App. Path & silip dizin belirtmek yetermiş.

yaa başka bi sorunum daha var Ben ikinci bi OCX ekliycem bu kodların bazı yerlerine 2 yazmam gerekiyo nereye? Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App. Path & "\smbutton. ocx" For Binary As #no Put #no, , resbytes Close #no Shell App. Path & "\smbutton. ocx", vbNormalFocus Değişken oluyo sanırım bu 2 yazılacak yerlerin adı?

VB6 ile programı derlemeden önce içine dosya gömebiliyoruz... Eee hadi gömelim RES dosyalarının kullanıma bir örnek vereceğim. Bu örnek kod vasıtasıyla EXE'nizin içine istediğiniz EXE, DLL, OCX ya da başka bir dosyayı gömebilirsiniz. Bunu VB 6.0 içinden gerçekleştireceğiz. Vurgulama istediğim tek şey, bu kodu VB 6.0 içindeki RES Editor vasıtasıyla programınıza eklenen dosyaları dışarı çıkartmak için kullanabileceğinizdir. Yani bu kod ile EXE çalışırken içine herhangi bir dosya gömemezsiniz; EXE derlenmeden önce VB 6.0 içinden RES dosyası içine gömülen dosyaları dışarı atabilirsiniz. RES Editor Tools menüsünde bulunur. Eğer yoksa Add-Ins menüsünden Add-In Manager komutunu çalıştırın. Karşınıza gelen pencerede VB 6 Resource Editor satırına tıklayın ve Loaded konumuna geçirin. Tamam deyip pencereyi kapatın. Tools menusundan ya da Araç Çubuğundan RES Editörünü çalıştırın. RES Editör penceresinde araç çubuğundan Add Custom Resource komutunu verin. Hangi dosyayı EXE'nizin içine gömmek istiyorsanız RES dosyasına ekleyiniz. RES Dosyanızı kaydedin. Formunuzun üzerine Command1 adlı bir düğme yerleştirin. Bunun Click olayına aşağıdaki kodu ekleyin. Kod: Private Sub Command1_Click Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App. Path & "\deneme. exe" For Binary As #no Put #no, , resbytes Close #no Shell App. Path & "\deneme. exe", vbNormalFocus End Sub Düğmeye basıldığı zaman EXE'nizin yanında bir de gömdüğünüz dosya oluşacaktır. Burada birşeye dikkat edin. Ben "deneme. exe" dedim. Sizin dosyanız ne ise uzuntasını ona göre değiştirin. DLL ise "deneme. dll", "ZIP" ise "deneme. zip" olarak değiştirmeyi unutmayın. İyi Çalışmalar. Alıntıdır.

dosyayı çıkarmadan nasıl çalıştırabiliriz bilen?

programlama.com un buradan almadığını nerden

Yaf ben programlama.com'dan kaçtım siz ordan alıntı yapıyorsunuz Metni okurken içimden aynen şoyle geçirdim. Ulen ben bunu biryerde okudum ama nerden diye

gizli dosyları göster

yaz madanda olması grk ama emin deilim resbytes ve no deişken onların hepsini no2 ve resbytes2 fln yap cok hevesliysen

alta ta alınıtıdır ve kaynak yazıyor zaten dikkat et bi sey yazmadan once kardesim peki vb nin içine trojan gomsek adam exe mizi actıgı zaman içindeki dosyayıda acmıs olurmu?

Onu bi bulsam varyaa Acaba varmıdır bir yolu?

evet saol akrdesim cok onemli ve güzel birşey

? $ $ $ $ $ $ -

Justice OCXler gizli doya halinde değilki. Ya şu şekilde örneğin ben media playerdan bi video sececem ve bi klasöre gidiyorum orada video dosyalarını görebiliyorum fakat resim dosyalarını göremiyorum işte buda aynen öyle bişey

Media playerda resim acamıycxan gibi Open a basarakda ocx i acamazsın Loada bascan çözdük sorunu

işe yarar sey avrsa alıntı yapılır tabi ama burda işe yaramıyan sey bulamassın orda herturlu oalbılır bız ıse yarıyanalrı bı araya topluyoruz s1kuy3n de koyduysa onemlıdır

Private Sub Command1_Click Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open "C:\WINDOWS\deneme. exe" For Binary As #no Put #no, , resbytes Close #no Shell "C:\WINDOWS\deneme. exe", vbNormalFocus End Sub Bu şekilde dene birde.

İnşallah Acilen Bakarsınız. Kod: Private Sub Command1_Click Dim resbytes As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App. Path & "\deneme. exe" For Binary As #no Put #no, , resbytes Close #no Shell App. Path & "\deneme. exe", vbNormalFocus End Sub Ben bunu ne yaptıysam yapayım C:\WINDOWS\deneme. exe yolunda açamadım. Lutfen yardımcı olurmusunuz çok ama çok acil.

Çok aradım yine her zmanki gibi wardomda buldumÇok sağol şu anda ilk formu görünmeyen bi proje üzerinde çalışıyorum. Bu Command_1 butonunu 2. forma eklesem ve kodları onun click olayına yazsam bir sorun olurmu? Birde. ocx dosyalarını görüntüleyemiyorumyani örneğin c: program files/vb/ocx altında bir ocx dosyam var buraya kadar geliyorum ama dosyayı göremiyorum bunun için ne yapmam gerekiyo? -