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

**ultahackers** · 11-07-2010

Tapper- /yea

--On

Code:

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

--Off

Code:

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

----------------------------------------------------------------------------
KDR Calculator- /yea

Code:

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

------------------------------------------------------------------
CBL Checker /yea (My Way)

Put This code in (Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click)
Code is

Code:

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

        Strings = wc.DownloadString("https://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
        wc.Dispose()
        If Strings.Contains("https://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

Then Make-- The Following
https://img195.imageshack.us/img195/4589/83666436.png
And add 2 PictureBox .... or jut do labels
-------------------------------------------------------------
Injector /yea
Add the Following
* Two Textboxes
* One Listbox
* Three Buttons
* One NumericUpDown
Code Is

Code:

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

-------------------------------------------------------------------------
How Make Crosshair /yea
(May need to edit overlay. for it to work in game)
"THIS WILL TAKE LONG TIME TO CODE THIS.. PM OR ADD ME ON MSN"
In Forum2.vb do this ok
--Find and change ShowInTaskbar to FALSE
--Find and change Opacity to 65% (or other)
--Find and change StartPosition to CenterScreen
--Find Size and change to 1, 50 (it will automatically change to another number)
-- Find and change MinimumSize to 1, 50
--Find and change MaximumSize to 1, 50
--Find and change FormBorderStyle to None
--Find and change BackColor to RED
--Click on New Form on the toolbar (not toolbox)
--Do Number 11, 12, 13, 17 and 18.
--Find and change Size to 50 , 1 (do it for MinimumSize, MaximumSize too)

Go back to Form1.vb
--Double Click on your Show Crosshair button and your Hide Crosshair button.
Then........... some few codes below will help you allot
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub
End Class

25. Put in this (Form2.Show and Form3.Show under the first section and Form2.Hide and Form3.Hide under the 2nd section):
Public Class Form1

Code:

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

Code:

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

Big Code is that will help...

Code:

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

For msn help on.. stevebill@exo.com
-----------------------------------------------
Cleaner for C.A /yea
Required
* 3 GroupBoxes
* 10 CheckBoxes
* 1 Button
* 2 Labels

Code:

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

Other Code iz

Code:

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

--------------------------------------------------------------------
Mini-Chams /yea
---Create 2 buttons.
----Name first one, "Mini chams"
--.Name second one, "Revert"
---Click On Mini Chams Button.
----.Delete every code in it, i mean every single code in it.

6.Add the following code:

Code:

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

-------After that, click on button2.
---Delete everything for this one also.
----Add the following code"

Code:

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

-----------------------------------------------------------
Make Login/Password /yea
1) Make 1 Button
2) Make 2 TextBox
3) Rename Button1 to Login
4) For 1st Text-box type" Type in your username"
For 2 Text-box Type" Type in your Password"
5) Dont have to make this( make a second button and rename it to help)

Double click on Button1/login put the following code

Code:

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

6)Now make a new forum, name it forum2.
Click on the forum 2 and edit it............

7) For the help Button.
Double click on the button2 and type in this code.

Code:

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.")

-------------------------------------------------------------
Add hot-key to ur forum..... /yea

Code:

 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

-------------------------------------------------------------------------
Say Version of your tool /yea

Code:

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

--------------------------------------------------------------
Say User Name of pc /yea

Code:

        Label5.Text = My.Computer.Name

Use any label....
-----------------------------------------------------------------------
Time of Day /yea

Code:

Label2.Text = TimeOfDay

--------------------------------------------------------------------------
MP3 Player /yea

Code:

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

------------------------------------------------------------------------
Change Theme/ Back ground Color...../yea
1) Add a combo-box.... then edit it and add Dark Blue
2) Double click combo-box and add this code....

Code:

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

        End If

----------------------------------------------------------------------
Advanced Coding on the progress bar /yea
-------- add a label and name it label3... or change codes..
1) Do normal coding for progress bar.. then add this code on timer

Code:

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

--------------------------------------------------------------------------
Cleaner /yea
Required
* 3 GroupBoxes
* 10 CheckBoxes
* 1 Button
* 2 Labels

Code:

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

........other code

Code:

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

-------------------------------------------------------------------------
IF USE ANY OF CODES.... PLZ GIVE CREDITS TO.....
-Ultahackers (Main Coder, Updates, Editor.......)
-jamshaid (Big Helper, mini-chams helper)
-CA********** (Revert help on mini-chams... other)"he's name block dew to mpgh rules

-Realm Duelist (Editor on the codes)
-iLikeWaterHa (Big coder)
-VB™(????????)
-hahahaz (Used he idea...? aka coding)
-Boomdocks (Coder Helper on cleaner)
-deathninjako (Codes on cleaner)
(if think you helped or coded some codes ... sorry just tell to update the credits)
--MSN for Extra Help : stevebill@exo.com
Dont say it.. Just click it "THANKS BUTTON"/yea
"took me 37-49 min to post this stuff.. had to look deep into codes"