关键代码:
Program.rm = New ResourceManager(Program.Settings, Assembly.GetExecutingAssembly)
AddHandler AppDomain.CurrentDomain.AssemblyResolve, New ResolveEventHandler(AddressOf Program.CurrentDomain_AssemblyResolve)
Dim assembly1 As Assembly = Assembly.Load(Program.GetObject(Program.EP))
Program.Print(String.Format("Main loaded : {0}", (Not assembly1 Is Nothing)))
assembly1.EntryPoint.Invoke(Nothing, Nothing)
看看哪位大大能看看搞定他,我是第一次看到这种改动EntryPoint的
我提取单独文件的方法:
1,ildasm反编译出il(15K和一个reosurce文件)
2,编写程序
Dim w As New System.Resources.ResourceReader("d:\temp\Green.DbTools.settings.resources")
Dim da As Byte()
w.GetResourceData("ScripterUI.exe".GetHashCode, "Green.DbTools.AppData", da)