Dosya Gömmek [ KOD ]

[DN Angel]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Gerekli olanlar ;
1 Module

Module kodları ;

Option Explicit

Sub VeriÇıkar(Numara As Byte, Tür As String, Dosya As String)
Dim Buffer() As Byte
Buffer = LoadResData(Numara, Tür)
Open Dosya For Binary As #1
Put #1, , Buffer()
Close #1
End Sub

Formload kodu ;
VeriÇıkar 101, "CUSTOM","C:\deneme.exe"