Türkiye'nin en eski ve aktif online oyun platformu, Ultima Online, Counter-Strike ve diğer online oyunlar hakkında Türkçe haber, bilgi ve forum sunuyor. Türkiye'nin en eski ve aktif online oyun platformu, Ultima Online, Counter-Strike ve diğer online oyunlar hakkında Türkçe haber, bilgi ve forum sunuyor.
  • ANASAYFA
  • FORUM
  • DOKÜMAN
  • DOWNLOAD
  • DISCORD
  • İLETİŞİM
   Üye ol    Giriş
    Doküman > Diğer Dökümanlar > Exe içine dosya eklemek
Alien

Exe içine dosya eklemek

  • Alien
  • 2008-02-17 22:08
  • 0 Yorumlar
  • 6869 Görüntüleme
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.

Üye Ol veya Giriş Yap

Bu içeriğe yorum atmak istiyorsanız hemen üye olun veya giriş yapın.

Yorumlar (0)

Henüz yorum yapılmamış
Sadece kayıtlı kullanıcılar yeni yorum yapabilir.


Ultima-Strike Discord
Benzer Sayfalar
  • Dosya paylaşımına 8000 dava açıldı!

    2006-10-22 23:09

  • Verdata\'ya Npc Eklemek

    2005-08-11 08:58

  • Verdata\'ya binek eklemek

    2006-07-26 13:07

  • Verdata'dan İtem Eklemek

    2007-07-18 14:44

  • Verdataya Npc Eklemek (Resimli)

    2008-03-10 00:47



  • Son Forumlar
  • Sayfalar
  • Nefrelius
    Randomspawn yardım !

    Sphere Scripting 3 gün önce

  • firehellsly
    Royal UO

    Sunucular 6 gün önce

  • EgeERKEK
    [U.S.] Kalan

    Counter-Strike 1 hafta önce

  • Nefrelius
    Merhaba arkadaşlar Nefrelius ben.

    Ultima Online 2 hafta önce

  • EgeERKEK
    [ÜCRETSİZ] | Sunucu Sahibinin El Kitabı

    Ultima Online 2 hafta önce

  • firehellsly
    Richard GARRIOTT, Ultima Online 2'yi yapmak istiyor ama bir şartı var!

    Ultima Online 2 hafta önce

  • Tymaron
    Usec ve Bear Arasındaki Farklar

    Escape From Tarkov 1 ay önce

  • Tymaron
    Escape From Tarkov Wipe!

    Escape From Tarkov 1 ay önce

  • ClassicUO Web, bildiğiniz ve sevdiğiniz oyunu tarayıcınıza getiriyor.

    Ultima Online’ı Küllerinden Doğuracak Client; ClassicUO Web

    2023-08-05 04:49

  • #Sponsorluİçerik

    Pyramid Ultima Online

    2023-08-04 21:01

  • Yeni Yayın Platformu Kick!

    2023-08-04 15:22

  • Bütün bir yıl çok çalıştılar, çok fazla mücadele ettiler ve artık sona geldiler.

    ESL One Cologne 2017

    2017-06-30 17:45

  • Activision yetkililerinin yaptığı açıklamaya göre Cod:MW Remastered, Infinite Warfare’den ayrı bir oyun olarak satılmaya başlanacak.

    Call of Duty Modern Warfare Remastered açıklandı!

    2017-06-24 23:21

  • Artık gelenekselleşen Steam mevsim indirimlerinin en sevileninin zamanı geldi kapımıza dayandı.

    Steam Yaz İndirimi 2017 Rehberi

    2017-06-22 15:11

  • Ultima Online için unoffical DLC

    Ultima LandFall

    2017-06-18 22:34

  • Simple Radar - Kullanışlı ve Basit Radar

    2017-06-03 04:18

Menü

ANASAYFA
FORUM
DOKÜMAN
DOWNLOAD
İLETİŞİM
Ideamedia
© 2004 - 2023 Ultima-Strike. Her hakkı saklıdır.