Исходник Mamo Loader

 Imports Microsoft.VisualBasic.CompilerServicesImports System


Imports System.Collections


Imports System.Collections.Generic


Imports System.Diagnostics


Imports System.Globalization


Imports System****


Imports System.Reflection


Imports System.Runtime.InteropServices


Imports System.Text


Imports System.Windows.Forms


Namespace WindowsApplication1


Public Class InjectMe


' Methods


Public Sub New()


Me.CLR1 = Me.HX2Bts("6EA0F1901277624786B57A5EBA6BDB02")


Me.CLR2 = Me.HX2Bts("6CA0F1901277624786B57A5EBA6BDB02")


Me.WKS = Me.HX2Bts("77006B007300")


End Sub


Public Sub Allocate()


Me.Cave = InjectMe.VirtualAllocEx(Me.pHandle, IntPtr.Zero, &H200, &H1000, &H40)


If (DirectCast(Me.Cave, IntPtr) = IntPtr.Zero) Then


InjectMe.CloseHandle(Me.pHandle)


End If


End Sub


<DllImport("kernel32.dll", SetLastError:=True)> _


Private Shared Function CloseHandle(ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean


End Function


Public Function CoreePath() As String


Dim enumerator As IEnumerator


Try 


enumerator = Process.GetCurrentProcess.Modules.GetEnumerator


Do While enumerator.MoveNext


Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)


If (current.ModuleName.ToLower = "mscoree.dll") Then


Return current.FileName


End If


Loop


Finally


If TypeOf enumerator Is IDisposable Then


TryCast(enumerator,IDisposable).Dispose


End If


End Try


Return String.Empty


End Function


<DllImport("kernel32.dll", SetLastError:=True)> _


Private Shared Function CreateRemoteThread(ByVal hProcess As IntPtr, ByVal lpThreadAttribute As IntPtr, ByVal dwStackSize As IntPtr, ByVal lpStartAddress As IntPtr, ByVal lpParameter As IntPtr, ByVal dwCreationFlags As UInt32, ByVal lpThreadId As IntPtr) As IntPtr


End Function


Public Sub Deallocate()


If Not InjectMe.VirtualFreeEx(Me.pHandle, DirectCast(Me.Cave, IntPtr), 0, &H4000) Then


InjectMe.CloseHandle(Me.pHandle)


End If


End Sub


Public Function GetDlls() As List(Of String)


Dim list2 As New List(Of String)


Dim info As FileInfo


For Each info In New DirectoryInfo(Application.StartupPath).GetFiles("*.dll")


list2.Add(info.FullName)


Next


Return list2


End Function


Public Function GetIns(ByVal Addy As Integer) As String


Dim bytes As Byte() = BitConverter.GetBytes(Addy)


Dim str2 As String = String.Empty


Dim num2 As Integer = (bytes.Length - 1)


Dim i As Integer = 0


Do While (i <= num2)


str2 = (str2 & String.Format("{0:x2}", Convert.ToUInt32(bytes(i))))


i += 1


Loop


Return str2


End Function


<DllImport("kernel32.dll", SetLastError:=True)> _


Private Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr


End Function


Public Function GetNamespace(ByVal _Path As String) As String


Try 


Dim type As Type


For Each type In Assembly.LoadFrom(_Path).GetTypes


If (type.IsClass And Not type.ToString.StartsWith("<")) Then


Dim index As Integer = type.ToString.IndexOf(".")


If (index <> -1) Then


Return (type.ToString.Substring(0, (index + 1)) & "Class1")


End If


Return type.ToString


End If


Next


Catch exception1 As Exception


ProjectData.SetProjectError(exception1)


MessageBox.Show("Not a managed dll")


ProjectData.ClearProjectError


End Try


Return String.Empty


End Function


<DllImport("kernel32.dll", SetLastError:=True)> _


Private Shared Function GetProcAddress(ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr


End Function


Public Function HX2Bts(ByVal HXS As String) As Byte()


If ((HXS.Length Mod 2) <> 0) Then


HXS = HXS.Substring(0, (HXS.Length - 1))


End If


Dim buffer As Byte() = New Byte((CInt(Math****und(CDbl(((CDbl(HXS.Length) / 2) - 1)))) + 1) - 1) {}


Dim num2 As Integer = (buffer.Length - 1)


Dim i As Integer = 0


Do While (i <= num2)


buffer(i) = Byte.Parse(HXS.Substring((i * 2), 2), NumberStyles.HexNumber)


i += 1


Loop


Return buffer


End Function


Public Sub Inject(ByVal ProcessName As String)


If Not Conversions.ToBoolean(Operators.OrObject((Conversions.ToBoolean((Me.Dlls.Count = 0)) AndAlso Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder))), (ProcessName = String.Empty))) Then


Me.pName = ProcessName


If Conversions.ToBoolean(Operators.NotObject(Me.FilesWrote)) Then


If Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder)) Then


Dim buffer As Byte()


For Each buffer In Me.Dlls


Try 


Dim item As String = (Path.GetTempPath & Guid.NewGuid.ToString & ".dll")


Me._Paths.Add(item)


File.WriteAllBytes(item, buffer)


Catch exception1 As Exception


ProjectData.SetProjectError(exception1)


Application.Exit


ProjectData.ClearProjectError


End Try


Next


Else


Me._Paths = Me.GetDlls


End If


Me.FilesWrote = True


End If


If Not Me.TimerMade Then


Me.TimerMade = True


Me._Timer.Interval = Me.Intervals


Me._Timer.Start


AddHandler Me._Timer.Tick, New EventHandler(AddressOf Me.ProcTimer)


End If


End If


End Sub


Public Function IsManaged(ByVal _Path As String) As Boolean


Dim flag As Boolean


Try 


AssemblyName.GetAssemblyName(_Path)


flag = True


Catch exception1 As Exception


ProjectData.SetProjectError(exception1)


flag = False


ProjectData.ClearProjectError


Return flag


ProjectData.ClearProjectError


End Try


Return flag


End Function


Public Function Mscoree(ByVal _Path As String) As Boolean


Dim flag As Boolean = Me.IsManaged(_Path)


If Conversions.ToBoolean((Conversions.ToBoolean(flag) AndAlso Conversions.ToBoolean(Me._MS))) Then


Return True


End If


If flag Then


Me._MS = True


End If


_Path = If(flag, Me.CoreePath, _Path)


Dim procAddress As IntPtr = InjectMe.GetProcAddress(InjectMe.GetModuleHandle("kernel32.dll"), "LoadLibraryA")


Me.Allocate


If (procAddress <> IntPtr.Zero) Then


Me.WriteBytes(DirectCast(Me.Cave, IntPtr), Encoding.ASCII.GetBytes(_Path))


Me.RemoteThread(procAddress, -1)


Me.Deallocate


Return flag


End If


Me.Deallocate


Return False


End Function


Public Function OpenProc() As Boolean


Me.Proc = Process.GetProcessesByName(Me.pName)


If (Me.Proc.Length <> 0) Then


Me.pHandle = InjectMe.OpenProcess(&H43A, False, Me.Proc(0).Id)


Return (Me.pHandle <> IntPtr.Zero)


End If


Return False


End Function


<DllImport("kernel32.dll")> _


Private Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr


End Function


Private Sub ProcTimer(ByVal sender As Object, ByVal e As EventArgs)


If Me.OpenProc Then


Dim str As String


For Each str In Me._Paths


If Me.Mscoree(str) Then


Me.Allocate


Dim addy As Integer = Conversions.ToInteger(Operators.AddObject(NewLateBinding.LateGet(Me.Cave, Nothing, "ToInt32", New Object(0 - 1) {}, Nothing, Nothing, Nothing), &H54))


Dim num7 As Integer = (addy + 10)


Dim num6 As Integer = ((num7 + (str.Length * 2)) + 4)


Dim num5 As Integer = ((num6 + (Me.GetNamespace(str).Length * 2)) + 4)


Dim num As Integer = (num5 + &H12)


Dim num2 As Integer = (num + 4)


Dim num3 As Integer = (num2 + &H12)


Dim num4 As Integer = (num3 + &H12)


Dim num8 As Integer = (num4 + 4)


Me.WriteBytes(DirectCast(num2, IntPtr), Me.CLR1)


Me.WriteBytes(DirectCast(num3, IntPtr), DirectCast(Me.CLR2, Byte()))


Me.WriteBytes(DirectCast(addy, IntPtr), Me.WKS)


Me.WriteBytes(DirectCast(num7, IntPtr), Encoding.Unicode.GetBytes(str))


Me.WriteBytes(DirectCast(num6, IntPtr), Encoding.Unicode.GetBytes(Me.GetNamespace(str)))


Me.WriteBytes(DirectCast(num5, IntPtr), Encoding.Unicode.GetBytes("DllMain"))


Dim hXS As String = String.Empty






hXS = ((((String.Concat(New String() { hXS, "68", Me.GetIns(num4), "68", Me.GetIns(num3) }) & "68" & Me.GetIns(num2) & "6a00") & "68" & Me.GetIns(addy) & "6a00") & "E8" & Me.GetIns(Conversions.ToInteger(Operators.SubtractObject(Operators.SubtractObject(InjectMe.GetProcAddress(InjectMe.GetModuleHandle("mscoree.dll"), "CorBindToRuntimeEx").ToInt32, Operators.AddObject(NewLateBinding.LateGet(Me.Cave, Nothing, "ToInt32", New Object(0 - 1) {}, Nothing, Nothing, Nothing), &H18)), 5)))) & "a1" & Me.GetIns(num4) & "8b088b510c50ffd2")


hXS = String.Concat(New String() { hXS, "68", Me.GetIns(num8), "68", Me.GetIns(num) })


hXS = String.Concat(New String() { hXS, "68", Me.GetIns(num5), "68", Me.GetIns(num6) })


hXS = (String.Concat(New String() { hXS, "68", Me.GetIns(num7), "a1", Me.GetIns(num4) }) & "8b08508b412cffd0c3")


Me.WriteBytes(DirectCast(Me.Cave, IntPtr), Me.HX2Bts(hXS))


Me.RemoteThread(DirectCast(Me.Cave, IntPtr), Conversions.ToInteger(Me.ObjectWait))


Me.Deallocate


End If


Next


InjectMe.CloseHandle(Me.pHandle)


Me._Timer.Enabled = False


If Conversions.ToBoolean((Conversions.ToBoolean(Me.DeleteDllsWhenDone) AndAlso Conversions.ToBoolean(Operators.NotObject(Me.DllsInFolder)))) Then


Me.SelfDestruct


End If


Application.Exit


End If


End Sub


Public Sub RemoteThread(ByVal Adr As IntPtr, ByVal _Wait As Integer)


Dim hHandle As IntPtr = InjectMe.CreateRemoteThread(Me.pHandle, IntPtr.Zero, IntPtr.Zero, Adr, DirectCast(Me.Cave, IntPtr), 0, IntPtr.Zero)


If (hHandle <> IntPtr.Zero) Then


Try 


If (InjectMe.WaitForSingleObject(hHandle, _Wait) = -1) Then


Me.Deallocate


InjectMe.CloseHandle(Me.pHandle)


End If


Finally


InjectMe.CloseHandle(hHandle)


End Try


End If


End Sub


Public Sub SelfDestruct()


Dim path As String = (Path.GetTempPath & Guid.NewGuid.ToString & ".bat")


Using writer As StreamWriter = File.CreateText(path)


writer.WriteLine(":Ret")


writer.WriteLine("Ping Localhost -n 3 > nul")


writer.WriteLine(("del """ & Me._Paths.Item(0) & """"))


writer.WriteLine(("if exist """ & Me._Paths.Item(0) & """ goto Ret"))


Dim num2 As Integer = (Me._Paths.Count - 1)


Dim i As Integer = 1


Do While (i <= num2)


writer.WriteLine(("del """ & Me._Paths.Item(i) & """"))


i += 1


Loop


writer.WriteLine(("del """ & path & """"))


End Using


Dim startInfo As New ProcessStartInfo(path) With { _


.WindowStyle = ProcessWindowStyle.Hidden _


}


Process.Start(startInfo)


End Sub


<DllImport("kernel32.dll", SetLastError:=True)> _


Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As Integer, ByVal flAllocationType As UInt32, ByVal flProtect As UInt32) As IntPtr


End Function


<DllImport("kernel32.dll", SetLastError:=True, ExactSpelling:=True)> _


Private Shared Function VirtualFreeEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As Byte, ByVal dwFreeType As UInt32) As Boolean


End Function


<DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _


Private Shared Function WaitForSingleObject(ByVal hHandle As IntPtr, ByVal dwMilliseconds As Integer) As Integer


End Function


Public Function WriteBytes(ByVal Addy As IntPtr, ByVal byts As Byte()) As Boolean


If Not InjectMe.WriteProcessMemory(Me.pHandle, Addy, byts, byts.Length, 0) Then


Me.Deallocate


InjectMe.CloseHandle(Me.pHandle)


End If


Return True


End Function


<DllImport("kernel32.dll")> _


Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal buffer As Byte(), ByVal size As Integer, ByVal lpNumberOfBytesWritten As Integer) As Boolean


End Function


' Fields


Private _MS As Object


Private _Paths As List(Of String) = New List(Of String)


Public _Timer As Timer = New Timer


Private Cave As Object = IntPtr.Zero


Private CLR1 As Byte()


Private CLR2 As Object


Public DeleteDllsWhenDone As Boolean


Public Dlls As List(Of Byte()) = New List(Of Byte())


Public DllsInFolder As Object


Private FilesWrote As Object


Public Intervals As Integer = 100


Public ObjectWait As Object = &H7D0


Private pHandle As IntPtr = IntPtr.Zero


Private pName As String = String.Empty


Private Proc As Process()


Private TimerMade As Boolean


Private WKS As Byte()


End Class


End Namespace

 Imports Microsoft.VisualBasic.CompilerServicesImports System


Imports System.Collections.Generic


Imports System.ComponentModel


Imports System.Diagnostics


Imports System.Drawing


Imports System.Runtime.CompilerServices


Imports System.Windows.Forms


Imports WindowsApplication1.My


Imports WindowsApplication1.My.Resources


Namespace WindowsApplication1


<DesignerGenerated> _


Public Class Form1


Inherits Form


' Methods


Public Sub New()


AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)


Form1.__ENCAddToList(Me)


Me.Inj = New InjectMe


Me.InitializeComponent


End Sub


<DebuggerNonUserCode> _


Private Shared Sub __ENCAddToList(ByVal value As Object)


Dim list As List(Of WeakReference) = Form1.__ENCList


SyncLock list


If (Form1.__ENCList.Count = Form1.__ENCList.Capacity) Then


Dim index As Integer = 0


Dim num3 As Integer = (Form1.__ENCList.Count - 1)


Dim i As Integer = 0


Do While (i <= num3)


Dim reference As WeakReference = Form1.__ENCList.Item(i)


If reference.IsAlive Then


If (i <> index) Then


Form1.__ENCList.Item(index) = Form1.__ENCList.Item(i)


End If


index += 1


End If


i += 1


Loop


Form1.__ENCList.RemoveRange(index, (Form1.__ENCList.Count - index))


Form1.__ENCList.Capacity = Form1.__ENCList.Count


End If


Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))


End SyncLock


End Sub


Private Sub BetaBlueButton1_Click_1(ByVal sender As Object, ByVal e As EventArgs)


Me.Close


End Sub


Private Sub BetaBlueButton2_Click_1(ByVal sender As Object, ByVal e As EventArgs)


Me.OnOff = Not Me.OnOff


Me.BetaBlueButton2.Text = If(Me.OnOff, "Enabled", "Disabled")


Me.Inj._Timer.Enabled = Me.OnOff


End Sub


Private Sub BetaBlueButton3_Click(ByVal sender As Object, ByVal e As EventArgs)


MyProject.Forms.HowToUse.Show


End Sub


<DebuggerNonUserCode> _


Protected Overrides Sub Dispose(ByVal disposing As Boolean)


Try 


If (disposing AndAlso (Not Me.components Is Nothing)) Then


Me.components.Dispose


End If


Finally


MyBase.Dispose(disposing)


End Try


End Sub


Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)


Me.Inj.Dlls.Add(Resources.TestLoader)


Me.Inj.DeleteDllsWhenDone = True


Me.Inj.Inject("crossfire")


Me.Inj._Timer.Enabled = False


End Sub


<DebuggerStepThrough> _


Private Sub InitializeComponent()


Me.BetaBlueTheme1 = New BetaBlueTheme


Me.Label5 = New Label


Me.Label4 = New Label


Me.Label3 = New Label


Me.BetaBlueSeperator2 = New BetaBlueSeperator


Me.BetaBlueSeperator3 = New BetaBlueSeperator


Me.BetaBlueButton3 = New BetaBlueButton


Me.Label2 = New Label


Me.Label1 = New Label


Me.BetaBlueSeperator1 = New BetaBlueSeperator


Me.BetaBlueButton2 = New BetaBlueButton


Me.BetaBlueButton1 = New BetaBlueButton


Me.BetaBlueTheme1.SuspendLayout


Me.SuspendLayout


Me.BetaBlueTheme1.BackColor = SystemColors.Control


Me.BetaBlueTheme1.Controls.Add(Me.Label5)


Me.BetaBlueTheme1.Controls.Add(Me.Label4)


Me.BetaBlueTheme1.Controls.Add(Me.Label3)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator2)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator3)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton3)


Me.BetaBlueTheme1.Controls.Add(Me.Label2)


Me.BetaBlueTheme1.Controls.Add(Me.Label1)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueSeperator1)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton2)


Me.BetaBlueTheme1.Controls.Add(Me.BetaBlueButton1)


Me.BetaBlueTheme1.Dock = DockStyle.Fill


Me.BetaBlueTheme1.Font = New Font("Tahoma", 9.75!, FontStyle.Bold, GraphicsUnit.Point, 0)


Me.BetaBlueTheme1.Image = Nothing


Dim point2 As New Point(0, 0)


Me.BetaBlueTheme1.Location = point2


Me.BetaBlueTheme1.MoveHeight = &H19


Me.BetaBlueTheme1.Name = "BetaBlueTheme1"


Me.BetaBlueTheme1.Resizable = True


Dim size2 As New Size(&H11C, &HD5)


Me.BetaBlueTheme1.Size = size2


Me.BetaBlueTheme1.TabIndex = 0


Me.BetaBlueTheme1.Text = "Mamo + Pingo Loader V1.0"


Me.BetaBlueTheme1.TransparencyKey = Color.Fuchsia


Me.Label5.AutoSize = True


Me.Label5.BackColor = SystemColors.HotTrack


Me.Label5.ForeColor = SystemColors.InactiveCaptionText


point2 = New Point(&HB9, &H8B)


Me.Label5.Location = point2


Me.Label5.Name = "Label5"


size2 = New Size(&H48, &H10)


Me.Label5.Size = size2


Me.Label5.TabIndex = 11


Me.Label5.Text = "3/2/2013"


Me.Label4.AutoSize = True


Me.Label4.BackColor = SystemColors.HotTrack


Me.Label4.ForeColor = Color.Olive


point2 = New Point(12, &H8B)


Me.Label4.Location = point2


Me.Label4.Name = "Label4"


size2 = New Size(&H60, &H10)


Me.Label4.Size = size2


Me.Label4.TabIndex = 10


Me.Label4.Text = "Date Of Made"


Me.Label3.AutoSize = True


Me.Label3.BackColor = SystemColors.HotTrack


Me.Label3.ForeColor = SystemColors.ActiveCaption


point2 = New Point(&H74, &H6C)


Me.Label3.Location = point2


Me.Label3.Name = "Label3"


size2 = New Size(&H35, &H10)


Me.Label3.Size = size2


Me.Label3.TabIndex = 9


Me.Label3.Text = "Loader"


point2 = New Point(&H68, &H5B)


Me.BetaBlueSeperator2.Location = point2


Me.BetaBlueSeperator2.Name = "BetaBlueSeperator2"


Me.BetaBlueSeperator2.Orientation = Orientation.Horizontal


size2 = New Size(&H4B, &H51)


Me.BetaBlueSeperator2.Size = size2


Me.BetaBlueSeperator2.TabIndex = 8


Me.BetaBlueSeperator2.Text = "BetaBlueSeperator2"


point2 = New Point(12, &H95)


Me.BetaBlueSeperator3.Location = point2


Me.BetaBlueSeperator3.Name = "BetaBlueSeperator3"


Me.BetaBlueSeperator3.Orientation = Orientation.Horizontal


size2 = New Size(260, &H17)


Me.BetaBlueSeperator3.Size = size2


Me.BetaBlueSeperator3.TabIndex = 7


Me.BetaBlueSeperator3.Text = "BetaBlueSeperator3"


Me.BetaBlueButton3.Dark = False


Me.BetaBlueButton3.Image = Nothing


point2 = New Point(12, &HB2)


Me.BetaBlueButton3.Location = point2


Me.BetaBlueButton3.Name = "BetaBlueButton3"


Me.BetaBlueButton3.NoRounding = False


size2 = New Size(260, &H17)


Me.BetaBlueButton3.Size = size2


Me.BetaBlueButton3.TabIndex = 6


Me.BetaBlueButton3.Text = "HowToUse"


Me.Label2.AutoSize = True


Me.Label2.BackColor = SystemColors.HotTrack


Me.Label2.ForeColor = SystemColors.Highlight


point2 = New Point(&HCC, &H51)


Me.Label2.Location = point2


Me.Label2.Name = "Label2"


size2 = New Size(&H2B, &H10)


Me.Label2.Size = size2


Me.Label2.TabIndex = 4


Me.Label2.Text = "Pingo"


Me.Label1.AutoSize = True


Me.Label1.BackColor = SystemColors.HotTrack


Me.Label1.ForeColor = SystemColors.Highlight


point2 = New Point(&H1B, &H51)


Me.Label1.Location = point2


Me.Label1.Name = "Label1"


size2 = New Size(&H2E, &H10)


Me.Label1.Size = size2


Me.Label1.TabIndex = 1


Me.Label1.Text = "Mamo"


point2 = New Point(12, &H5B)


Me.BetaBlueSeperator1.Location = point2


Me.BetaBlueSeperator1.Name = "BetaBlueSeperator1"


Me.BetaBlueSeperator1.Orientation = Orientation.Horizontal


size2 = New Size(260, &H17)


Me.BetaBlueSeperator1.Size = size2


Me.BetaBlueSeperator1.TabIndex = 2


Me.BetaBlueSeperator1.Text = "BetaBlueSeperator1"


Me.BetaBlueButton2.Dark = False


Me.BetaBlueButton2.Image = Nothing


point2 = New Point(12, &H2D)


Me.BetaBlueButton2.Location = point2


Me.BetaBlueButton2.Name = "BetaBlueButton2"


Me.BetaBlueButton2.NoRounding = False


size2 = New Size(260, &H17)


Me.BetaBlueButton2.Size = size2


Me.BetaBlueButton2.TabIndex = 1


Me.BetaBlueButton2.Text = "Disabled"


Me.BetaBlueButton1.Dark = False


Me.BetaBlueButton1.Font = New Font("Tahoma", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)


Me.BetaBlueButton1.Image = Nothing


point2 = New Point(&H108, 3)


Me.BetaBlueButton1.Location = point2


Me.BetaBlueButton1.Name = "BetaBlueButton1"


Me.BetaBlueButton1.NoRounding = False


size2 = New Size(&H11, 20)


Me.BetaBlueButton1.Size = size2


Me.BetaBlueButton1.TabIndex = 0


Me.BetaBlueButton1.Text = "X"


Dim ef2 As New SizeF(6!, 13!)


Me.AutoScaleDimensions = ef2


Me.AutoScaleMode = AutoScaleMode.Font


size2 = New Size(&H11C, &HD5)


Me.ClientSize = size2


Me.Controls.Add(Me.BetaBlueTheme1)


Me.FormBorderStyle = FormBorderStyle.None


Me.Name = "Form1"


Me.Text = "Form1"


Me.TransparencyKey = Color.Fuchsia


Me.BetaBlueTheme1.ResumeLayout(False)


Me.BetaBlueTheme1.PerformLayout


Me.ResumeLayout(False)


End Sub


' Properties


Friend Overridable Property BetaBlueButton1 As BetaBlueButton


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueButton1


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueButton)


Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton1_Click_1)


If (Not Me._BetaBlueButton1 Is Nothing) Then


RemoveHandler Me._BetaBlueButton1.Click, handler


End If


Me._BetaBlueButton1 = WithEventsValue


If (Not Me._BetaBlueButton1 Is Nothing) Then


AddHandler Me._BetaBlueButton1.Click, handler


End If


End Set


End Property


Friend Overridable Property BetaBlueButton2 As BetaBlueButton


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueButton2


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueButton)


Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton2_Click_1)


If (Not Me._BetaBlueButton2 Is Nothing) Then


RemoveHandler Me._BetaBlueButton2.Click, handler


End If


Me._BetaBlueButton2 = WithEventsValue


If (Not Me._BetaBlueButton2 Is Nothing) Then


AddHandler Me._BetaBlueButton2.Click, handler


End If


End Set


End Property


Friend Overridable Property BetaBlueButton3 As BetaBlueButton


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueButton3


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueButton)


Dim handler As EventHandler = New EventHandler(AddressOf Me.BetaBlueButton3_Click)


If (Not Me._BetaBlueButton3 Is Nothing) Then


RemoveHandler Me._BetaBlueButton3.Click, handler


End If


Me._BetaBlueButton3 = WithEventsValue


If (Not Me._BetaBlueButton3 Is Nothing) Then


AddHandler Me._BetaBlueButton3.Click, handler


End If


End Set


End Property


Friend Overridable Property BetaBlueSeperator1 As BetaBlueSeperator


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueSeperator1


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueSeperator)


Me._BetaBlueSeperator1 = WithEventsValue


End Set


End Property


Friend Overridable Property BetaBlueSeperator2 As BetaBlueSeperator


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueSeperator2


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueSeperator)


Me._BetaBlueSeperator2 = WithEventsValue


End Set


End Property


Friend Overridable Property BetaBlueSeperator3 As BetaBlueSeperator


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueSeperator3


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueSeperator)


Me._BetaBlueSeperator3 = WithEventsValue


End Set


End Property


Friend Overridable Property BetaBlueTheme1 As BetaBlueTheme


<DebuggerNonUserCode> _


Get


Return Me._BetaBlueTheme1


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As BetaBlueTheme)


Me._BetaBlueTheme1 = WithEventsValue


End Set


End Property


Friend Overridable Property Label1 As Label


<DebuggerNonUserCode> _


Get


Return Me._Label1


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As Label)


Me._Label1 = WithEventsValue


End Set


End Property


Friend Overridable Property Label2 As Label


<DebuggerNonUserCode> _


Get


Return Me._Label2


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As Label)


Me._Label2 = WithEventsValue


End Set


End Property


Friend Overridable Property Label3 As Label


<DebuggerNonUserCode> _


Get


Return Me._Label3


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As Label)


Me._Label3 = WithEventsValue


End Set


End Property


Friend Overridable Property Label4 As Label


<DebuggerNonUserCode> _


Get


Return Me._Label4


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As Label)


Me._Label4 = WithEventsValue


End Set


End Property


Friend Overridable Property Label5 As Label


<DebuggerNonUserCode> _


Get


Return Me._Label5


End Get


<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _


Set(ByVal WithEventsValue As Label)


Me._Label5 = WithEventsValue


End Set


End Property


' Fields


Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)


<AccessedThroughProperty("BetaBlueButton1")> _


Private _BetaBlueButton1 As BetaBlueButton


<AccessedThroughProperty("BetaBlueButton2")> _


Private _BetaBlueButton2 As BetaBlueButton


<AccessedThroughProperty("BetaBlueButton3")> _


Private _BetaBlueButton3 As BetaBlueButton


<AccessedThroughProperty("BetaBlueSeperator1")> _


Private _BetaBlueSeperator1 As BetaBlueSeperator


<AccessedThroughProperty("BetaBlueSeperator2")> _


Private _BetaBlueSeperator2 As BetaBlueSeperator


<AccessedThroughProperty("BetaBlueSeperator3")> _


Private _BetaBlueSeperator3 As BetaBlueSeperator


<AccessedThroughProperty("BetaBlueTheme1")> _


Private _BetaBlueTheme1 As BetaBlueTheme


<AccessedThroughProperty("Label1")> _


Private _Label1 As Label


<AccessedThroughProperty("Label2")> _


Private _Label2 As Label


<AccessedThroughProperty("Label3")> _


Private _Label3 As Label


<AccessedThroughProperty("Label4")> _


Private _Label4 As Label


<AccessedThroughProperty("Label5")> _


Private _Label5 As Label


Private components As IContainer


Private Inj As InjectMe


Private OnOff As Boolean


End Class


End Namespace