[Aly El-Haddad]

انظر هذا الكود (يكتب الملفات في هيئة ملف تنفيذي exe):

PHP كود :

Dim RS As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
        For Each dict As DictionaryEntry In RS
            If dict.Value.GetType() Is GetType(Byte()) Then
                Dim B As Byte() = dict.Value
                IO.File.WriteAllBytes(Application.StartupPath & "\" & dict.Key & ".exe", B)
            End If
        Next