Исходник Mamo Loader

Тема в разделе Crossfire Исходники, создана пользователем ERROR404, 2 апр 2013.

Войдите для ответа
  1. ERROR404 Администратор

    ERROR404
    Статус:
    Вне сети
    InjectMe.VB









    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








    Form1.VB







    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





    [/CODE]
     
    2 апр 2013 #1
Загрузка...
Похожие темы
  1. ERROR404
    Ответов:
    3
    Просмотров:
    1.099
Top