MPGHThe Dark Arts
RegisterLog in

My VB injector

Posts 1–2 of 2 · Page 1 of 1
My VB injector
Hey guys wasup this is my vb injector it dosnt inject files i need to add the code for that but idk it xD im making it for call of duty 4 ny ideads? thanks
code:
Code:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.CheckBox2 = New System.Windows.Forms.CheckBox
        Me.CheckBox4 = New System.Windows.Forms.CheckBox
        Me.CheckBox5 = New System.Windows.Forms.CheckBox
        Me.CheckBox6 = New System.Windows.Forms.CheckBox
        Me.CheckBox7 = New System.Windows.Forms.CheckBox
        Me.CheckBox8 = New System.Windows.Forms.CheckBox
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.Button4 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(12, 289)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(413, 23)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "HELP...."
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(12, 202)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(413, 23)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "BROWSE FOR COD4 EXECUTABLE"
        Me.Button2.UseVisualStyleBackColor = True
        Me.Button2.Visible = False
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(12, 260)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(413, 23)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "INJECT!"
        Me.Button3.UseVisualStyleBackColor = True
        Me.Button3.Visible = False
        '
        'CheckBox1
        '
        Me.CheckBox1.AutoSize = True
        Me.CheckBox1.ForeColor = System.Drawing.SystemColors.Window
        Me.CheckBox1.Location = New System.Drawing.Point(12, 12)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox1.TabIndex = 3
        Me.CheckBox1.Text = "VERSION 1.1"
        Me.CheckBox1.UseVisualStyleBackColor = True
        '
        'CheckBox2
        '
        Me.CheckBox2.AutoSize = True
        Me.CheckBox2.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox2.Location = New System.Drawing.Point(12, 150)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox2.TabIndex = 4
        Me.CheckBox2.Text = "VERSION 1.7"
        Me.CheckBox2.UseVisualStyleBackColor = True
        '
        'CheckBox4
        '
        Me.CheckBox4.AutoSize = True
        Me.CheckBox4.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox4.Location = New System.Drawing.Point(12, 127)
        Me.CheckBox4.Name = "CheckBox4"
        Me.CheckBox4.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox4.TabIndex = 6
        Me.CheckBox4.Text = "VERSION 1.6"
        Me.CheckBox4.UseVisualStyleBackColor = True
        '
        'CheckBox5
        '
        Me.CheckBox5.AutoSize = True
        Me.CheckBox5.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox5.Location = New System.Drawing.Point(12, 104)
        Me.CheckBox5.Name = "CheckBox5"
        Me.CheckBox5.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox5.TabIndex = 7
        Me.CheckBox5.Text = "VERSION 1.5"
        Me.CheckBox5.UseVisualStyleBackColor = True
        '
        'CheckBox6
        '
        Me.CheckBox6.AutoSize = True
        Me.CheckBox6.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox6.Location = New System.Drawing.Point(12, 81)
        Me.CheckBox6.Name = "CheckBox6"
        Me.CheckBox6.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox6.TabIndex = 8
        Me.CheckBox6.Text = "VERSION 1.4"
        Me.CheckBox6.UseVisualStyleBackColor = True
        '
        'CheckBox7
        '
        Me.CheckBox7.AutoSize = True
        Me.CheckBox7.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox7.Location = New System.Drawing.Point(12, 58)
        Me.CheckBox7.Name = "CheckBox7"
        Me.CheckBox7.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox7.TabIndex = 9
        Me.CheckBox7.Text = "VERSION 1.3"
        Me.CheckBox7.UseVisualStyleBackColor = True
        '
        'CheckBox8
        '
        Me.CheckBox8.AutoSize = True
        Me.CheckBox8.ForeColor = System.Drawing.SystemColors.HighlightText
        Me.CheckBox8.Location = New System.Drawing.Point(12, 35)
        Me.CheckBox8.Name = "CheckBox8"
        Me.CheckBox8.Size = New System.Drawing.Size(92, 17)
        Me.CheckBox8.TabIndex = 10
        Me.CheckBox8.Text = "VERSION 1.2"
        Me.CheckBox8.UseVisualStyleBackColor = True
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(12, 173)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(413, 23)
        Me.ProgressBar1.TabIndex = 11
        Me.ProgressBar1.Visible = False
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(12, 231)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(413, 23)
        Me.Button4.TabIndex = 12
        Me.Button4.Text = "BROWSE FOR .DLL FILE"
        Me.Button4.UseVisualStyleBackColor = True
        Me.Button4.Visible = False
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.Control
        Me.Label1.Location = New System.Drawing.Point(110, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(270, 31)
        Me.Label1.TabIndex = 13
        Me.Label1.Text = "MADE BY R3AP3R "
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.ForeColor = System.Drawing.SystemColors.ButtonHighlight
        Me.Label2.Location = New System.Drawing.Point(113, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(291, 20)
        Me.Label2.TabIndex = 14
        Me.Label2.Text = "THANKS TO: PEOPLE OF MPGH"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label3.Location = New System.Drawing.Point(13, 319)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(90, 7)
        Me.Label3.TabIndex = 15
        Me.Label3.Text = "Copyright 2009 by: R3ap3r"
        '
        'OpenFileDialog1
        '
        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.ClientSize = New System.Drawing.Size(437, 336)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.CheckBox8)
        Me.Controls.Add(Me.CheckBox7)
        Me.Controls.Add(Me.CheckBox6)
        Me.Controls.Add(Me.CheckBox5)
        Me.Controls.Add(Me.CheckBox4)
        Me.Controls.Add(Me.CheckBox2)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "CoD 4 INJECTOR"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Enabled = True
        ProgressBar1.Visible = True
        ProgressBar1.Value = 100
        MsgBox("Thank you for using my CoD 4 injector =) have a nice day hacking these bitches and also... TELL UR FRIENDS =)", MsgBoxStyle.Information, "READ")
        ProgressBar1.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Hi and welcome to help!")
        MsgBox("Check box your CoD 4 Version (this is located at your bottom right hand corner when you open up cod4 multyplayer)")
        MsgBox("Then click on: Browse for CoD4 executable.(usualy located in your C:\Program Files\Steam\steamapps\common\call of duty 4)")
        MsgBox("Then browse for a dll to inject into your cod4 files which will activate the hack in game.(dll files end with exetinson of .dll XD)")
        MsgBox("there you go have funn haking =)")
    End Sub

    Private Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using ofd As New OpenFileDialog
            ofd.Filter = "All files (*.*)|*.*"
            ofd.Title = "Select File"

            If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
                MessageBox.Show("You selected " & ofd.FileName)
                Button4.Visible = True
            End If
        End Using
    End Sub
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog

    Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Using ofd As New OpenFileDialog
            ofd.Filter = "All files (*.*)|*.*"
            ofd.Title = "Select File"

            If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
                MessageBox.Show("You selected " & ofd.FileName)
                Button3.Visible = True
            End If
        End Using
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox6.Visible = False
        CheckBox5.Visible = False
        CheckBox4.Visible = False
        CheckBox2.Visible = False
        CheckBox8.Visible = False
        If CheckBox1.Checked = False Then
            CheckBox7.Visible = True
            CheckBox6.Visible = True
            CheckBox5.Visible = True
            CheckBox4.Visible = True
            CheckBox2.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox6.Visible = False
        CheckBox5.Visible = False
        CheckBox4.Visible = False
        CheckBox2.Visible = False
        CheckBox1.Visible = False
        If CheckBox8.Checked = False Then
            CheckBox7.Visible = True
            CheckBox6.Visible = True
            CheckBox5.Visible = True
            CheckBox4.Visible = True
            CheckBox2.Visible = True
            CheckBox1.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        Button2.Visible = True
        CheckBox1.Visible = False
        CheckBox6.Visible = False
        CheckBox5.Visible = False
        CheckBox4.Visible = False
        CheckBox2.Visible = False
        CheckBox8.Visible = False
        If CheckBox7.Checked = False Then
            CheckBox1.Visible = True
            CheckBox6.Visible = True
            CheckBox5.Visible = True
            CheckBox4.Visible = True
            CheckBox2.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox1.Visible = False
        CheckBox5.Visible = False
        CheckBox4.Visible = False
        CheckBox2.Visible = False
        CheckBox8.Visible = False
        If CheckBox6.Checked = False Then
            CheckBox7.Visible = True
            CheckBox1.Visible = True
            CheckBox5.Visible = True
            CheckBox4.Visible = True
            CheckBox2.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox6.Visible = False
        CheckBox1.Visible = False
        CheckBox4.Visible = False
        CheckBox2.Visible = False
        CheckBox8.Visible = False
        If CheckBox5.Checked = False Then
            CheckBox7.Visible = True
            CheckBox6.Visible = True
            CheckBox1.Visible = True
            CheckBox4.Visible = True
            CheckBox2.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox6.Visible = False
        CheckBox5.Visible = False
        CheckBox1.Visible = False
        CheckBox2.Visible = False
        CheckBox8.Visible = False
        If CheckBox4.Checked = False Then
            CheckBox7.Visible = True
            CheckBox6.Visible = True
            CheckBox5.Visible = True
            CheckBox1.Visible = True
            CheckBox2.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        Button2.Visible = True
        CheckBox7.Visible = False
        CheckBox6.Visible = False
        CheckBox5.Visible = False
        CheckBox4.Visible = False
        CheckBox1.Visible = False
        CheckBox8.Visible = False
        If CheckBox2.Checked = False Then
            CheckBox7.Visible = True
            CheckBox6.Visible = True
            CheckBox5.Visible = True
            CheckBox4.Visible = True
            CheckBox1.Visible = True
            CheckBox8.Visible = True
            Button2.Visible = False
        End If
    End Sub
End Class
cod4injectorv1.rarattachment deleted · 33 downloads before removal
#1 · edited ·
you might get an error with this code for some reason its been happening to me alot...thanks so much
EDIT: ERRORS RESOLVED THAT IS MY CODE PLZ POST A CODE ON HOW TO GET THE .DLL TO INJECT THANKS SOOOOO MUCH GUYS
#2 · edited ·
Posts 1–2 of 2 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Gunz General.dll injectorEleMentX 31 Hack Requestsinjector tutmpghhackersrock123 1 Visual Basic Programmingdll injectorZeaSZeaS 18 Soldier Front HacksWallHack - Omega InjectorCr4azyPh4ntomCr4azyPh4ntom 40

Tags for this Thread

#injector
Talk with us