CLOSED
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Dim manager As New ComponentResourceManager(GetType(Form3))
Me.Label1 = New Label
Me.TextBox1 = New TextBox
Me.CheckBox1 = New CheckBox
Me.CheckBox2 = New CheckBox
Me.TextBox2 = New TextBox
Me.Label2 = New Label
Me.Button1 = New Button
Me.Button2 = New Button
Me.Button3 = New Button
Me.Button4 = New Button
Me.SuspendLayout
Me.Label1.AutoSize = True
Dim point2 As New Point(12, 15)
Me.Label1.Location = point2
Me.Label1.Name = "Label1"
Dim size2 As New Size(&H2B, 13)
Me.Label1.Size = size2
Me.Label1.TabIndex = 0
Me.Label1.Text = "SPEED"
point2 = New Point(&H3D, 12)
Me.TextBox1.Location = point2
Me.TextBox1.Name = "TextBox1"
size2 = New Size(100, 20)
Me.TextBox1.Size = size2
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "2000"
Me.CheckBox1.AutoSize = True
point2 = New Point(15, &H40)
Me.CheckBox1.Location = point2
Me.CheckBox1.Name = "CheckBox1"
size2 = New Size(&H77, &H11)
Me.CheckBox1.Size = size2
Me.CheckBox1.TabIndex = 2
Me.CheckBox1.Text = "Unsichtbar/Sichtbar"
Me.CheckBox1.UseVisualStyleBackColor = True
Me.CheckBox2.AutoSize = True
point2 = New Point(15, &H57)
Me.CheckBox2.Location = point2
Me.CheckBox2.Name = "CheckBox2"
size2 = New Size(&H6C, &H11)
Me.CheckBox2.Size = size2
Me.CheckBox2.TabIndex = 3
Me.CheckBox2.Text = "Moblock an / aus"
Me.CheckBox2.UseVisualStyleBackColor = True
point2 = New Point(90, &H26)
Me.TextBox2.Location = point2
Me.TextBox2.Name = "TextBox2"
size2 = New Size(100, 20)
Me.TextBox2.Size = size2
Me.TextBox2.TabIndex = 5
Me.TextBox2.Text = "2000"
Me.Label2.AutoSize = True
point2 = New Point(12, &H29)
Me.Label2.Location = point2
Me.Label2.Name = "Label2"
size2 = New Size(&H48, 13)
Me.Label2.Size = size2
Me.Label2.TabIndex = 4
Me.Label2.Text = "Attack-Speed"
point2 = New Point(15, 110)
Me.Button1.Location = point2
Me.Button1.Name = "Button1"
size2 = New Size(&HAF, &H17)
Me.Button1.Size = size2
Me.Button1.TabIndex = 6
Me.Button1.Text = "Verbesserung Item auf Platz1"
Me.Button1.UseVisualStyleBackColor = True
point2 = New Point(15, &H8B)
Me.Button2.Location = point2
Me.Button2.Name = "Button2"
size2 = New Size(&HAF, &H25)
Me.Button2.Size = size2
Me.Button2.TabIndex = 7
Me.Button2.Text = "Verbesserung Item auf Platz1 (Turm)"
Me.Button2.UseVisualStyleBackColor = True
point2 = New Point(15, &HB6)
Me.Button3.Location = point2
Me.Button3.Name = "Button3"
size2 = New Size(&HAF, &H17)
Me.Button3.Size = size2
Me.Button3.TabIndex = 8
Me.Button3.Text = "Setze Fertigkeiten auf P"
Me.Button3.UseVisualStyleBackColor = True
point2 = New Point(15, &HD3)
Me.Button4.Location = point2
Me.Button4.Name = "Button4"
size2 = New Size(&HAF, &H17)
Me.Button4.Size = size2
Me.Button4.TabIndex = 9
Me.Button4.Text = "Pull Mobs!"
Me.Button4.UseVisualStyleBackColor = True
Dim ef2 As New SizeF(6!, 13!)
Me.AutoScaleDimensions = ef2
Me.AutoScaleMode = AutoScaleMode.Font
size2 = New Size(210, &HFF)
Me.ClientSize = size2
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
Me.Name = "Form3"
Me.Text = "hack.dll (Multihack von vbacoder)"
Me.ResumeLayout(False)
Me.PerformLayout
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Interaction.MsgBox(("File injected in " & MyProject.Forms.Form1.TextBox2.Text), MsgBoxStyle.OkOnly, Nothing)
MyProject.Forms.Form3.Show
Me.Close
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Interaction.MsgBox(("File injected in " & MyProject.Forms.Form1.TextBox2.Text), MsgBoxStyle.OkOnly, Nothing)
MyProject.Forms.Form3.Show
Me.Close
End Sub
Der Hack macht nichts,ist nur die Form3.Der Injector ist kein Injector habe mir genauer den Source angekuckt und die Inject Funktion nicht gesehen und heißt das du das alles auf fun herstellt hast und das Programm hir released ist aus fun ,weil du so **** bist eine Dll zu herstellen alle Dlls die man da eingibt sind immer erfolgreich und kommt immer die Form3 xD.Quote:
Ja heist halt das die andren es so sehn wenn du sichtbar oder unsichtbar bist^^ Sry habs schlecht formuliert :)