Quantcast
Viewing all articles
Browse latest Browse all 5

how to unload Assembly?

because Load File in byte Array and then load it in Assembly, then u can rename,delete,... with dll

Public

 

ClassForm2

 

PublicSharedFunction xLoadFile(ByVal FileName AsString)AsByte()

 

Dim fsAs FileStream =New FileStream(FileName, FileMode.Open)

 

Dim buf(fs.Length)AsByte

fs.Read(buf, 0, buf.Length)

fs.Close()

 

Return buf

 

EndFunction

 

PrivateSub Button1_Click(ByVal sender As System.Object,ByVal eAs System.EventArgs)Handles Button1.Click

 

Dim objAsObject

 

Dim params(2)AsObject

params(0) = a

 

'your first parameter

params(1) = b

'your Second parameter

params(2) = c

'your Third parameter

 

Dim rawAsmArrAsByte() = xLoadFile(TextBox1.Text)

 

Dim cAssemblyAs Assembly = Assembly.Load(rawAsmArr)

 

ForEach TypeAlgorithmAsTypeIn cAssembly.GetExportedTypes()

 

If TypeAlgorithm.IsClassThen

 

Dim ObjAlgorithmInstanceAsObject =Activator.CreateInstance(TypeAlgorithm)

 

Dim methodInfoAs MethodInfo = ObjAlgorithmInstance.GetType().GetMethod("Init")

 

If methodInfo.Invoke(ObjAlgorithmInstance, params)Then

obj = params(0)

 

EndIf

 

EndIf

 

Next

 

EndSub

End

 

Class

 

 

 

 

 

 

 

 

 


Viewing all articles
Browse latest Browse all 5

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>