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 :)