Muti-Tool, Tool Codes [Mega-Thread] + Mini-Chams & Croshair

(Disconnect) = Shell("NET STOP DHCP")

(Connect) = Shell("NET START DHCP")

Function FKDR(ByVal Kills As String, ByVal Deaths As String, ByVal KDR As String)
        Dim Result As Double
        If KDR = 0 Then
            Result = Kills / Deaths
        Else
            Result = KDR * Kills - Deaths
        End If
        If KDR < 1 Then
            Return Format(Result, "0.00")
        Else
            Return Format(Result, "0")
        End If
    End Function

   'by ultahackers
        PictureBox1.Hide()
        Dim Strings As String
        Dim wc As New WebClient

        Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
        wc.Dispose()
        If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then
            'PLAYER IS CBL DIRTY
            PictureBox1.Show()
            Return
        Else
            'PLAYER IS CBL CLEAN
            PictureBox2.Show()
            PictureBox1.Hide()


            Return
        End If

    End Sub

Public Class Form1

    Private TargetProcessHandle As Integer
    Private pfnStartAddr As Integer
    Private pszLibFileRemote As String
    Private TargetBufferSize As Integer

    Public Const PROCESS_VM_READ = &H10
    Public Const TH32CS_SNAPPROCESS = &H2
    Public Const MEM_COMMIT = 4096
    Public Const PAGE_READWRITE = 4
    Public Const PROCESS_CREATE_THREAD = (&H2)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_VM_WRITE = (&H20)

    Public Declare Function ReadProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer

    Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
    ByVal lpLibFileName As String) As Integer

    Public Declare Function VirtualAllocEx Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpAddress As Integer, _
    ByVal dwSize As Integer, _
    ByVal flAllocationType As Integer, _
    ByVal flProtect As Integer) As Integer

    Public Declare Function WriteProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer

    Public Declare Function GetProcAddress Lib "kernel32" ( _
    ByVal hModule As Integer, ByVal lpProcName As String) As Integer

    Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As String) As Integer

    Public Declare Function CreateRemoteThread Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpThreadAttributes As Integer, _
    ByVal dwStackSize As Integer, _
    ByVal lpStartAddress As Integer, _
    ByVal lpParameter As Integer, _
    ByVal dwCreationFlags As Integer, _
    ByRef lpThreadId As Integer) As Integer

    Public Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Integer, _
    ByVal bInheritHandle As Integer, _
    ByVal dwProcessId As Integer) As Integer

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Integer

    Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
    ByVal hObject As Integer) As Integer


    Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)

    Private Sub Injectionlistbox()
        MsgBox("This injector codes were produce by Topblast of ******")
    End Sub
    Private Sub Inject()
        On Error GoTo 1 ' If an error occurs it will close else it will not close you will hear a BEEP r a sound
        Timer1.Stop()
        Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = ListBox1.SelectedItem
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = 1 + Len(pszLibFileRemote)
        Dim Rtn As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
        Call Injectionlistbox()
1:      Me.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If IO.File.Exists(ListBox1.SelectedItem) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
            If TargetProcess.Length = 0 Then
                Me.TextBox2.Text = ("Waiting for " + TextBox1.Text)
            Else
                Timer1.Stop()
                Me.TextBox2.Text = "Done..."
                Call Inject()
                Me.Close()
            End If
        Else
            Me.TextBox2.Text = ("Selected a DLL")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.Interval = NumericUpDown1.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim OpenFileDialog1 As OpenFileDialog

        OpenFileDialog1.InitialDirectory = "Desktop"
        OpenFileDialog1.Filter = "DLL files (*.DLL)|*.dll|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                ListBox1.Items.Add(OpenFileDialog1.FileName)
                ListBox1.Select()
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            End Try
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Form3.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Hide()
Form3.Hide()
End Sub
End Class

Public Class Form5

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Crosshair2.Show()
            corrshair.show()
        Else
            corrshair.close()
            Crosshair2.Close()

        End If
    End Sub

    

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            corrshair.Close()
            Crosshair2.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Enabled = True Then MsgBox("Check boxe Crosshair on to activate and Check boxe Crossshair Off to DeActivate")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button1.Enabled = True Then MsgBox("This may not work for others, Sorry but wait for updates.")
    End Sub

Label2.Text = "Cleaned."
        If CheckBox1.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.txt")
        End If
        If CheckBox2.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.jpg")
        End If
        If CheckBox3.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.v3d")
        End If
        If CheckBox4.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.bin")
        End If
        If CheckBox5.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dmp")
        End If
        If CheckBox6.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dump")
        End If
        If CheckBox7.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
        End If
        If CheckBox8.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\CAV.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\CAV.exe")
        End If
        If CheckBox9.Checked = True Then
            On Error Resume Next
            If Dir("C:\Nexon\Combat Arms\MOVIES") <> "" Then
                Rename("C:\Nexon\Combat Arms\Game\MOVIES", "C:\Nexon\Combat Arms\Game\CLEANED")
            End If
        End If

If CheckBox10.Checked = True Then
            CheckBox1.Checked = True
            CheckBox2.Checked = True
            CheckBox3.Checked = True
            CheckBox4.Checked = True
            CheckBox5.Checked = True
            CheckBox6.Checked = True
            CheckBox7.Checked = True
            CheckBox8.Checked = True
            CheckBox9.Checked = True
        Else
            CheckBox10.Checked = False
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            CheckBox5.Checked = False
            CheckBox6.Checked = False
            CheckBox7.Checked = False
            CheckBox8.Checked = False
            CheckBox9.Checked = False
        End If

Option Explicit On
Imports System.IO
Public Class Texture_Remover
    Dim FL As String
    Dim ML As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        FL = ("C:\*****\CA\Game\")
        ML = ("C:\Program Files\")
        On Error Resume Next
        File.Move(FL + "CHARS_T_FACE.rez", ML + "CHARS_T_FACE.rez")
        File.Move(FL + "CHARS_T_BODY.rez", ML + "CHARS_T_BODY.rez")
        File.Move(FL + "CHARS_T_HAND.rez", ML + "CHARS_T_HAND.rez")
        File.Move(FL + "CHARS_T_HEAD.rez", ML + "CHARS_T_HEAD.rez")
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error Resume Next
        File.Move(ML + "CHARS_T_FACE.rez", FL + "CHARS_T_FACE.rez")
        File.Move(ML + "CHARS_T_BODY.rez", FL + "CHARS_T_BODY.rez")
        File.Move(ML + "CHARS_T_HAND.rez", FL + "CHARS_T_HAND.rez")
        File.Move(ML + "CHARS_T_HEAD.rez", FL + "CHARS_T_HEAD.rez")
    End Sub

End Class

If TextBox1.Text = "Type in your user name" And TextBox2.Text = " Type in your password " Then
            Form2.Show()
        Else
            MsgBox("Invalid Login")

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Enabled = True Then MsgBox("Type in wat you want ok.")

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Form1_KeyDown:
        If e.KeyCode = Keys.F7 Then
            Button5.PerformClick()

        End If
    End Sub

 Label11.Text = My.Application.Info.Version.ToString

        Label5.Text = My.Computer.Name

Label2.Text = TimeOfDay

   Open(button1): OpenFileDialog1.ShowDialog() AxWindowsMediaPlayer1.URL= OpenFileDialog1.FileName
Filter code for openfiledialog1:
MP3|*.mp3

 If ComboBox2.SelectedItem = ("Dark Blue") Then
            Me.BackColor = Color.DarkBlue
            Me.ForeColor = Color.DarkBlue

        End If

ProgressBar1.Increment(1)
        If ProgressBar1.Value = 2 Then
            Label3.Text = "Checking Code part 1/3 "
        Else
            If ProgressBar1.Value = 34 Then
                Label3.Text = "Checking code 2/3"
            Else
                If ProgressBar1.Value = 78 Then
                    Label3.Text = " checking code 3/3"
                Else
                    If ProgressBar1.Value = 100 Then
                        Button2.Enabled = True
                        ProgressBar1.Value = 0
                        Timer1.Stop()
                    End If
                            End If
                        End If
                    End If
        

    End Sub

Label2.Text = "Cleaned."
        If CheckBox1.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.txt")
        End If
        If CheckBox2.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.jpg")
        End If
        If CheckBox3.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.v3d")
        End If
        If CheckBox4.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.bin")
        End If
        If CheckBox5.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dmp")
        End If
        If CheckBox6.Checked = True Then
            On Error Resume Next
            Kill("C:\Nexon\Combat Arms\*.dump")
        End If
        If CheckBox7.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
        End If
        If CheckBox8.Checked = True Then
            On Error Resume Next
            System.IO.File.SetAttributes("C:\Nexon\Combat Arms\CAV.exe", System.IO.FileAttributes.Normal)
            Kill("C:\Nexon\Combat Arms\CAV.exe")
        End If
        If CheckBox9.Checked = True Then
            On Error Resume Next
            If Dir("C:\Nexon\Combat Arms\MOVIES") <> "" Then
                Rename("C:\Nexon\Combat Arms\Game\MOVIES", "C:\Nexon\Combat Arms\Game\CLEANED")
            End If
        End If

If CheckBox10.Checked = True Then
            CheckBox1.Checked = True
            CheckBox2.Checked = True
            CheckBox3.Checked = True
            CheckBox4.Checked = True
            CheckBox5.Checked = True
            CheckBox6.Checked = True
            CheckBox7.Checked = True
            CheckBox8.Checked = True
            CheckBox9.Checked = True
        Else
            CheckBox10.Checked = False
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            CheckBox5.Checked = False
            CheckBox6.Checked = False
            CheckBox7.Checked = False
            CheckBox8.Checked = False
            CheckBox9.Checked = False
        End If