How to make a Multitool [Simple]

[Neechan']

Hey and welcome to my 2nd tutorial.
Title says it all. This Tutorial are for Newbs. So dont :RAGE:


Visual Basic 2010

U find this Programm here.

Make now a Multitool

Now make a "Form"
Click on "New Project"


Now you have a form


Now add 5 buttons.


Okey now give all a name.
Button1 to Injector
Button2 to spammers
Button3 to Calculators
Button4 to Tapper
Button5 to Notepad



Now do 5 Forms

Project => Add Windows Form







Source Code

Injector [Simple]
Double klick at "Injector" Button
Now u have this:



Add:

Injector.Show()

Add now:

• 1 Button
• 1 Label (+3 for labeling)
• Timer
• OpenFileDialog
• Checkbox

Double Klick on Form and add

button1.text = "Browse..."
label1.text = "Waiting for users input..."
timer1.interval = 50
timer1.start()

Timer Code

If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
            If TargetProcess.Length = 0 Then

                Me.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe...")
            Else
                Timer1.Stop()
                Me.Label1.Text = "Successfully Injected!"
                Call Inject()
                If CheckBox1.Checked = True Then
                    Me.Close()
                Else
                End If
            End If
        Else
        End If

Else

Public Class
But comes out on top

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)
Dim DLLFileName As String
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 Inject()
On Error GoTo 1 ' If error occurs, app will close without any error messages
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 = OpenFileDialog1.FileName
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)
1: Me.Show()
End Sub

Button Code

OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
OpenFileDialog1.ShowDialog()
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1 .FileName.LastIndexOf("\"))
Dim DllFileName As String = FileName.Replace("\", "")
Me.TextBox2.Text = (DllFileName)

Finished with Injector.

Tapper

Tapper.Show

Add

• 2 Button
• 1 Timer

Button 1 = Connect
Button 2 = Disconnect

Connect Code

Shell("NET START DHCP")

Disconnect Code

Shell("Net STOP DHCP")

Timer Code

        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(116)
        If StartHotkey <> 0 Then
            Shell("Net STOP DHCP")
        End If
        Dim StopHotkey As Integer
        StopHotkey = GetAsyncKeyState(117)
        If StopHotkey <> 0 Then
            Shell("NET START DHCP")
        End If

    End Sub

Tapper [Simple] is Finished

Spammer

Double klick on "Spammer" Button

Spammer.show()

Add again:

• 2 Button
• 1 Timer
• 1 Textbox

Button 1 = Start
Button 2 = Stop

Start Code

Timer1.Enabled = True

Stop Code

Timer1.Enabled = False

Timer Code

 SendKeys.Send(TextBox1.Text)
          SendKeys.Send("{Enter}")

Calcurator

Calcurator.Show()

Add
[LIST][*]4 Button[*]2 Textbox[*]2 Label
[LIST]

Button1 = +
Button2 = -
Button3 = %
Button4 = X

Label1 =
Label2 =
(labels are empty)

+ Code

Label2.Text = "+"
Label1.Text = Val (textbox1.text) + Val (Text2.Text)

- Code

Label2.Text = "-"
Label1.Text = Val (textbox1.text) - Val (Text2.Text)

% Code

Label2.Text = "%"
Label1.Text = Val (textbox1.text) / Val (Text2.Text)

X Code

Label2.Text = "X"
Label1.Text = Val (textbox1.text) * Val (Text2.Text)

Finished with Calcurator

Advanced NotePad

Notepad.show()

Add

• MenuStrip
• RichText

1. Menu Strip "File"
New, Open, Save and Exit.

New:

RichTextBox1.Clear()

Open:

Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try

Save:

Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try

2. Manu Strip "Format"
Font, Colour, Undo, Redo, Cut, Copy, Paste, Clear, Select All.

Undo:

RichTextBox1.Undo()

Redo:

RichTextBox1.Redo()

Cut:

RichTextBox1.Cut()

Copy:

RichTextBox1.Copy()

Paste:

RichTextBox1.Paste()

Clear:

RichTextBox1.Clear()

Select All:

RichTextBox1.SelectAll()

Colour:

Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try

Font:

Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

Finished
Congratz, u have now a Multitool

Creeditzz
me /me
@Hobbo [Injector Source Code]

Have fun

[FUKO]

Nice, but add credits to Hobbo for his injector source.

[djrubenmp3]

Lol to make a multitool it's very simple you just need to make the original form and the project form and on the original just put the name of the form .show() it's izzy
Good job brow

[Neechan']

Lol to make a multitool it's very simple you just need to make the original form and the project form and on the original just put the name of the form .show() it's izzy
Good job brow

I know but its for Newbis ^^

[djrubenmp3]

I know but its for Newbis ^^

And i thing that this should be on tuto section

[Neechan']

oh ops wrong section lol ^^ thanks

[FUKO]

Add credits....

[Neechan']

Add credits....

-.-
iam not finished with tutorial omfg.
i add it later -.-

Edit: /req move to Tutorial @Ghost @Swiftdude

[Neechan]

nice nice xD

[iDoge]

nice nice xD

LOL,you stole real neechans name?!

[djrubenmp3]

LOL,you stole real neechans name?!

Lol I was thinking on that too

[Neechan']

nice nice xD

its my fake acc /me

[iDoge]

its my fake acc /me

[Neechan']

for bump my Thread bro

[A$IAN]

Nice tutorial.
This is Basic