DLLのアクセスに問題があるCodeDomコンパイラ

Question

Public Function GenerateScript(code As String) As IScript 
    Using provider As New VBCodeProvider() 
     Dim parameters As New CompilerParameters() 
     parameters.GenerateInMemory = True 
     parameters.ReferencedAssemblies.Add(Assembly.GetExecutingAssembly().Location) 
     Dim interfaceNamespace As String = GetType(IScript).Namespace 
     Dim codeArray() As String = New String() {"Imports " & interfaceNamespace & Environment.NewLine & code} 
     Dim results As CompilerResults = provider.CompileAssemblyFromSource(parameters, codeArray) 
     Return CType(results.CompiledAssembly.CreateInstance("Script"), IScript) 
    End Using 
End Function 

私は上記のコードを使用して、時間の経過と共に変化する可能性のある文字列を実行しています。しかし、私はこれを実行すると、私はこのエラーが表示されます：

System.IO.FileNotFoundException: 'Could not load file or assembly 'file:///C:\Users\zjf\AppData\Local\Temp\ykujgxkp.dll' or one of its dependencies. The system cannot find the file specified.' 

私はこれを修正する方法がわかりません。誰でも私を助けてくれますか？

ありがとうございます！

Answer 1

あなたはあなたのコードにこれを追加してみてください、あなたのアプリケーションにdllファイルを実装する必要がありセクション行方不明：

Public Function GenerateScript(code As String) As IScript 
    Using provider As New VBCodeProvider() 
     Dim parameters As New CompilerParameters() 
     parameters.GenerateInMemory = True 
     Parameters.EmbeddedResources.Add("C:\Users\zjf\AppData\Local\Temp\ykujgxkp.dll") 
     Parameters.ReferencedAssemblies.AddRange(New String() {"System.dll", "System.Drawing.dll", "System.Windows.Forms.dll", "System.Management.dll", "C:\Users\zjf\AppData\Local\Temp\ykujgxkp.dll"}) 
     Dim interfaceNamespace As String = GetType(IScript).Namespace 
     Dim codeArray() As String = New String() {"Imports " & interfaceNamespace & Environment.NewLine & code} 
     Dim results As CompilerResults = provider.CompileAssemblyFromSource(parameters, codeArray) 
     Return CType(results.CompiledAssembly.CreateInstance("Script"), IScript) 
    End Using 
End Function 

：だからあなたの最終的なコードは次のようなものでなければなりません

Parameters.EmbeddedResources.Add("C:\Users\zjf\AppData\Local\Temp\ykujgxkp.dll") 
Parameters.ReferencedAssemblies.AddRange(New String() {"System.dll", "System.Drawing.dll", "System.Windows.Forms.dll", "System.Management.dll", "C:\Users\zjf\AppData\Local\Temp\ykujgxkp.dll"}) 

を