alireza378
دوشنبه 26 خرداد 1393, 08:11 صبح
سلام خدمت دوستان
بنده یک سوال داشتم
میخوام وقتی روی button1 کلیک کنم یه فایل exe با سورسی که قبلا بهش گفتم کنار برنامه ی من ساخته بشه
خواهشا سوالم رو اشتباه نگیرید منظورم ذخیره ی برنامه به صورت exe نیست !
از این کد استفاده میکنم ولی جواب نمیده
مشکل چیه؟
اگه کد بهتری مد نظرتونه خوشحال میشم بهم بگید
Friend Function CreateConsoleApplication(ByVal VBSourceCode As String, ByVal WhereToSave As String) As Boolean
Try
Dim provider As Microsoft.VisualBasic.VBCodeProvider
Dim compiler As System.CodeDom.Compiler.ICodeCompiler
Dim params As System.CodeDom.Compiler.CompilerParameters
Dim results As System.CodeDom.Compiler.CompilerResults
params = New System.CodeDom.Compiler.CompilerParameters
params.GenerateInMemory = False
params.TreatWarningsAsErrors = False
params.WarningLevel = 4
'Put any references you need here - even you own dll's, if you want to use one
Dim refs() As String = {"System.dll", "Microsoft.VisualBasic.dll"}
params.ReferencedAssemblies.AddRange(refs)
params.GenerateExecutable = True
params.OutputAssembly = WhereToSave
provider = New Microsoft.VisualBasic.VBCodeProvider
results = provider.CompileAssemblyFromSource(params, VBSourceCode)
For Each r In results.Errors
Console.WriteLine(r.ToString)
Next
Return True
Catch ex As Exception
MessageBox.Show(ex.ToString)
Return False
End Try
End Function
بنده یک سوال داشتم
میخوام وقتی روی button1 کلیک کنم یه فایل exe با سورسی که قبلا بهش گفتم کنار برنامه ی من ساخته بشه
خواهشا سوالم رو اشتباه نگیرید منظورم ذخیره ی برنامه به صورت exe نیست !
از این کد استفاده میکنم ولی جواب نمیده
مشکل چیه؟
اگه کد بهتری مد نظرتونه خوشحال میشم بهم بگید
Friend Function CreateConsoleApplication(ByVal VBSourceCode As String, ByVal WhereToSave As String) As Boolean
Try
Dim provider As Microsoft.VisualBasic.VBCodeProvider
Dim compiler As System.CodeDom.Compiler.ICodeCompiler
Dim params As System.CodeDom.Compiler.CompilerParameters
Dim results As System.CodeDom.Compiler.CompilerResults
params = New System.CodeDom.Compiler.CompilerParameters
params.GenerateInMemory = False
params.TreatWarningsAsErrors = False
params.WarningLevel = 4
'Put any references you need here - even you own dll's, if you want to use one
Dim refs() As String = {"System.dll", "Microsoft.VisualBasic.dll"}
params.ReferencedAssemblies.AddRange(refs)
params.GenerateExecutable = True
params.OutputAssembly = WhereToSave
provider = New Microsoft.VisualBasic.VBCodeProvider
results = provider.CompileAssemblyFromSource(params, VBSourceCode)
For Each r In results.Errors
Console.WriteLine(r.ToString)
Next
Return True
Catch ex As Exception
MessageBox.Show(ex.ToString)
Return False
End Try
End Function