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"
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"
