DLL Injector

[csalphyy]

So I decided to release my old shitty project that I was working on, but failed miserably. This Injector doesn't even work (Gives a runtime error and crashed your game, too lazy to fix that shit.) and is detected. Releasing this so people can maybe try and recreate my menu somehow?? Im not sure, do whatever you want.

Virusscans:
https:// virusscan. jotti. org /en-US/filescanjob/dgsoby5p3d
https:// www. virustotal. com /#/file/539c6488725c1c34e7f9befaf54d50d2959e45cbab1f39cc88 871a08731267cb/detection
(Most likely false positives because it's an Injector.)
Enjoy.

[[MPGH]T-800]

//Approved

[TheDutchDoge]

It says virus detected, just ignore this or something?

[KMWTW]

It says virus detected, just ignore this or something?

just ignore.

[csalphyy]

EDIT:
This injector actually does work, its my trash paste that gives the runtime error.

[Lihpse]

bruh... using System.Diagnostics;
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using System.Runtime.Versioning;

[assembly: AssemblyCompany("")]
[assembly: AssemblyCopyright("Copyright © 2012")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyFileVersion("1.0.0.0")]
[assembly: AssemblyProduct("CrazywinksDLLinjectionTutorial")]
[assembly: AssemblyTitle("CrazywinksDLLinjectionTutorial")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: CompilationRelaxations(8)]
[assembly: ComVisible(false)]

Tutorial???

[csalphyy]

bruh... using System.Diagnostics;
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
using System.Runtime.Versioning;

[assembly: AssemblyCompany("")]
[assembly: AssemblyCopyright("Copyright © 2012")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyFileVersion("1.0.0.0")]
[assembly: AssemblyProduct("CrazywinksDLLinjectionTutorial")]
[assembly: AssemblyTitle("CrazywinksDLLinjectionTutorial")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: CompilationRelaxations(8)]
[assembly: ComVisible(false)]

Tutorial???

EDIT:
This injector actually does work, its my trash paste that gives the runtime error.

Once a paster, always a paster. simple.

[Lihpse]

Once a paster, always a paster. simple.

xD You Right!

[zifs]

Imports CrazywinksDLLinjectionTutorial.My
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms

Namespace CrazywinksDLLinjectionTutorial
<DesignerGenerated()>
Public Class Form1
Inherits Form

Private dlls As Dictionary(Of String, String)

Private IsBarBeingDragged1 As Boolean

Private MouseDownB2 As Integer

Private MouseDownN2 As Integer

Private IsBarBeingDragged As Boolean

Private MouseDownX2 As Integer

Private MouseDownY2 As Integer

Private components As IContainer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Timer1"), CompilerGenerated()>
Private _Timer1 As Timer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Timer2"), CompilerGenerated()>
Private _Timer2 As Timer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("OpenFileDialog1"), CompilerGenerated()>
Private _OpenFileDialog1 As OpenFileDialog

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel1"), CompilerGenerated()>
Private _Panel1 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label3"), CompilerGenerated()>
Private _Label3 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label2"), CompilerGenerated()>
Private _Label2 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label1"), CompilerGenerated()>
Private _Label1 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("ListBox1"), CompilerGenerated()>
Private _ListBox1 As ListBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel2"), CompilerGenerated()>
Private _Panel2 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel3"), CompilerGenerated()>
Private _Panel3 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel4"), CompilerGenerated()>
Private _Panel4 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel5"), CompilerGenerated()>
Private _Panel5 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label4"), CompilerGenerated()>
Private _Label4 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Button2"), CompilerGenerated()>
Private _Button2 As Button

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton1"), CompilerGenerated()>
Private _SimplaButton1 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaCheckBox1"), CompilerGenerated()>
Private _SimplaCheckBox1 As SimplaCheckBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaControlBox1"), CompilerGenerated()>
Private _SimplaControlBox1 As SimplaControlBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaProgressBar1"), CompilerGenerated()>
Private _SimplaProgressBar1 As SimplaProgressBar

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaRadioButton1"), CompilerGenerated()>
Private _SimplaRadioButton1 As SimplaRadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTabControl1"), CompilerGenerated()>
Private _SimplaTabControl1 As SimplaTabControl

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage1"), CompilerGenerated()>
Private _TabPage1 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage2"), CompilerGenerated()>
Private _TabPage2 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTextBox1"), CompilerGenerated()>
Private _SimplaTextBox1 As SimplaTextBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton2"), CompilerGenerated()>
Private _SimplaButton2 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("AviraTabControl1"), CompilerGenerated()>
Private _AviraTabControl1 As AviraTabControl

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage3"), CompilerGenerated()>
Private _TabPage3 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage4"), CompilerGenerated()>
Private _TabPage4 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxButton1"), CompilerGenerated()>
Private _PurityxButton1 As PurityxButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxGroupbox1"), CompilerGenerated()>
Private _PurityxGroupbox1 As PurityxGroupbox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxLabel1"), CompilerGenerated()>
Private _PurityxLabel1 As PurityxLabel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxSeperator1"), CompilerGenerated()>
Private _PurityxSeperator1 As PurityxSeperator

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton3"), CompilerGenerated()>
Private _SimplaButton3 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton4"), CompilerGenerated()>
Private _SimplaButton4 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("RadioButton2"), CompilerGenerated()>
Private _RadioButton2 As RadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaRadioButton"), CompilerGenerated()>
Private _SimplaRadioButton As RadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTextBox2"), CompilerGenerated()>
Private _SimplaTextBox2 As SimplaTextBox

Friend Overridable Property Timer1() As Timer
<CompilerGenerated()>
Get
Return Me._Timer1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Timer)
Dim value2 As EventHandler = AddressOf Me.Timer1_Tick
Dim timer As Timer = Me._Timer1
If timer IsNot Nothing Then
RemoveHandler timer.Tick, value2
End If
Me._Timer1 = value
timer = Me._Timer1
If timer IsNot Nothing Then
AddHandler timer.Tick, value2
End If
End Set
End Property

Friend Overridable Property Timer2() As Timer
<CompilerGenerated()>
Get
Return Me._Timer2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Timer)
Dim value2 As EventHandler = AddressOf Me.Timer2_Tick
Dim timer As Timer = Me._Timer2
If timer IsNot Nothing Then
RemoveHandler timer.Tick, value2
End If
Me._Timer2 = value
timer = Me._Timer2
If timer IsNot Nothing Then
AddHandler timer.Tick, value2
End If
End Set
End Property

Friend Overridable Property OpenFileDialog1() As OpenFileDialog
<CompilerGenerated()>
Get
Return Me._OpenFileDialog1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As OpenFileDialog)
Dim value2 As CancelEventHandler = AddressOf Me.OpenFileDialog1_FileOk
Dim openFileDialog As OpenFileDialog = Me._OpenFileDialog1
If openFileDialog IsNot Nothing Then
RemoveHandler openFileDialog.FileOk, value2
End If
Me._OpenFileDialog1 = value
openFileDialog = Me._OpenFileDialog1
If openFileDialog IsNot Nothing Then
AddHandler openFileDialog.FileOk, value2
End If
End Set
End Property

Friend Overridable Property Panel1() As Panel
<CompilerGenerated()>
Get
Return Me._Panel1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Panel)
Dim value2 As MouseEventHandler = AddressOf Me.Panel1_MouseDown
Dim value3 As MouseEventHandler = AddressOf Me.Panel1_MouseUp
Dim value4 As MouseEventHandler = AddressOf Me.Panel1_MouseMove
Dim panel As Panel = Me._Panel1
If panel IsNot Nothing Then
RemoveHandler panel.MouseDown, value2
RemoveHandler panel.MouseUp, value3
RemoveHandler panel.MouseMove, value4
End If
Me._Panel1 = value
panel = Me._Panel1
If panel IsNot Nothing Then
AddHandler panel.MouseDown, value2
AddHandler panel.MouseUp, value3
AddHandler panel.MouseMove, value4
End If
End Set
End Property

Friend Overridable Property Label3() As Label

Friend Overridable Property Label2() As Label

Friend Overridable Property Label1() As Label

Friend Overridable Property ListBox1() As ListBox
<CompilerGenerated()>
Get
Return Me._ListBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As ListBox)
Dim value2 As EventHandler = AddressOf Me.ListBox1_SelectedIndexChanged
Dim value3 As DragEventHandler = AddressOf Me.ListBox1_DragEnter
Dim value4 As DragEventHandler = AddressOf Me.ListBox1_DragDrop
Dim listBox As ListBox = Me._ListBox1
If listBox IsNot Nothing Then
RemoveHandler listBo*****lectedIndexChanged, value2
RemoveHandler listBox.DragEnter, value3
RemoveHandler listBox.DragDrop, value4
End If
Me._ListBox1 = value
listBox = Me._ListBox1
If listBox IsNot Nothing Then
AddHandler listBo*****lectedIndexChanged, value2
AddHandler listBox.DragEnter, value3
AddHandler listBox.DragDrop, value4
End If
End Set
End Property

Friend Overridable Property Panel2() As Panel

Friend Overridable Property Panel3() As Panel

Friend Overridable Property Panel4() As Panel

Friend Overridable Property Panel5() As Panel

Friend Overridable Property Label4() As Label
<CompilerGenerated()>
Get
Return Me._Label4
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Dim value2 As MouseEventHandler = AddressOf Me.Label4_MouseDown
Dim value3 As MouseEventHandler = AddressOf Me.Label4_MouseUp
Dim value4 As MouseEventHandler = AddressOf Me.Label4_MouseMove
Dim value5 As EventHandler = AddressOf Me.Label4_DoubleClick
Dim label As Label = Me._Label4
If label IsNot Nothing Then
RemoveHandler label.MouseDown, value2
RemoveHandler label.MouseUp, value3
RemoveHandler label.MouseMove, value4
RemoveHandler label.DoubleClick, value5
End If
Me._Label4 = value
label = Me._Label4
If label IsNot Nothing Then
AddHandler label.MouseDown, value2
AddHandler label.MouseUp, value3
AddHandler label.MouseMove, value4
AddHandler label.DoubleClick, value5
End If
End Set
End Property

Friend Overridable Property Button2() As Button
<CompilerGenerated()>
Get
Return Me._Button2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Button)
Dim value2 As EventHandler = AddressOf Me.Button2_Click
Dim button As Button = Me._Button2
If button IsNot Nothing Then
RemoveHandler button.Click, value2
End If
Me._Button2 = value
button = Me._Button2
If button IsNot Nothing Then
AddHandler button.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton1() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton1_Click
Dim simplaButton As SimplaButton = Me._SimplaButton1
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton1 = value
simplaButton = Me._SimplaButton1
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaCheckBox1() As SimplaCheckBox
<CompilerGenerated()>
Get
Return Me._SimplaCheckBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaCheckBox)
Dim obj As SimplaCheckBox.CheckedChangedEventHandler = AddressOf Me.SimplaCheckBox1_CheckedChanged
Dim simplaCheckBox As SimplaCheckBox = Me._SimplaCheckBox1
If simplaCheckBox IsNot Nothing Then
RemoveHandler simplaCheckBox.CheckedChanged, obj
End If
Me._SimplaCheckBox1 = value
simplaCheckBox = Me._SimplaCheckBox1
If simplaCheckBox IsNot Nothing Then
AddHandler simplaCheckBox.CheckedChanged, obj
End If
End Set
End Property

Friend Overridable Property SimplaControlBox1() As SimplaControlBox
<CompilerGenerated()>
Get
Return Me._SimplaControlBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaControlBox)
Dim value2 As EventHandler = AddressOf Me.SimplaControlBox1_Click
Dim simplaControlBox As SimplaControlBox = Me._SimplaControlBox1
If simplaControlBox IsNot Nothing Then
RemoveHandler simplaControlBox.Click, value2
End If
Me._SimplaControlBox1 = value
simplaControlBox = Me._SimplaControlBox1
If simplaControlBox IsNot Nothing Then
AddHandler simplaControlBox.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaProgressBar1() As SimplaProgressBar
<CompilerGenerated()>
Get
Return Me._SimplaProgressBar1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaProgressBar)
Dim value2 As EventHandler = AddressOf Me.SimplaProgressBar1_Click
Dim simplaProgressBar As SimplaProgressBar = Me._SimplaProgressBar1
If simplaProgressBar IsNot Nothing Then
RemoveHandler simplaProgressBar.Click, value2
End If
Me._SimplaProgressBar1 = value
simplaProgressBar = Me._SimplaProgressBar1
If simplaProgressBar IsNot Nothing Then
AddHandler simplaProgressBar.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaRadioButton1() As SimplaRadioButton
<CompilerGenerated()>
Get
Return Me._SimplaRadioButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaRadioButton)
Dim obj As SimplaRadioButton.CheckedChangedEventHandler = AddressOf Me.SimplaRadioButton1_CheckedChanged
Dim simplaRadioButton As SimplaRadioButton = Me._SimplaRadioButton1
If simplaRadioButton IsNot Nothing Then
RemoveHandler simplaRadioButton.CheckedChanged, obj
End If
Me._SimplaRadioButton1 = value
simplaRadioButton = Me._SimplaRadioButton1
If simplaRadioButton IsNot Nothing Then
AddHandler simplaRadioButton.CheckedChanged, obj
End If
End Set
End Property

Friend Overridable Property SimplaTabControl1() As SimplaTabControl

Friend Overridable Property TabPage1() As TabPage
<CompilerGenerated()>
Get
Return Me._TabPage1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TabPage)
Dim value2 As EventHandler = AddressOf Me.TabPage1_Click
Dim tabPage As TabPage = Me._TabPage1
If tabPage IsNot Nothing Then
RemoveHandler tabPage.Click, value2
End If
Me._TabPage1 = value
tabPage = Me._TabPage1
If tabPage IsNot Nothing Then
AddHandler tabPage.Click, value2
End If
End Set
End Property

Friend Overridable Property TabPage2() As TabPage

Friend Overridable Property SimplaTextBox1() As SimplaTextBox
<CompilerGenerated()>
Get
Return Me._SimplaTextBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaTextBox)
Dim value2 As EventHandler = AddressOf Me.SimplaTextBox1_TextChanged
Dim simplaTextBox As SimplaTextBox = Me._SimplaTextBox1
If simplaTextBox IsNot Nothing Then
RemoveHandler simplaTextBox.TextChanged, value2
End If
Me._SimplaTextBox1 = value
simplaTextBox = Me._SimplaTextBox1
If simplaTextBox IsNot Nothing Then
AddHandler simplaTextBox.TextChanged, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton2() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton2_Click
Dim simplaButton As SimplaButton = Me._SimplaButton2
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton2 = value
simplaButton = Me._SimplaButton2
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property AviraTabControl1() As AviraTabControl

Friend Overridable Property TabPage3() As TabPage
<CompilerGenerated()>
Get
Return Me._TabPage3
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TabPage)
Dim value2 As EventHandler = AddressOf Me.TabPage3_Click
Dim tabPage As TabPage = Me._TabPage3
If tabPage IsNot Nothing Then
RemoveHandler tabPage.Click, value2
End If
Me._TabPage3 = value
tabPage = Me._TabPage3
If tabPage IsNot Nothing Then
AddHandler tabPage.Click, value2
End If
End Set
End Property

Friend Overridable Property TabPage4() As TabPage

Friend Overridable Property PurityxButton1() As PurityxButton
<CompilerGenerated()>
Get
Return Me._PurityxButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxButton)
Dim value2 As EventHandler = AddressOf Me.PurityxButton1_Click
Dim purityxButton As PurityxButton = Me._PurityxButton1
If purityxButton IsNot Nothing Then
RemoveHandler purityxButton.Click, value2
End If
Me._PurityxButton1 = value
purityxButton = Me._PurityxButton1
If purityxButton IsNot Nothing Then
AddHandler purityxButton.Click, value2
End If
End Set
End Property

Friend Overridable Property PurityxGroupbox1() As PurityxGroupbox
<CompilerGenerated()>
Get
Return Me._PurityxGroupbox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxGroupbox)
Dim value2 As PaintEventHandler = AddressOf Me.PurityxGroupbox1_Paint
Dim purityxGroupbox As PurityxGroupbox = Me._PurityxGroupbox1
If purityxGroupbox IsNot Nothing Then
RemoveHandler purityxGroupbox.Paint, value2
End If
Me._PurityxGroupbox1 = value
purityxGroupbox = Me._PurityxGroupbox1
If purityxGroupbox IsNot Nothing Then
AddHandler purityxGroupbox.Paint, value2
End If
End Set
End Property

Friend Overridable Property PurityxLabel1() As PurityxLabel
<CompilerGenerated()>
Get
Return Me._PurityxLabel1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxLabel)
Dim value2 As EventHandler = AddressOf Me.PurityxLabel1_Click
Dim purityxLabel As PurityxLabel = Me._PurityxLabel1
If purityxLabel IsNot Nothing Then
RemoveHandler purityxLabel.Click, value2
End If
Me._PurityxLabel1 = value
purityxLabel = Me._PurityxLabel1
If purityxLabel IsNot Nothing Then
AddHandler purityxLabel.Click, value2
End If
End Set
End Property

Friend Overridable Property PurityxSeperator1() As PurityxSeperator
<CompilerGenerated()>
Get
Return Me._PurityxSeperator1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxSeperator)
Dim value2 As EventHandler = AddressOf Me.PurityxSeperator1_Click
Dim purityxSeperator As PurityxSeperator = Me._PurityxSeperator1
If purityxSeperator IsNot Nothing Then
RemoveHandler purityxSeperator.Click, value2
End If
Me._PurityxSeperator1 = value
purityxSeperator = Me._PurityxSeperator1
If purityxSeperator IsNot Nothing Then
AddHandler purityxSeperator.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton3() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton3
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton3_Click
Dim simplaButton As SimplaButton = Me._SimplaButton3
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton3 = value
simplaButton = Me._SimplaButton3
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton4() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton4
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton4_Click
Dim simplaButton As SimplaButton = Me._SimplaButton4
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton4 = value
simplaButton = Me._SimplaButton4
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property RadioButton2() As RadioButton
<CompilerGenerated()>
Get
Return Me._RadioButton2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As RadioButton)
Dim value2 As EventHandler = AddressOf Me.RadioButton2_CheckedChanged
Dim radioButton As RadioButton = Me._RadioButton2
If radioButton IsNot Nothing Then
RemoveHandler radioButton.CheckedChanged, value2
End If
Me._RadioButton2 = value
radioButton = Me._RadioButton2
If radioButton IsNot Nothing Then
AddHandler radioButton.CheckedChanged, value2
End If
End Set
End Property

Friend Overridable Property SimplaRadioButton() As RadioButton

Friend Overridable Property SimplaTextBox2() As SimplaTextBox

Public Sub New()
AddHandler MyBase.Load, AddressOf Me.Form1_Load
Me.dlls = New Dictionary(Of String, String)()
Me.IsBarBeingDragged1 = False
Me.IsBarBeingDragged = False
Me.InitializeComponent()
End Sub

Private Shared Declare Ansi Function OpenProcess Lib "kernel32" (dwDesiredAccess As Integer, bInheritHandle As Integer, dwProcessId As Integer) As Integer

Private Shared Declare Ansi Function VirtualAllocEx Lib "kernel32" (hProcess As Integer, lpAddress As Integer, dwSize As Integer, flAllocationType As Integer, flProtect As Integer) As Integer

Private Shared Declare Ansi Function WriteProcessMemory Lib "kernel32" (hProcess As Integer, lpBaseAddress As Integer, lpBuffer As Byte(), nSize As Integer, lpNumberOfBytesWritten As UInteger) As Boolean

Private Shared Declare Ansi Function GetProcAddress Lib "kernel32" (hModule As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpProcName As String) As Integer

Private Shared Declare Ansi Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpModuleName As String) As Integer

Private Shared Declare Ansi Function CreateRemoteThread Lib "kernel32" (hProcess As Integer, lpThreadAttributes As Integer, dwStackSize As Integer, lpStartAddress As Integer, lpParameter As Integer, dwCreationFlags As Integer, lpThreadId As Integer) As Integer

Private Shared Declare Ansi Function WaitForSingleObject Lib "kernel32" (hHandle As Integer, dwMilliseconds As Integer) As Integer

Private Shared Declare Ansi Function CloseHandle Lib "kernel32" (hObject As Integer) As Integer

Private Function Inject(pID As Integer, dllLocation As String) As Boolean
Dim num As Integer = Form1.OpenProcess(2035711, 1, pID)
Dim flag As Boolean = num = 0
Dim result As Boolean
If flag Then
result = False
Else
Dim bytes As Byte() = Encoding.ASCII.GetBytes(dllLocation)
Dim num2 As Integer = Form1.VirtualAllocEx(num, 0, bytes.Length, 4096, 4)
Dim flag2 As Boolean = num2 = 0
If flag2 Then
result = False
Else
Dim text As String = "kernel32.dll"
Dim moduleHandle As Integer = Form1.GetModuleHandle(text)
Dim arg_68_0 As Integer = moduleHandle
text = "LoadLibraryA"
Dim procAddress As Integer = Form1.GetProcAddress(arg_68_0, text)
Dim flag3 As Boolean = moduleHandle = 0 OrElse procAddress = 0
If flag3 Then
result = False
Else
Form1.WriteProcessMemory(num, num2, bytes, bytes.Length, 0UI)
Dim num3 As Integer = Form1.CreateRemoteThread(num, 0, 0, procAddress, num2, 0, 0)
Dim flag4 As Boolean = num3 = 0
If flag4 Then
result = False
Else
Form1.WaitForSingleObject(num3, 5000)
Form1.CloseHandle(num3)
Form1.CloseHandle(num)
Me.Label3.Text = "DLL Successfully Injected."
result = True
End If
End If
End If
End If
Return result
End Function

Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim flag As Boolean = Operators.CompareString(MySettingsProperty.Setting s.inject, "auto", False) = 0
If flag Then
Me.RadioButton2.Checked = True
Me.RadioButton2.Checked = True
End If
Dim flag2 As Boolean = MySettingsProperty.Settings.close = 1
If flag2 Then
Me.RadioButton2.Checked = True
Else
Me.RadioButton2.Checked = False
End If
End Sub

Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged1 = True
Me.MouseDownB2 = e.X
Me.MouseDownN2 = e.Y
End If
End Sub

Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged1 = False
End If
End Sub

Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs)
Dim isBarBeingDragged As Boolean = Me.IsBarBeingDragged1
If isBarBeingDragged Then
' The following expression was wrapped in a checked-expression
MyBase.Location = New Point() With { .X = MyBase.Location.X + (e.X - Me.MouseDownB2), .Y = MyBase.Location.Y + (e.Y - Me.MouseDownN2) }
Dim point As Point = Nothing
End If
End Sub

Private Sub OpenFileDialog1_FileOk(sender As Object, e As CancelEventArgs)
Dim text As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileD ialog1.FileName.LastIndexOf(""))
Dim text2 As String = text.Replace("", "")
Me.ListBox1.Items.Add(text2)
Me.dlls.Add(text2, Me.OpenFileDialog1.FileName)
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs)
Dim flag As Boolean = Me.ListBox1.Items.Count > 0
If flag Then
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag2 As Boolean = processesByName.Length = 0
If flag2 Then
Me.Label3.Text = "Waiting for " + Me.SimplaTextBox2.Text + ".exe"
Else
Dim id As Integer = Process.GetProcessesByName(Me.SimplaTextBox2.Text) (0).Id
Me.Timer1.[Stop]()
Me.Timer2.[Stop]()
Try
Dim enumerator As Dictionary(Of String, String).Enumerator = Me.dlls.GetEnumerator()
While enumerator.MoveNext()
Dim current As KeyValuePair(Of String, String) = enumerator.Current
Me.Inject(id, current.Value)
End While
Finally
Dim enumerator As Dictionary(Of String, String).Enumerator
(CType(enumerator, IDisposable)).Dispose()
End Try
End If
End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs)
Dim flag As Boolean = Operators.CompareString(Me.SimplaTextBox2.Text, "", False) = 0
If flag Then
Me.Label3.Text = "Waiting for process to be set."
Me.Timer1.[Stop]()
Else
Dim flag2 As Boolean = Me.ListBox1.Items.Count = 0
If flag2 Then
Me.Label3.Text = "Waiting for DLL path."
Me.Timer1.[Stop]()
Else
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag3 As Boolean = processesByName.Length = 0
If flag3 Then
Me.Label3.Text = "Waiting for " + Me.SimplaTextBox2.Text + ".exe"
Else
Dim checked As Boolean = Me.RadioButton2.Checked
If checked Then
Me.Timer1.Start()
End If
End If
End If
End If
End Sub

Private Sub SimplaButton4_Click(sender As Object, e As EventArgs)
Me.OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
Me.OpenFileDialog1.ShowDialog()
End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs)
MySettingsProperty.Settings.inject = "auto"
MySettingsProperty.Settings.Save()
MySettingsProperty.Settings.Reload()
Me.SimplaButton3.Enabled = True
Me.Timer1.Start()
End Sub

Private Sub SimplaButton3_Click(sender As Object, e As EventArgs)
Dim flag As Boolean = Me.ListBox1.Items.Count > 0
If flag Then
Dim flag2 As Boolean = Operators.CompareString(Me.SimplaTextBox2.Text, "", False) <> 0
If flag2 Then
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag3 As Boolean = processesByName.Length = 0
If flag3 Then
Interaction.MsgBox(Me.SimplaTextBox2.Text + ".exe i not running.", MsgBoxStyle.Critical, "Alpha Injector")
Else
Me.Timer1.[Stop]()
Dim id As Integer = Process.GetProcessesByName(Me.SimplaTextBox2.Text) (0).Id
End If
Else
Interaction.MsgBox("You haven't specified a process.", MsgBoxStyle.Critical, "Alpha Injector")
End If
Else
Interaction.MsgBox("You need to select a DLL file to inject.", MsgBoxStyle.Critical, "Alpha Injector")
End If
End Sub

Private Sub Label4_MouseDown(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged = True
Me.MouseDownX2 = e.X
Me.MouseDownY2 = e.Y
End If
End Sub

Private Sub Label4_MouseUp(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged = False
End If
End Sub

Private Sub Label4_MouseMove(sender As Object, e As MouseEventArgs)
Dim isBarBeingDragged As Boolean = Me.IsBarBeingDragged
If isBarBeingDragged Then
' The following expression was wrapped in a checked-expression
MyBase.Location = New Point() With { .X = MyBase.Location.X + (e.X - Me.MouseDownX2), .Y = MyBase.Location.Y + (e.Y - Me.MouseDownY2) }
Dim point As Point = Nothing
End If
End Sub

Private Sub Label4_DoubleClick(sender As Object, e As EventArgs)
Dim colorDialog As ColorDialog = New ColorDialog()
colorDialog.Color = Me.BackColor
Dim flag As Boolean = colorDialog.ShowDialog() = DialogResult.OK
If flag Then
Me.Label4.ForeColor = colorDialog.Color
Me.Panel2.BackColor = colorDialog.Color
Me.Panel3.BackColor = colorDialog.Color
Me.Panel4.BackColor = colorDialog.Color
Me.Panel5.BackColor = colorDialog.Color
Me.Label1.ForeColor = colorDialog.Color
Me.RadioButton2.ForeColor = colorDialog.Color
Me.ListBox1.ForeColor = colorDialog.Color
Me.Label2.ForeColor = colorDialog.Color
Me.Label3.ForeColor = colorDialog.Color
Me.SimplaButton3.ForeColor = colorDialog.Color
Me.SimplaButton4.ForeColor = colorDialog.Color
Me.SimplaTextBox2.ForeColor = colorDialog.Color
Me.Button2.ForeColor = colorDialog.Color
End If
End Sub

<MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
Private Sub Button2_Click(sender As Object, e As EventArgs)
ProjectData.EndApp()
End Sub

Private Sub SimplaTextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub

Private Sub TabPage1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaRadioButton1_CheckedChanged(sender As Object)
End Sub

Private Sub SimplaControlBox1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaProgressBar1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaCheckBox1_CheckedChanged(sender As Object)
End Sub

Private Sub SimplaButton1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaButton2_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxSeperator1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxLabel1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxGroupbox1_Paint(sender As Object, e As PaintEventArgs)
End Sub

Private Sub PurityxButton1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub TabPage3_Click(sender As Object, e As EventArgs)
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
Me.AllowDrop = True
End Sub

Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs)
Dim dataPresent As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
If dataPresent Then
e.Effect = DragDropEffects.All
End If
End Sub

Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs)
Dim dataPresent As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
' The following expression was wrapped in a checked-statement
If dataPresent Then
Dim array As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
Dim num As Integer = array.Length - 1
For i As Integer = 0 To num
Me.ListBox1.Items.Add(array(i))
Next
End If
End Sub

<DebuggerNonUserCode()>
Protected Overrides Sub Dispose(disposing As Boolean)
Try
Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
If flag Then
Me.components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

<DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New Container()
Me.Timer1 = New Timer(Me.components)
Me.Timer2 = New Timer(Me.components)
Me.OpenFileDialog1 = New OpenFileDialog()
Me.Panel1 = New Panel()
Me.Button2 = New Button()
Me.Label4 = New Label()
Me.Label3 = New Label()
Me.Label2 = New Label()
Me.Label1 = New Label()
Me.ListBox1 = New ListBox()
Me.Panel2 = New Panel()
Me.Panel3 = New Panel()
Me.Panel4 = New Panel()
Me.Panel5 = New Panel()
Me.RadioButton2 = New RadioButton()
Me.SimplaTextBox2 = New SimplaTextBox()
Me.SimplaButton4 = New SimplaButton()
Me.SimplaButton3 = New SimplaButton()
Me.PurityxSeperator1 = New PurityxSeperator()
Me.PurityxLabel1 = New PurityxLabel()
Me.PurityxGroupbox1 = New PurityxGroupbox()
Me.PurityxButton1 = New PurityxButton()
Me.AviraTabControl1 = New AviraTabControl()
Me.TabPage3 = New TabPage()
Me.TabPage4 = New TabPage()
Me.SimplaTextBox1 = New SimplaTextBox()
Me.SimplaTabControl1 = New SimplaTabControl()
Me.TabPage1 = New TabPage()
Me.SimplaButton1 = New SimplaButton()
Me.TabPage2 = New TabPage()
Me.SimplaButton2 = New SimplaButton()
Me.SimplaRadioButton1 = New SimplaRadioButton()
Me.SimplaProgressBar1 = New SimplaProgressBar()
Me.SimplaControlBox1 = New SimplaControlBox()
Me.SimplaCheckBox1 = New SimplaCheckBox()
Me.Panel1.SuspendLayout()
Me.AviraTabControl1.SuspendLayout()
Me.SimplaTabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
MyBase.SuspendLayout()
Me.Timer1.Enabled = True
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.Panel1.BackColor = Color.Black
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Location = New Point(0, -2)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New Size(380, 40)
Me.Panel1.TabIndex = 13
Me.Button2.BackColor = Color.Black
Me.Button2.FlatStyle = FlatStyle.Flat
Me.Button2.Font = New Font("Microsoft Sans Serif", 15F)
Me.Button2.ForeColor = Color.FromArgb(168, 0, 64)
Me.Button2.Location = New Point(343, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New Size(34, 34)
Me.Button2.TabIndex = 5
Me.Button2.Text = "X"
Me.Button2.UseVisualStyleBackColor = False
Me.Label4.AutoSize = True
Me.Label4.Font = New Font("Microsoft Sans Serif", 25F)
Me.Label4.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label4.Location = New Point(72, -2)
Me.Label4.Name = "Label4"
Me.Label4.Size = New Size(226, 39)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Alpha Injector"
Me.Label3.AutoSize = True
Me.Label3.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label3.Location = New Point(120, 186)
Me.Label3.Name = "Label3"
Me.Label3.Size = New Size(16, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = " - "
Me.Label2.AutoSize = True
Me.Label2.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label2.Location = New Point(74, 186)
Me.Label2.Name = "Label2"
Me.Label2.Size = New Size(40, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Status:"
Me.Label1.AutoSize = True
Me.Label1.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label1.Location = New Point(153, 69)
Me.Label1.Name = "Label1"
Me.Label1.Size = New Size(48, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Process:"
Me.ListBox1.AllowDrop = True
Me.ListBox1.BackColor = Color.FromArgb(25, 25, 25)
Me.ListBox1.BorderStyle = BorderStyle.None
Me.ListBox1.ForeColor = Color.FromArgb(168, 0, 64)
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New Point(156, 95)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New Size(145, 78)
Me.ListBox1.TabIndex = 8
Me.Panel2.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel2.Location = New Point(368, 38)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New Size(10, 187)
Me.Panel2.TabIndex = 14
Me.Panel3.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel3.Location = New Point(0, 37)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New Size(377, 10)
Me.Panel3.TabIndex = 15
Me.Panel4.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel4.Location = New Point(0, 39)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New Size(10, 187)
Me.Panel4.TabIndex = 15
Me.Panel5.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel5.Location = New Point(3, 211)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New Size(374, 12)
Me.Panel5.TabIndex = 16
Me.RadioButton2.AutoSize = True
Me.RadioButton2.BackColor = Color.Black
Me.RadioButton2.FlatStyle = FlatStyle.Popup
Me.RadioButton2.ForeColor = Color.FromArgb(168, 0, 64)
Me.RadioButton2.Location = New Point(79, 122)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New Size(46, 17)
Me.RadioButton2.TabIndex = 11
Me.RadioButton2.Text = "Auto"
Me.RadioButton2.UseVisualStyleBackColor = False
Me.SimplaTextBox2.BackColor = Color.FromArgb(35, 35, 35)
Me.SimplaTextBox2.BorderStyle = BorderStyle.FixedSingle
Me.SimplaTextBox2.Font = New Font("Tahoma", 9F, FontStyle.Bold)
Me.SimplaTextBox2.ForeColor = Color.WhiteSmoke
Me.SimplaTextBox2.Location = New Point(207, 66)
Me.SimplaTextBox2.Name = "SimplaTextBox2"
Me.SimplaTextBox2.Size = New Size(100, 22)
Me.SimplaTextBox2.TabIndex = 31
Me.SimplaButton4.BackColor = Color.Transparent
Me.SimplaButton4.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton4.Cursor = Cursors.[Default]
Me.SimplaButton4.ForeColor = Color.FromArgb(168, 0, 64)
Me.SimplaButton4.Location = New Point(75, 150)
Me.SimplaButton4.Name = "SimplaButton4"
Me.SimplaButton4.Size = New Size(75, 23)
Me.SimplaButton4.TabIndex = 30
Me.SimplaButton4.Text = "Browse"
Me.SimplaButton3.BackColor = Color.Transparent
Me.SimplaButton3.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton3.ForeColor = Color.FromArgb(168, 0, 64)
Me.SimplaButton3.Location = New Point(75, 90)
Me.SimplaButton3.Name = "SimplaButton3"
Me.SimplaButton3.Size = New Size(75, 23)
Me.SimplaButton3.TabIndex = 29
Me.SimplaButton3.Text = "Inject"
Me.PurityxSeperator1.Location = New Point(554, 295)
Me.PurityxSeperator1.Name = "PurityxSeperator1"
Me.PurityxSeperator1.Size = New Size(75, 23)
Me.PurityxSeperator1.TabIndex = 28
Me.PurityxSeperator1.Text = "PurityxSeperator1"
Me.PurityxLabel1.AutoSize = True
Me.PurityxLabel1.BackColor = Color.Transparent
Me.PurityxLabel1.Font = New Font("Arial", 8F)
Me.PurityxLabel1.ForeColor = Color.Red
Me.PurityxLabel1.Location = New Point(551, 428)
Me.PurityxLabel1.Name = "PurityxLabel1"
Me.PurityxLabel1.Size = New Size(72, 14)
Me.PurityxLabel1.TabIndex = 27
Me.PurityxLabel1.Text = "PurityxLabel1"
Me.PurityxGroupbox1.BackColor = Color.FromArgb(62, 62, 62)
Me.PurityxGroupbox1.Header = ""
Me.PurityxGroupbox1.Location = New Point(936, 295)
Me.PurityxGroupbox1.Name = "PurityxGroupbox1"
Me.PurityxGroupbox1.Size = New Size(200, 100)
Me.PurityxGroupbox1.TabIndex = 26
Me.PurityxButton1.Image = Nothing
Me.PurityxButton1.Location = New Point(900, 339)
Me.PurityxButton1.Name = "PurityxButton1"
Me.PurityxButton1.NoRounding = False
Me.PurityxButton1.Size = New Size(75, 23)
Me.PurityxButton1.TabIndex = 25
Me.PurityxButton1.Text = "PurityxButton1"
Me.AviraTabControl1.Alignment = TabAlignment.Left
Me.AviraTabControl1.Controls.Add(Me.TabPage3)
Me.AviraTabControl1.Controls.Add(Me.TabPage4)
Me.AviraTabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
Me.AviraTabControl1.Font = New Font("Verdana", 8F)
Me.AviraTabControl1.ImageList_Selected = Nothing
Me.AviraTabControl1.ImageList_Unselected = Nothing
Me.AviraTabControl1.ItemSize = New Size(21, 180)
Me.AviraTabControl1.Location = New Point(841, 99)
Me.AviraTabControl1.Multiline = True
Me.AviraTabControl1.Name = "AviraTabControl1"
Me.AviraTabControl1.SelectedIndex = 0
Me.AviraTabControl1.Size = New Size(200, 100)
Me.AviraTabControl1.SizeMode = TabSizeMode.Fixed
Me.AviraTabControl1.TabIndex = 24
Me.TabPage3.Location = New Point(184, 4)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New Padding(3)
Me.TabPage3.Size = New Size(12, 92)
Me.TabPage3.TabIndex = 0
Me.TabPage3.Text = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
Me.TabPage4.Location = New Point(184, 4)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New Padding(3)
Me.TabPage4.Size = New Size(12, 92)
Me.TabPage4.TabIndex = 1
Me.TabPage4.Text = "TabPage4"
Me.TabPage4.UseVisualStyleBackColor = True
Me.SimplaTextBox1.BackColor = Color.FromArgb(35, 35, 35)
Me.SimplaTextBox1.BorderStyle = BorderStyle.FixedSingle
Me.SimplaTextBox1.Font = New Font("Tahoma", 9F, FontStyle.Bold)
Me.SimplaTextBox1.ForeColor = Color.WhiteSmoke
Me.SimplaTextBox1.Location = New Point(572, 211)
Me.SimplaTextBox1.Name = "SimplaTextBox1"
Me.SimplaTextBox1.Size = New Size(100, 22)
Me.SimplaTextBox1.TabIndex = 23
Me.SimplaTabControl1.ColorScheme = SimplaTabControl.ColorSchemes.DarkGray
Me.SimplaTabControl1.Controls.Add(Me.TabPage1)
Me.SimplaTabControl1.Controls.Add(Me.TabPage2)
Me.SimplaTabControl1.ForeColor = Color.White
Me.SimplaTabControl1.Location = New Point(396, 12)
Me.SimplaTabControl1.Name = "SimplaTabControl1"
Me.SimplaTabControl1.SelectedIndex = 0
Me.SimplaTabControl1.Size = New Size(158, 233)
Me.SimplaTabControl1.TabIndex = 22
Me.TabPage1.BackColor = Color.FromArgb(34, 34, 34)
Me.TabPage1.Controls.Add(Me.SimplaButton1)
Me.TabPage1.Location = New Point(4, 25)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New Padding(3)
Me.TabPage1.Size = New Size(150, 204)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
Me.SimplaButton1.BackColor = Color.Transparent
Me.SimplaButton1.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton1.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaButton1.Location = New Point(39, 53)
Me.SimplaButton1.Name = "SimplaButton1"
Me.SimplaButton1.Size = New Size(75, 23)
Me.SimplaButton1.TabIndex = 17
Me.SimplaButton1.Text = "SimplaButton1"
Me.TabPage2.BackColor = Color.FromArgb(34, 34, 34)
Me.TabPage2.Controls.Add(Me.SimplaButton2)
Me.TabPage2.Location = New Point(4, 25)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New Padding(3)
Me.TabPage2.Size = New Size(150, 204)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.SimplaButton2.BackColor = Color.Transparent
Me.SimplaButton2.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton2.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaButton2.Location = New Point(53, 48)
Me.SimplaButton2.Name = "SimplaButton2"
Me.SimplaButton2.Size = New Size(75, 23)
Me.SimplaButton2.TabIndex = 18
Me.SimplaButton2.Text = "SimplaButton2"
Me.SimplaRadioButton1.BackColor = Color.Transparent
Me.SimplaRadioButton1.Checked = False
Me.SimplaRadioButton1.ColorScheme = CrazywinksDLLinjectionTutorial.SimplaRadioButton.C olorSchemes.Green
Me.SimplaRadioButton1.ForeColor = Color.Black
Me.SimplaRadioButton1.Location = New Point(582, 90)
Me.SimplaRadioButton1.Name = "SimplaRadioButton1"
Me.SimplaRadioButton1.Size = New Size(150, 16)
Me.SimplaRadioButton1.TabIndex = 21
Me.SimplaRadioButton1.Text = "SimplaRadioButton1"
Me.SimplaProgressBar1.BackColor = Color.Transparent
Me.SimplaProgressBar1.ColorScheme = SimplaProgressBar.ColorSchemes.DarkGray
Me.SimplaProgressBar1.Location = New Point(582, 125)
Me.SimplaProgressBar1.Maximum = 100
Me.SimplaProgressBar1.Name = "SimplaProgressBar1"
Me.SimplaProgressBar1.ShowPercentage = False
Me.SimplaProgressBar1.Size = New Size(75, 23)
Me.SimplaProgressBar1.TabIndex = 20
Me.SimplaProgressBar1.Text = "SimplaProgressBar1"
Me.SimplaProgressBar1.Value = 0
Me.SimplaControlBox1.BackColor = Color.Transparent
Me.SimplaControlBox1.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaControlBox1.Location = New Point(572, 154)
Me.SimplaControlBox1.Name = "SimplaControlBox1"
Me.SimplaControlBox1.Size = New Size(52, 26)
Me.SimplaControlBox1.TabIndex = 19
Me.SimplaControlBox1.Text = "SimplaControlBox1"
Me.SimplaCheckBox1.BackColor = Color.Transparent
Me.SimplaCheckBox1.Checked = False
Me.SimplaCheckBox1.ColorScheme = SimplaCheckBo*****lorSchemes.Green
Me.SimplaCheckBox1.ForeColor = Color.Black
Me.SimplaCheckBox1.Location = New Point(587, 48)
Me.SimplaCheckBox1.Name = "SimplaCheckBox1"
Me.SimplaCheckBox1.Size = New Size(145, 16)
Me.SimplaCheckBox1.TabIndex = 18
Me.SimplaCheckBox1.Text = "SimplaCheckBox1"
MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
MyBase.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = Color.Black
MyBase.ClientSize = New Size(378, 223)
MyBase.Controls.Add(Me.SimplaTextBox2)
MyBase.Controls.Add(Me.SimplaButton4)
MyBase.Controls.Add(Me.SimplaButton3)
MyBase.Controls.Add(Me.PurityxSeperator1)
MyBase.Controls.Add(Me.PurityxLabel1)
MyBase.Controls.Add(Me.PurityxGroupbox1)
MyBase.Controls.Add(Me.PurityxButton1)
MyBase.Controls.Add(Me.AviraTabControl1)
MyBase.Controls.Add(Me.SimplaTextBox1)
MyBase.Controls.Add(Me.SimplaTabControl1)
MyBase.Controls.Add(Me.SimplaRadioButton1)
MyBase.Controls.Add(Me.SimplaProgressBar1)
MyBase.Controls.Add(Me.SimplaControlBox1)
MyBase.Controls.Add(Me.SimplaCheckBox1)
MyBase.Controls.Add(Me.Panel5)
MyBase.Controls.Add(Me.Panel4)
MyBase.Controls.Add(Me.Panel3)
MyBase.Controls.Add(Me.Panel2)
MyBase.Controls.Add(Me.ListBox1)
MyBase.Controls.Add(Me.RadioButton2)
MyBase.Controls.Add(Me.Panel1)
MyBase.Controls.Add(Me.Label1)
MyBase.Controls.Add(Me.Label3)
MyBase.Controls.Add(Me.Label2)
MyBase.FormBorderStyle = FormBorderStyle.None
MyBase.Name = "Form1"
MyBase.ShowIcon = False
Me.Text = "Alpha Injector"
MyBase.TransparencyKey = Color.Fuchsia
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.AviraTabControl1.ResumeLayout(False)
Me.SimplaTabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
MyBase.ResumeLayout(False)
MyBase.PerformLayout()
End Sub
End Class
End Namespace

[Lihpse]

its a pretty cool injector though (even though its a paste)

[csalphyy]

Imports CrazywinksDLLinjectionTutorial.My
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms

Namespace CrazywinksDLLinjectionTutorial
<DesignerGenerated()>
Public Class Form1
Inherits Form

Private dlls As Dictionary(Of String, String)

Private IsBarBeingDragged1 As Boolean

Private MouseDownB2 As Integer

Private MouseDownN2 As Integer

Private IsBarBeingDragged As Boolean

Private MouseDownX2 As Integer

Private MouseDownY2 As Integer

Private components As IContainer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Timer1"), CompilerGenerated()>
Private _Timer1 As Timer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Timer2"), CompilerGenerated()>
Private _Timer2 As Timer

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("OpenFileDialog1"), CompilerGenerated()>
Private _OpenFileDialog1 As OpenFileDialog

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel1"), CompilerGenerated()>
Private _Panel1 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label3"), CompilerGenerated()>
Private _Label3 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label2"), CompilerGenerated()>
Private _Label2 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label1"), CompilerGenerated()>
Private _Label1 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("ListBox1"), CompilerGenerated()>
Private _ListBox1 As ListBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel2"), CompilerGenerated()>
Private _Panel2 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel3"), CompilerGenerated()>
Private _Panel3 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel4"), CompilerGenerated()>
Private _Panel4 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Panel5"), CompilerGenerated()>
Private _Panel5 As Panel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Label4"), CompilerGenerated()>
Private _Label4 As Label

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("Button2"), CompilerGenerated()>
Private _Button2 As Button

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton1"), CompilerGenerated()>
Private _SimplaButton1 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaCheckBox1"), CompilerGenerated()>
Private _SimplaCheckBox1 As SimplaCheckBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaControlBox1"), CompilerGenerated()>
Private _SimplaControlBox1 As SimplaControlBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaProgressBar1"), CompilerGenerated()>
Private _SimplaProgressBar1 As SimplaProgressBar

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaRadioButton1"), CompilerGenerated()>
Private _SimplaRadioButton1 As SimplaRadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTabControl1"), CompilerGenerated()>
Private _SimplaTabControl1 As SimplaTabControl

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage1"), CompilerGenerated()>
Private _TabPage1 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage2"), CompilerGenerated()>
Private _TabPage2 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTextBox1"), CompilerGenerated()>
Private _SimplaTextBox1 As SimplaTextBox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton2"), CompilerGenerated()>
Private _SimplaButton2 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("AviraTabControl1"), CompilerGenerated()>
Private _AviraTabControl1 As AviraTabControl

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage3"), CompilerGenerated()>
Private _TabPage3 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("TabPage4"), CompilerGenerated()>
Private _TabPage4 As TabPage

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxButton1"), CompilerGenerated()>
Private _PurityxButton1 As PurityxButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxGroupbox1"), CompilerGenerated()>
Private _PurityxGroupbox1 As PurityxGroupbox

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxLabel1"), CompilerGenerated()>
Private _PurityxLabel1 As PurityxLabel

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("PurityxSeperator1"), CompilerGenerated()>
Private _PurityxSeperator1 As PurityxSeperator

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton3"), CompilerGenerated()>
Private _SimplaButton3 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaButton4"), CompilerGenerated()>
Private _SimplaButton4 As SimplaButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("RadioButton2"), CompilerGenerated()>
Private _RadioButton2 As RadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaRadioButton"), CompilerGenerated()>
Private _SimplaRadioButton As RadioButton

<DebuggerBrowsable(DebuggerBrowsableState.Never) , AccessedThroughProperty("SimplaTextBox2"), CompilerGenerated()>
Private _SimplaTextBox2 As SimplaTextBox

Friend Overridable Property Timer1() As Timer
<CompilerGenerated()>
Get
Return Me._Timer1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Timer)
Dim value2 As EventHandler = AddressOf Me.Timer1_Tick
Dim timer As Timer = Me._Timer1
If timer IsNot Nothing Then
RemoveHandler timer.Tick, value2
End If
Me._Timer1 = value
timer = Me._Timer1
If timer IsNot Nothing Then
AddHandler timer.Tick, value2
End If
End Set
End Property

Friend Overridable Property Timer2() As Timer
<CompilerGenerated()>
Get
Return Me._Timer2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Timer)
Dim value2 As EventHandler = AddressOf Me.Timer2_Tick
Dim timer As Timer = Me._Timer2
If timer IsNot Nothing Then
RemoveHandler timer.Tick, value2
End If
Me._Timer2 = value
timer = Me._Timer2
If timer IsNot Nothing Then
AddHandler timer.Tick, value2
End If
End Set
End Property

Friend Overridable Property OpenFileDialog1() As OpenFileDialog
<CompilerGenerated()>
Get
Return Me._OpenFileDialog1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As OpenFileDialog)
Dim value2 As CancelEventHandler = AddressOf Me.OpenFileDialog1_FileOk
Dim openFileDialog As OpenFileDialog = Me._OpenFileDialog1
If openFileDialog IsNot Nothing Then
RemoveHandler openFileDialog.FileOk, value2
End If
Me._OpenFileDialog1 = value
openFileDialog = Me._OpenFileDialog1
If openFileDialog IsNot Nothing Then
AddHandler openFileDialog.FileOk, value2
End If
End Set
End Property

Friend Overridable Property Panel1() As Panel
<CompilerGenerated()>
Get
Return Me._Panel1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Panel)
Dim value2 As MouseEventHandler = AddressOf Me.Panel1_MouseDown
Dim value3 As MouseEventHandler = AddressOf Me.Panel1_MouseUp
Dim value4 As MouseEventHandler = AddressOf Me.Panel1_MouseMove
Dim panel As Panel = Me._Panel1
If panel IsNot Nothing Then
RemoveHandler panel.MouseDown, value2
RemoveHandler panel.MouseUp, value3
RemoveHandler panel.MouseMove, value4
End If
Me._Panel1 = value
panel = Me._Panel1
If panel IsNot Nothing Then
AddHandler panel.MouseDown, value2
AddHandler panel.MouseUp, value3
AddHandler panel.MouseMove, value4
End If
End Set
End Property

Friend Overridable Property Label3() As Label

Friend Overridable Property Label2() As Label

Friend Overridable Property Label1() As Label

Friend Overridable Property ListBox1() As ListBox
<CompilerGenerated()>
Get
Return Me._ListBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As ListBox)
Dim value2 As EventHandler = AddressOf Me.ListBox1_SelectedIndexChanged
Dim value3 As DragEventHandler = AddressOf Me.ListBox1_DragEnter
Dim value4 As DragEventHandler = AddressOf Me.ListBox1_DragDrop
Dim listBox As ListBox = Me._ListBox1
If listBox IsNot Nothing Then
RemoveHandler listBo*****lectedIndexChanged, value2
RemoveHandler listBox.DragEnter, value3
RemoveHandler listBox.DragDrop, value4
End If
Me._ListBox1 = value
listBox = Me._ListBox1
If listBox IsNot Nothing Then
AddHandler listBo*****lectedIndexChanged, value2
AddHandler listBox.DragEnter, value3
AddHandler listBox.DragDrop, value4
End If
End Set
End Property

Friend Overridable Property Panel2() As Panel

Friend Overridable Property Panel3() As Panel

Friend Overridable Property Panel4() As Panel

Friend Overridable Property Panel5() As Panel

Friend Overridable Property Label4() As Label
<CompilerGenerated()>
Get
Return Me._Label4
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Dim value2 As MouseEventHandler = AddressOf Me.Label4_MouseDown
Dim value3 As MouseEventHandler = AddressOf Me.Label4_MouseUp
Dim value4 As MouseEventHandler = AddressOf Me.Label4_MouseMove
Dim value5 As EventHandler = AddressOf Me.Label4_DoubleClick
Dim label As Label = Me._Label4
If label IsNot Nothing Then
RemoveHandler label.MouseDown, value2
RemoveHandler label.MouseUp, value3
RemoveHandler label.MouseMove, value4
RemoveHandler label.DoubleClick, value5
End If
Me._Label4 = value
label = Me._Label4
If label IsNot Nothing Then
AddHandler label.MouseDown, value2
AddHandler label.MouseUp, value3
AddHandler label.MouseMove, value4
AddHandler label.DoubleClick, value5
End If
End Set
End Property

Friend Overridable Property Button2() As Button
<CompilerGenerated()>
Get
Return Me._Button2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Button)
Dim value2 As EventHandler = AddressOf Me.Button2_Click
Dim button As Button = Me._Button2
If button IsNot Nothing Then
RemoveHandler button.Click, value2
End If
Me._Button2 = value
button = Me._Button2
If button IsNot Nothing Then
AddHandler button.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton1() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton1_Click
Dim simplaButton As SimplaButton = Me._SimplaButton1
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton1 = value
simplaButton = Me._SimplaButton1
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaCheckBox1() As SimplaCheckBox
<CompilerGenerated()>
Get
Return Me._SimplaCheckBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaCheckBox)
Dim obj As SimplaCheckBox.CheckedChangedEventHandler = AddressOf Me.SimplaCheckBox1_CheckedChanged
Dim simplaCheckBox As SimplaCheckBox = Me._SimplaCheckBox1
If simplaCheckBox IsNot Nothing Then
RemoveHandler simplaCheckBox.CheckedChanged, obj
End If
Me._SimplaCheckBox1 = value
simplaCheckBox = Me._SimplaCheckBox1
If simplaCheckBox IsNot Nothing Then
AddHandler simplaCheckBox.CheckedChanged, obj
End If
End Set
End Property

Friend Overridable Property SimplaControlBox1() As SimplaControlBox
<CompilerGenerated()>
Get
Return Me._SimplaControlBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaControlBox)
Dim value2 As EventHandler = AddressOf Me.SimplaControlBox1_Click
Dim simplaControlBox As SimplaControlBox = Me._SimplaControlBox1
If simplaControlBox IsNot Nothing Then
RemoveHandler simplaControlBox.Click, value2
End If
Me._SimplaControlBox1 = value
simplaControlBox = Me._SimplaControlBox1
If simplaControlBox IsNot Nothing Then
AddHandler simplaControlBox.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaProgressBar1() As SimplaProgressBar
<CompilerGenerated()>
Get
Return Me._SimplaProgressBar1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaProgressBar)
Dim value2 As EventHandler = AddressOf Me.SimplaProgressBar1_Click
Dim simplaProgressBar As SimplaProgressBar = Me._SimplaProgressBar1
If simplaProgressBar IsNot Nothing Then
RemoveHandler simplaProgressBar.Click, value2
End If
Me._SimplaProgressBar1 = value
simplaProgressBar = Me._SimplaProgressBar1
If simplaProgressBar IsNot Nothing Then
AddHandler simplaProgressBar.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaRadioButton1() As SimplaRadioButton
<CompilerGenerated()>
Get
Return Me._SimplaRadioButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaRadioButton)
Dim obj As SimplaRadioButton.CheckedChangedEventHandler = AddressOf Me.SimplaRadioButton1_CheckedChanged
Dim simplaRadioButton As SimplaRadioButton = Me._SimplaRadioButton1
If simplaRadioButton IsNot Nothing Then
RemoveHandler simplaRadioButton.CheckedChanged, obj
End If
Me._SimplaRadioButton1 = value
simplaRadioButton = Me._SimplaRadioButton1
If simplaRadioButton IsNot Nothing Then
AddHandler simplaRadioButton.CheckedChanged, obj
End If
End Set
End Property

Friend Overridable Property SimplaTabControl1() As SimplaTabControl

Friend Overridable Property TabPage1() As TabPage
<CompilerGenerated()>
Get
Return Me._TabPage1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TabPage)
Dim value2 As EventHandler = AddressOf Me.TabPage1_Click
Dim tabPage As TabPage = Me._TabPage1
If tabPage IsNot Nothing Then
RemoveHandler tabPage.Click, value2
End If
Me._TabPage1 = value
tabPage = Me._TabPage1
If tabPage IsNot Nothing Then
AddHandler tabPage.Click, value2
End If
End Set
End Property

Friend Overridable Property TabPage2() As TabPage

Friend Overridable Property SimplaTextBox1() As SimplaTextBox
<CompilerGenerated()>
Get
Return Me._SimplaTextBox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaTextBox)
Dim value2 As EventHandler = AddressOf Me.SimplaTextBox1_TextChanged
Dim simplaTextBox As SimplaTextBox = Me._SimplaTextBox1
If simplaTextBox IsNot Nothing Then
RemoveHandler simplaTextBox.TextChanged, value2
End If
Me._SimplaTextBox1 = value
simplaTextBox = Me._SimplaTextBox1
If simplaTextBox IsNot Nothing Then
AddHandler simplaTextBox.TextChanged, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton2() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton2_Click
Dim simplaButton As SimplaButton = Me._SimplaButton2
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton2 = value
simplaButton = Me._SimplaButton2
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property AviraTabControl1() As AviraTabControl

Friend Overridable Property TabPage3() As TabPage
<CompilerGenerated()>
Get
Return Me._TabPage3
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As TabPage)
Dim value2 As EventHandler = AddressOf Me.TabPage3_Click
Dim tabPage As TabPage = Me._TabPage3
If tabPage IsNot Nothing Then
RemoveHandler tabPage.Click, value2
End If
Me._TabPage3 = value
tabPage = Me._TabPage3
If tabPage IsNot Nothing Then
AddHandler tabPage.Click, value2
End If
End Set
End Property

Friend Overridable Property TabPage4() As TabPage

Friend Overridable Property PurityxButton1() As PurityxButton
<CompilerGenerated()>
Get
Return Me._PurityxButton1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxButton)
Dim value2 As EventHandler = AddressOf Me.PurityxButton1_Click
Dim purityxButton As PurityxButton = Me._PurityxButton1
If purityxButton IsNot Nothing Then
RemoveHandler purityxButton.Click, value2
End If
Me._PurityxButton1 = value
purityxButton = Me._PurityxButton1
If purityxButton IsNot Nothing Then
AddHandler purityxButton.Click, value2
End If
End Set
End Property

Friend Overridable Property PurityxGroupbox1() As PurityxGroupbox
<CompilerGenerated()>
Get
Return Me._PurityxGroupbox1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxGroupbox)
Dim value2 As PaintEventHandler = AddressOf Me.PurityxGroupbox1_Paint
Dim purityxGroupbox As PurityxGroupbox = Me._PurityxGroupbox1
If purityxGroupbox IsNot Nothing Then
RemoveHandler purityxGroupbox.Paint, value2
End If
Me._PurityxGroupbox1 = value
purityxGroupbox = Me._PurityxGroupbox1
If purityxGroupbox IsNot Nothing Then
AddHandler purityxGroupbox.Paint, value2
End If
End Set
End Property

Friend Overridable Property PurityxLabel1() As PurityxLabel
<CompilerGenerated()>
Get
Return Me._PurityxLabel1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxLabel)
Dim value2 As EventHandler = AddressOf Me.PurityxLabel1_Click
Dim purityxLabel As PurityxLabel = Me._PurityxLabel1
If purityxLabel IsNot Nothing Then
RemoveHandler purityxLabel.Click, value2
End If
Me._PurityxLabel1 = value
purityxLabel = Me._PurityxLabel1
If purityxLabel IsNot Nothing Then
AddHandler purityxLabel.Click, value2
End If
End Set
End Property

Friend Overridable Property PurityxSeperator1() As PurityxSeperator
<CompilerGenerated()>
Get
Return Me._PurityxSeperator1
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PurityxSeperator)
Dim value2 As EventHandler = AddressOf Me.PurityxSeperator1_Click
Dim purityxSeperator As PurityxSeperator = Me._PurityxSeperator1
If purityxSeperator IsNot Nothing Then
RemoveHandler purityxSeperator.Click, value2
End If
Me._PurityxSeperator1 = value
purityxSeperator = Me._PurityxSeperator1
If purityxSeperator IsNot Nothing Then
AddHandler purityxSeperator.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton3() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton3
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton3_Click
Dim simplaButton As SimplaButton = Me._SimplaButton3
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton3 = value
simplaButton = Me._SimplaButton3
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property SimplaButton4() As SimplaButton
<CompilerGenerated()>
Get
Return Me._SimplaButton4
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As SimplaButton)
Dim value2 As EventHandler = AddressOf Me.SimplaButton4_Click
Dim simplaButton As SimplaButton = Me._SimplaButton4
If simplaButton IsNot Nothing Then
RemoveHandler simplaButton.Click, value2
End If
Me._SimplaButton4 = value
simplaButton = Me._SimplaButton4
If simplaButton IsNot Nothing Then
AddHandler simplaButton.Click, value2
End If
End Set
End Property

Friend Overridable Property RadioButton2() As RadioButton
<CompilerGenerated()>
Get
Return Me._RadioButton2
End Get
<CompilerGenerated()>
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As RadioButton)
Dim value2 As EventHandler = AddressOf Me.RadioButton2_CheckedChanged
Dim radioButton As RadioButton = Me._RadioButton2
If radioButton IsNot Nothing Then
RemoveHandler radioButton.CheckedChanged, value2
End If
Me._RadioButton2 = value
radioButton = Me._RadioButton2
If radioButton IsNot Nothing Then
AddHandler radioButton.CheckedChanged, value2
End If
End Set
End Property

Friend Overridable Property SimplaRadioButton() As RadioButton

Friend Overridable Property SimplaTextBox2() As SimplaTextBox

Public Sub New()
AddHandler MyBase.Load, AddressOf Me.Form1_Load
Me.dlls = New Dictionary(Of String, String)()
Me.IsBarBeingDragged1 = False
Me.IsBarBeingDragged = False
Me.InitializeComponent()
End Sub

Private Shared Declare Ansi Function OpenProcess Lib "kernel32" (dwDesiredAccess As Integer, bInheritHandle As Integer, dwProcessId As Integer) As Integer

Private Shared Declare Ansi Function VirtualAllocEx Lib "kernel32" (hProcess As Integer, lpAddress As Integer, dwSize As Integer, flAllocationType As Integer, flProtect As Integer) As Integer

Private Shared Declare Ansi Function WriteProcessMemory Lib "kernel32" (hProcess As Integer, lpBaseAddress As Integer, lpBuffer As Byte(), nSize As Integer, lpNumberOfBytesWritten As UInteger) As Boolean

Private Shared Declare Ansi Function GetProcAddress Lib "kernel32" (hModule As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpProcName As String) As Integer

Private Shared Declare Ansi Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpModuleName As String) As Integer

Private Shared Declare Ansi Function CreateRemoteThread Lib "kernel32" (hProcess As Integer, lpThreadAttributes As Integer, dwStackSize As Integer, lpStartAddress As Integer, lpParameter As Integer, dwCreationFlags As Integer, lpThreadId As Integer) As Integer

Private Shared Declare Ansi Function WaitForSingleObject Lib "kernel32" (hHandle As Integer, dwMilliseconds As Integer) As Integer

Private Shared Declare Ansi Function CloseHandle Lib "kernel32" (hObject As Integer) As Integer

Private Function Inject(pID As Integer, dllLocation As String) As Boolean
Dim num As Integer = Form1.OpenProcess(2035711, 1, pID)
Dim flag As Boolean = num = 0
Dim result As Boolean
If flag Then
result = False
Else
Dim bytes As Byte() = Encoding.ASCII.GetBytes(dllLocation)
Dim num2 As Integer = Form1.VirtualAllocEx(num, 0, bytes.Length, 4096, 4)
Dim flag2 As Boolean = num2 = 0
If flag2 Then
result = False
Else
Dim text As String = "kernel32.dll"
Dim moduleHandle As Integer = Form1.GetModuleHandle(text)
Dim arg_68_0 As Integer = moduleHandle
text = "LoadLibraryA"
Dim procAddress As Integer = Form1.GetProcAddress(arg_68_0, text)
Dim flag3 As Boolean = moduleHandle = 0 OrElse procAddress = 0
If flag3 Then
result = False
Else
Form1.WriteProcessMemory(num, num2, bytes, bytes.Length, 0UI)
Dim num3 As Integer = Form1.CreateRemoteThread(num, 0, 0, procAddress, num2, 0, 0)
Dim flag4 As Boolean = num3 = 0
If flag4 Then
result = False
Else
Form1.WaitForSingleObject(num3, 5000)
Form1.CloseHandle(num3)
Form1.CloseHandle(num)
Me.Label3.Text = "DLL Successfully Injected."
result = True
End If
End If
End If
End If
Return result
End Function

Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim flag As Boolean = Operators.CompareString(MySettingsProperty.Setting s.inject, "auto", False) = 0
If flag Then
Me.RadioButton2.Checked = True
Me.RadioButton2.Checked = True
End If
Dim flag2 As Boolean = MySettingsProperty.Settings.close = 1
If flag2 Then
Me.RadioButton2.Checked = True
Else
Me.RadioButton2.Checked = False
End If
End Sub

Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged1 = True
Me.MouseDownB2 = e.X
Me.MouseDownN2 = e.Y
End If
End Sub

Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged1 = False
End If
End Sub

Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs)
Dim isBarBeingDragged As Boolean = Me.IsBarBeingDragged1
If isBarBeingDragged Then
' The following expression was wrapped in a checked-expression
MyBase.Location = New Point() With { .X = MyBase.Location.X + (e.X - Me.MouseDownB2), .Y = MyBase.Location.Y + (e.Y - Me.MouseDownN2) }
Dim point As Point = Nothing
End If
End Sub

Private Sub OpenFileDialog1_FileOk(sender As Object, e As CancelEventArgs)
Dim text As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileD ialog1.FileName.LastIndexOf(""))
Dim text2 As String = text.Replace("", "")
Me.ListBox1.Items.Add(text2)
Me.dlls.Add(text2, Me.OpenFileDialog1.FileName)
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs)
Dim flag As Boolean = Me.ListBox1.Items.Count > 0
If flag Then
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag2 As Boolean = processesByName.Length = 0
If flag2 Then
Me.Label3.Text = "Waiting for " + Me.SimplaTextBox2.Text + ".exe"
Else
Dim id As Integer = Process.GetProcessesByName(Me.SimplaTextBox2.Text) (0).Id
Me.Timer1.[Stop]()
Me.Timer2.[Stop]()
Try
Dim enumerator As Dictionary(Of String, String).Enumerator = Me.dlls.GetEnumerator()
While enumerator.MoveNext()
Dim current As KeyValuePair(Of String, String) = enumerator.Current
Me.Inject(id, current.Value)
End While
Finally
Dim enumerator As Dictionary(Of String, String).Enumerator
(CType(enumerator, IDisposable)).Dispose()
End Try
End If
End If
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs)
Dim flag As Boolean = Operators.CompareString(Me.SimplaTextBox2.Text, "", False) = 0
If flag Then
Me.Label3.Text = "Waiting for process to be set."
Me.Timer1.[Stop]()
Else
Dim flag2 As Boolean = Me.ListBox1.Items.Count = 0
If flag2 Then
Me.Label3.Text = "Waiting for DLL path."
Me.Timer1.[Stop]()
Else
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag3 As Boolean = processesByName.Length = 0
If flag3 Then
Me.Label3.Text = "Waiting for " + Me.SimplaTextBox2.Text + ".exe"
Else
Dim checked As Boolean = Me.RadioButton2.Checked
If checked Then
Me.Timer1.Start()
End If
End If
End If
End If
End Sub

Private Sub SimplaButton4_Click(sender As Object, e As EventArgs)
Me.OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
Me.OpenFileDialog1.ShowDialog()
End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs)
MySettingsProperty.Settings.inject = "auto"
MySettingsProperty.Settings.Save()
MySettingsProperty.Settings.Reload()
Me.SimplaButton3.Enabled = True
Me.Timer1.Start()
End Sub

Private Sub SimplaButton3_Click(sender As Object, e As EventArgs)
Dim flag As Boolean = Me.ListBox1.Items.Count > 0
If flag Then
Dim flag2 As Boolean = Operators.CompareString(Me.SimplaTextBox2.Text, "", False) <> 0
If flag2 Then
Dim processesByName As Process() = Process.GetProcessesByName(Me.SimplaTextBox2.Text)
Dim flag3 As Boolean = processesByName.Length = 0
If flag3 Then
Interaction.MsgBox(Me.SimplaTextBox2.Text + ".exe i not running.", MsgBoxStyle.Critical, "Alpha Injector")
Else
Me.Timer1.[Stop]()
Dim id As Integer = Process.GetProcessesByName(Me.SimplaTextBox2.Text) (0).Id
End If
Else
Interaction.MsgBox("You haven't specified a process.", MsgBoxStyle.Critical, "Alpha Injector")
End If
Else
Interaction.MsgBox("You need to select a DLL file to inject.", MsgBoxStyle.Critical, "Alpha Injector")
End If
End Sub

Private Sub Label4_MouseDown(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged = True
Me.MouseDownX2 = e.X
Me.MouseDownY2 = e.Y
End If
End Sub

Private Sub Label4_MouseUp(sender As Object, e As MouseEventArgs)
Dim flag As Boolean = e.Button = MouseButtons.Left
If flag Then
Me.IsBarBeingDragged = False
End If
End Sub

Private Sub Label4_MouseMove(sender As Object, e As MouseEventArgs)
Dim isBarBeingDragged As Boolean = Me.IsBarBeingDragged
If isBarBeingDragged Then
' The following expression was wrapped in a checked-expression
MyBase.Location = New Point() With { .X = MyBase.Location.X + (e.X - Me.MouseDownX2), .Y = MyBase.Location.Y + (e.Y - Me.MouseDownY2) }
Dim point As Point = Nothing
End If
End Sub

Private Sub Label4_DoubleClick(sender As Object, e As EventArgs)
Dim colorDialog As ColorDialog = New ColorDialog()
colorDialog.Color = Me.BackColor
Dim flag As Boolean = colorDialog.ShowDialog() = DialogResult.OK
If flag Then
Me.Label4.ForeColor = colorDialog.Color
Me.Panel2.BackColor = colorDialog.Color
Me.Panel3.BackColor = colorDialog.Color
Me.Panel4.BackColor = colorDialog.Color
Me.Panel5.BackColor = colorDialog.Color
Me.Label1.ForeColor = colorDialog.Color
Me.RadioButton2.ForeColor = colorDialog.Color
Me.ListBox1.ForeColor = colorDialog.Color
Me.Label2.ForeColor = colorDialog.Color
Me.Label3.ForeColor = colorDialog.Color
Me.SimplaButton3.ForeColor = colorDialog.Color
Me.SimplaButton4.ForeColor = colorDialog.Color
Me.SimplaTextBox2.ForeColor = colorDialog.Color
Me.Button2.ForeColor = colorDialog.Color
End If
End Sub

<MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
Private Sub Button2_Click(sender As Object, e As EventArgs)
ProjectData.EndApp()
End Sub

Private Sub SimplaTextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub

Private Sub TabPage1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaRadioButton1_CheckedChanged(sender As Object)
End Sub

Private Sub SimplaControlBox1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaProgressBar1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaCheckBox1_CheckedChanged(sender As Object)
End Sub

Private Sub SimplaButton1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub SimplaButton2_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxSeperator1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxLabel1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub PurityxGroupbox1_Paint(sender As Object, e As PaintEventArgs)
End Sub

Private Sub PurityxButton1_Click(sender As Object, e As EventArgs)
End Sub

Private Sub TabPage3_Click(sender As Object, e As EventArgs)
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
Me.AllowDrop = True
End Sub

Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs)
Dim dataPresent As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
If dataPresent Then
e.Effect = DragDropEffects.All
End If
End Sub

Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs)
Dim dataPresent As Boolean = e.Data.GetDataPresent(DataFormats.FileDrop)
' The following expression was wrapped in a checked-statement
If dataPresent Then
Dim array As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
Dim num As Integer = array.Length - 1
For i As Integer = 0 To num
Me.ListBox1.Items.Add(array(i))
Next
End If
End Sub

<DebuggerNonUserCode()>
Protected Overrides Sub Dispose(disposing As Boolean)
Try
Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
If flag Then
Me.components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

<DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New Container()
Me.Timer1 = New Timer(Me.components)
Me.Timer2 = New Timer(Me.components)
Me.OpenFileDialog1 = New OpenFileDialog()
Me.Panel1 = New Panel()
Me.Button2 = New Button()
Me.Label4 = New Label()
Me.Label3 = New Label()
Me.Label2 = New Label()
Me.Label1 = New Label()
Me.ListBox1 = New ListBox()
Me.Panel2 = New Panel()
Me.Panel3 = New Panel()
Me.Panel4 = New Panel()
Me.Panel5 = New Panel()
Me.RadioButton2 = New RadioButton()
Me.SimplaTextBox2 = New SimplaTextBox()
Me.SimplaButton4 = New SimplaButton()
Me.SimplaButton3 = New SimplaButton()
Me.PurityxSeperator1 = New PurityxSeperator()
Me.PurityxLabel1 = New PurityxLabel()
Me.PurityxGroupbox1 = New PurityxGroupbox()
Me.PurityxButton1 = New PurityxButton()
Me.AviraTabControl1 = New AviraTabControl()
Me.TabPage3 = New TabPage()
Me.TabPage4 = New TabPage()
Me.SimplaTextBox1 = New SimplaTextBox()
Me.SimplaTabControl1 = New SimplaTabControl()
Me.TabPage1 = New TabPage()
Me.SimplaButton1 = New SimplaButton()
Me.TabPage2 = New TabPage()
Me.SimplaButton2 = New SimplaButton()
Me.SimplaRadioButton1 = New SimplaRadioButton()
Me.SimplaProgressBar1 = New SimplaProgressBar()
Me.SimplaControlBox1 = New SimplaControlBox()
Me.SimplaCheckBox1 = New SimplaCheckBox()
Me.Panel1.SuspendLayout()
Me.AviraTabControl1.SuspendLayout()
Me.SimplaTabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
MyBase.SuspendLayout()
Me.Timer1.Enabled = True
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.Panel1.BackColor = Color.Black
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Location = New Point(0, -2)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New Size(380, 40)
Me.Panel1.TabIndex = 13
Me.Button2.BackColor = Color.Black
Me.Button2.FlatStyle = FlatStyle.Flat
Me.Button2.Font = New Font("Microsoft Sans Serif", 15F)
Me.Button2.ForeColor = Color.FromArgb(168, 0, 64)
Me.Button2.Location = New Point(343, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New Size(34, 34)
Me.Button2.TabIndex = 5
Me.Button2.Text = "X"
Me.Button2.UseVisualStyleBackColor = False
Me.Label4.AutoSize = True
Me.Label4.Font = New Font("Microsoft Sans Serif", 25F)
Me.Label4.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label4.Location = New Point(72, -2)
Me.Label4.Name = "Label4"
Me.Label4.Size = New Size(226, 39)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Alpha Injector"
Me.Label3.AutoSize = True
Me.Label3.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label3.Location = New Point(120, 186)
Me.Label3.Name = "Label3"
Me.Label3.Size = New Size(16, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = " - "
Me.Label2.AutoSize = True
Me.Label2.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label2.Location = New Point(74, 186)
Me.Label2.Name = "Label2"
Me.Label2.Size = New Size(40, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Status:"
Me.Label1.AutoSize = True
Me.Label1.ForeColor = Color.FromArgb(168, 0, 64)
Me.Label1.Location = New Point(153, 69)
Me.Label1.Name = "Label1"
Me.Label1.Size = New Size(48, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Process:"
Me.ListBox1.AllowDrop = True
Me.ListBox1.BackColor = Color.FromArgb(25, 25, 25)
Me.ListBox1.BorderStyle = BorderStyle.None
Me.ListBox1.ForeColor = Color.FromArgb(168, 0, 64)
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New Point(156, 95)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New Size(145, 78)
Me.ListBox1.TabIndex = 8
Me.Panel2.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel2.Location = New Point(368, 38)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New Size(10, 187)
Me.Panel2.TabIndex = 14
Me.Panel3.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel3.Location = New Point(0, 37)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New Size(377, 10)
Me.Panel3.TabIndex = 15
Me.Panel4.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel4.Location = New Point(0, 39)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New Size(10, 187)
Me.Panel4.TabIndex = 15
Me.Panel5.BackColor = Color.FromArgb(168, 0, 64)
Me.Panel5.Location = New Point(3, 211)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New Size(374, 12)
Me.Panel5.TabIndex = 16
Me.RadioButton2.AutoSize = True
Me.RadioButton2.BackColor = Color.Black
Me.RadioButton2.FlatStyle = FlatStyle.Popup
Me.RadioButton2.ForeColor = Color.FromArgb(168, 0, 64)
Me.RadioButton2.Location = New Point(79, 122)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New Size(46, 17)
Me.RadioButton2.TabIndex = 11
Me.RadioButton2.Text = "Auto"
Me.RadioButton2.UseVisualStyleBackColor = False
Me.SimplaTextBox2.BackColor = Color.FromArgb(35, 35, 35)
Me.SimplaTextBox2.BorderStyle = BorderStyle.FixedSingle
Me.SimplaTextBox2.Font = New Font("Tahoma", 9F, FontStyle.Bold)
Me.SimplaTextBox2.ForeColor = Color.WhiteSmoke
Me.SimplaTextBox2.Location = New Point(207, 66)
Me.SimplaTextBox2.Name = "SimplaTextBox2"
Me.SimplaTextBox2.Size = New Size(100, 22)
Me.SimplaTextBox2.TabIndex = 31
Me.SimplaButton4.BackColor = Color.Transparent
Me.SimplaButton4.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton4.Cursor = Cursors.[Default]
Me.SimplaButton4.ForeColor = Color.FromArgb(168, 0, 64)
Me.SimplaButton4.Location = New Point(75, 150)
Me.SimplaButton4.Name = "SimplaButton4"
Me.SimplaButton4.Size = New Size(75, 23)
Me.SimplaButton4.TabIndex = 30
Me.SimplaButton4.Text = "Browse"
Me.SimplaButton3.BackColor = Color.Transparent
Me.SimplaButton3.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton3.ForeColor = Color.FromArgb(168, 0, 64)
Me.SimplaButton3.Location = New Point(75, 90)
Me.SimplaButton3.Name = "SimplaButton3"
Me.SimplaButton3.Size = New Size(75, 23)
Me.SimplaButton3.TabIndex = 29
Me.SimplaButton3.Text = "Inject"
Me.PurityxSeperator1.Location = New Point(554, 295)
Me.PurityxSeperator1.Name = "PurityxSeperator1"
Me.PurityxSeperator1.Size = New Size(75, 23)
Me.PurityxSeperator1.TabIndex = 28
Me.PurityxSeperator1.Text = "PurityxSeperator1"
Me.PurityxLabel1.AutoSize = True
Me.PurityxLabel1.BackColor = Color.Transparent
Me.PurityxLabel1.Font = New Font("Arial", 8F)
Me.PurityxLabel1.ForeColor = Color.Red
Me.PurityxLabel1.Location = New Point(551, 428)
Me.PurityxLabel1.Name = "PurityxLabel1"
Me.PurityxLabel1.Size = New Size(72, 14)
Me.PurityxLabel1.TabIndex = 27
Me.PurityxLabel1.Text = "PurityxLabel1"
Me.PurityxGroupbox1.BackColor = Color.FromArgb(62, 62, 62)
Me.PurityxGroupbox1.Header = ""
Me.PurityxGroupbox1.Location = New Point(936, 295)
Me.PurityxGroupbox1.Name = "PurityxGroupbox1"
Me.PurityxGroupbox1.Size = New Size(200, 100)
Me.PurityxGroupbox1.TabIndex = 26
Me.PurityxButton1.Image = Nothing
Me.PurityxButton1.Location = New Point(900, 339)
Me.PurityxButton1.Name = "PurityxButton1"
Me.PurityxButton1.NoRounding = False
Me.PurityxButton1.Size = New Size(75, 23)
Me.PurityxButton1.TabIndex = 25
Me.PurityxButton1.Text = "PurityxButton1"
Me.AviraTabControl1.Alignment = TabAlignment.Left
Me.AviraTabControl1.Controls.Add(Me.TabPage3)
Me.AviraTabControl1.Controls.Add(Me.TabPage4)
Me.AviraTabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
Me.AviraTabControl1.Font = New Font("Verdana", 8F)
Me.AviraTabControl1.ImageList_Selected = Nothing
Me.AviraTabControl1.ImageList_Unselected = Nothing
Me.AviraTabControl1.ItemSize = New Size(21, 180)
Me.AviraTabControl1.Location = New Point(841, 99)
Me.AviraTabControl1.Multiline = True
Me.AviraTabControl1.Name = "AviraTabControl1"
Me.AviraTabControl1.SelectedIndex = 0
Me.AviraTabControl1.Size = New Size(200, 100)
Me.AviraTabControl1.SizeMode = TabSizeMode.Fixed
Me.AviraTabControl1.TabIndex = 24
Me.TabPage3.Location = New Point(184, 4)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New Padding(3)
Me.TabPage3.Size = New Size(12, 92)
Me.TabPage3.TabIndex = 0
Me.TabPage3.Text = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
Me.TabPage4.Location = New Point(184, 4)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New Padding(3)
Me.TabPage4.Size = New Size(12, 92)
Me.TabPage4.TabIndex = 1
Me.TabPage4.Text = "TabPage4"
Me.TabPage4.UseVisualStyleBackColor = True
Me.SimplaTextBox1.BackColor = Color.FromArgb(35, 35, 35)
Me.SimplaTextBox1.BorderStyle = BorderStyle.FixedSingle
Me.SimplaTextBox1.Font = New Font("Tahoma", 9F, FontStyle.Bold)
Me.SimplaTextBox1.ForeColor = Color.WhiteSmoke
Me.SimplaTextBox1.Location = New Point(572, 211)
Me.SimplaTextBox1.Name = "SimplaTextBox1"
Me.SimplaTextBox1.Size = New Size(100, 22)
Me.SimplaTextBox1.TabIndex = 23
Me.SimplaTabControl1.ColorScheme = SimplaTabControl.ColorSchemes.DarkGray
Me.SimplaTabControl1.Controls.Add(Me.TabPage1)
Me.SimplaTabControl1.Controls.Add(Me.TabPage2)
Me.SimplaTabControl1.ForeColor = Color.White
Me.SimplaTabControl1.Location = New Point(396, 12)
Me.SimplaTabControl1.Name = "SimplaTabControl1"
Me.SimplaTabControl1.SelectedIndex = 0
Me.SimplaTabControl1.Size = New Size(158, 233)
Me.SimplaTabControl1.TabIndex = 22
Me.TabPage1.BackColor = Color.FromArgb(34, 34, 34)
Me.TabPage1.Controls.Add(Me.SimplaButton1)
Me.TabPage1.Location = New Point(4, 25)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New Padding(3)
Me.TabPage1.Size = New Size(150, 204)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
Me.SimplaButton1.BackColor = Color.Transparent
Me.SimplaButton1.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton1.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaButton1.Location = New Point(39, 53)
Me.SimplaButton1.Name = "SimplaButton1"
Me.SimplaButton1.Size = New Size(75, 23)
Me.SimplaButton1.TabIndex = 17
Me.SimplaButton1.Text = "SimplaButton1"
Me.TabPage2.BackColor = Color.FromArgb(34, 34, 34)
Me.TabPage2.Controls.Add(Me.SimplaButton2)
Me.TabPage2.Location = New Point(4, 25)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New Padding(3)
Me.TabPage2.Size = New Size(150, 204)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.SimplaButton2.BackColor = Color.Transparent
Me.SimplaButton2.ColorScheme = SimplaButton.ColorSchemes.DarkGray
Me.SimplaButton2.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaButton2.Location = New Point(53, 48)
Me.SimplaButton2.Name = "SimplaButton2"
Me.SimplaButton2.Size = New Size(75, 23)
Me.SimplaButton2.TabIndex = 18
Me.SimplaButton2.Text = "SimplaButton2"
Me.SimplaRadioButton1.BackColor = Color.Transparent
Me.SimplaRadioButton1.Checked = False
Me.SimplaRadioButton1.ColorScheme = CrazywinksDLLinjectionTutorial.SimplaRadioButton.C olorSchemes.Green
Me.SimplaRadioButton1.ForeColor = Color.Black
Me.SimplaRadioButton1.Location = New Point(582, 90)
Me.SimplaRadioButton1.Name = "SimplaRadioButton1"
Me.SimplaRadioButton1.Size = New Size(150, 16)
Me.SimplaRadioButton1.TabIndex = 21
Me.SimplaRadioButton1.Text = "SimplaRadioButton1"
Me.SimplaProgressBar1.BackColor = Color.Transparent
Me.SimplaProgressBar1.ColorScheme = SimplaProgressBar.ColorSchemes.DarkGray
Me.SimplaProgressBar1.Location = New Point(582, 125)
Me.SimplaProgressBar1.Maximum = 100
Me.SimplaProgressBar1.Name = "SimplaProgressBar1"
Me.SimplaProgressBar1.ShowPercentage = False
Me.SimplaProgressBar1.Size = New Size(75, 23)
Me.SimplaProgressBar1.TabIndex = 20
Me.SimplaProgressBar1.Text = "SimplaProgressBar1"
Me.SimplaProgressBar1.Value = 0
Me.SimplaControlBox1.BackColor = Color.Transparent
Me.SimplaControlBox1.ForeColor = Color.FromArgb(205, 205, 205)
Me.SimplaControlBox1.Location = New Point(572, 154)
Me.SimplaControlBox1.Name = "SimplaControlBox1"
Me.SimplaControlBox1.Size = New Size(52, 26)
Me.SimplaControlBox1.TabIndex = 19
Me.SimplaControlBox1.Text = "SimplaControlBox1"
Me.SimplaCheckBox1.BackColor = Color.Transparent
Me.SimplaCheckBox1.Checked = False
Me.SimplaCheckBox1.ColorScheme = SimplaCheckBo*****lorSchemes.Green
Me.SimplaCheckBox1.ForeColor = Color.Black
Me.SimplaCheckBox1.Location = New Point(587, 48)
Me.SimplaCheckBox1.Name = "SimplaCheckBox1"
Me.SimplaCheckBox1.Size = New Size(145, 16)
Me.SimplaCheckBox1.TabIndex = 18
Me.SimplaCheckBox1.Text = "SimplaCheckBox1"
MyBase.AutoScaleDimensions = New SizeF(6F, 13F)
MyBase.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = Color.Black
MyBase.ClientSize = New Size(378, 223)
MyBase.Controls.Add(Me.SimplaTextBox2)
MyBase.Controls.Add(Me.SimplaButton4)
MyBase.Controls.Add(Me.SimplaButton3)
MyBase.Controls.Add(Me.PurityxSeperator1)
MyBase.Controls.Add(Me.PurityxLabel1)
MyBase.Controls.Add(Me.PurityxGroupbox1)
MyBase.Controls.Add(Me.PurityxButton1)
MyBase.Controls.Add(Me.AviraTabControl1)
MyBase.Controls.Add(Me.SimplaTextBox1)
MyBase.Controls.Add(Me.SimplaTabControl1)
MyBase.Controls.Add(Me.SimplaRadioButton1)
MyBase.Controls.Add(Me.SimplaProgressBar1)
MyBase.Controls.Add(Me.SimplaControlBox1)
MyBase.Controls.Add(Me.SimplaCheckBox1)
MyBase.Controls.Add(Me.Panel5)
MyBase.Controls.Add(Me.Panel4)
MyBase.Controls.Add(Me.Panel3)
MyBase.Controls.Add(Me.Panel2)
MyBase.Controls.Add(Me.ListBox1)
MyBase.Controls.Add(Me.RadioButton2)
MyBase.Controls.Add(Me.Panel1)
MyBase.Controls.Add(Me.Label1)
MyBase.Controls.Add(Me.Label3)
MyBase.Controls.Add(Me.Label2)
MyBase.FormBorderStyle = FormBorderStyle.None
MyBase.Name = "Form1"
MyBase.ShowIcon = False
Me.Text = "Alpha Injector"
MyBase.TransparencyKey = Color.Fuchsia
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.AviraTabControl1.ResumeLayout(False)
Me.SimplaTabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
MyBase.ResumeLayout(False)
MyBase.PerformLayout()
End Sub
End Class
End Namespace

Cool.

//2short

- - - Updated - - -

its a pretty cool injector though (even though its a paste)

i made it for the meme, and shared it for other people to get ideas from the main menu, ty i guess