فراخوانی Dll از Resource

[saeidmobashery]

سلام بر اساتید گرامی

بنده فایل DLL را به ریسورس اضافه کردم ، پیش از اضافه کردن با نوشتن عبارت Imports Ionic.Zip در ابتدای کلاس می‌توانستم در محتوای کلاس از آن استفاده کنم ولی اکنون که به ریسورس اضافه شده نمی‌دانم به چه صورتی در کلاس از آن استفاده کنم

سپاس از راهنمایی دوستان گرانقدر

[saeidmobashery]

فیلم زیر را در یوتوب دیدم و کد زیر را اعمال کردم و با خطای داخل عکس پیوست مواجه شدم :

https://youtu.be/a57wDNFZgMg?si=Q7kdypXNV-LB1jeF

Partial Friend Class MyApplication

    Private WithEvents CurrentDomain As AppDomain = AppDomain.CurrentDomain

    Private Function DomainCheck(sender As Object, args As System.ResolveEventArgs) Handles CurrentDomain.AssemblyResolve

        Using Stream As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly().  GetManifestResourceStream _

            (GetType(WinData_Form).Namespace + ".Ionic.Zip")

            Dim assemblydata As Byte() = New Byte(Stream.Length - 1) {}

            Stream.Read(assemblydata, 0, assemblydata.Length)

            Return System.Reflection.Assembly.Load(assemblydata)

        End Using

    End Function

End Class

Screenshot_2024_03_07_22_57_28.jpg

[saeidmobashery]

فیلم دیگری هم با آدرس زیر موجود است که کد زیر را پیشنهاد می‌کند و با پارامتر ناشناس داخل تصویر پیوست روبرو می‌شوم

https://youtu.be/fYgJMRLTc1A?si=RsVCekcAdnmEpGZz

Private WithEvents Domain As AppDomain = AppDomain.CurrentDomain

Private Function DomainCheck(sender As Object, e As System.ResolveEventArgs) As System.Reflection.Assembly Handles Domain.AssemblyResolve

    If e.Name.Contains("Ionic.Zip") Then

        Return System.Reflection.Assembly.Load(My.Resources.Shift  TechControl)

    Else

        Return Nothing

    End If

End Function

Screenshot_2024_03_07_22_41_14.png