New Rodney's D3D Menu WolfTeam Hack Tool!

Page 2 of 3

11/20/2011 19:48 Rуuk#16

btw: thanks-trading isn't allowed. so dont beg for thanks...

11/20/2011 20:02 RodneyPetr#17

Quote:

Originally Posted by Ryuk.

btw: thanks-trading isn't allowed. so dont beg for thanks...

I am sorry, I forgot :/.

11/20/2011 20:05 iStarzs#18

Its for aeria?

11/20/2011 20:09 RodneyPetr#19

Quote:

Originally Posted by iStarzs

Its for aeria?

Yeah, US and DE.

11/21/2011 15:06 GinChilla#20

SourceCode:

Form1:

Spoiler

HackTick:

Spoiler

Ich glaube das wolltest du Ungef�hr wissen oder Boreos ??
Mehr hau ich aber net rein ;)

11/21/2011 15:55 RodneyPetr#21

Quote:

Originally Posted by Sunny_Boyyy

SourceCode:

Form1:

Spoiler

<DesignerGenerated> _
Public Class Form1
Inherits Form
' Methods
<DebuggerNonUserCode> _
Shared Sub New()
<DebuggerNonUserCode> _
Public Sub New()
Private Sub afkbot_Tick(ByVal sender As Object, ByVal e As EventArgs)
Private Sub clock_Tick(ByVal sender As Object, ByVal e As EventArgs)
<DebuggerNonUserCode> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
<DllImport("user32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function GetAsyncKeyState(ByVal vkey As Long) As Integer
Private Sub hacks_Tick(ByVal sender As Object, ByVal e As EventArgs)
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Private Sub Label1_Click(ByVal sender As Object, ByVal e As EventArgs)
Private Sub movemenue_Tick(ByVal sender As Object, ByVal e As EventArgs)
Private Sub showhide_Tick(ByVal sender As Object, ByVal e As EventArgs)

' Properties
Friend Overridable Property afkbot As Timer
Friend Overridable Property clock As Timer
Friend Overridable Property hacks As Timer
Friend Overridable Property Label1 As Label
Friend Overridable Property Label10 As Label
Friend Overridable Property Label11 As Label
Friend Overridable Property Label2 As Label
Friend Overridable Property Label3 As Label
Friend Overridable Property Label4 As Label
Friend Overridable Property Label5 As Label
Friend Overridable Property Label6 As Label
Friend Overridable Property Label7 As Label
Friend Overridable Property Label8 As Label
Friend Overridable Property Label9 As Label
Friend Overridable Property movemenue As Timer
Friend Overridable Property showhide As Timer

' Fields
Private Shared __ENCList As List(Of WeakReference)
<AccessedThroughProperty("afkbot")> _
Private _afkbot As Timer
<AccessedThroughProperty("clock")> _
Private _clock As Timer
<AccessedThroughProperty("hacks")> _
Private _hacks As Timer
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("Label10")> _
Private _Label10 As Label
<AccessedThroughProperty("Label11")> _
Private _Label11 As Label
<AccessedThroughProperty("Label2")> _
Private _Label2 As Label
<AccessedThroughProperty("Label3")> _
Private _Label3 As Label
<AccessedThroughProperty("Label4")> _
Private _Label4 As Label
<AccessedThroughProperty("Label5")> _
Private _Label5 As Label
<AccessedThroughProperty("Label6")> _
Private _Label6 As Label
<AccessedThroughProperty("Label7")> _
Private _Label7 As Label
<AccessedThroughProperty("Label8")> _
Private _Label8 As Label
<AccessedThroughProperty("Label9")> _
Private _Label9 As Label
<AccessedThroughProperty("movemenue")> _
Private _movemenue As Timer
<AccessedThroughProperty("showhide")> _
Private _showhide As Timer
Private components As IContainer
End Class

Expand Methods

HackTick:

Spoiler

Private Sub hacks_Tick(ByVal sender As Object, ByVal e As EventArgs)
If (Form1.GetAsyncKeyState(&H70) > 0) Then
If (Me.Label4.Text = "[OFF]") Then
Me.Label4.Text = "[RED]"
Me.Label4.ForeColor = Color.Red
MyProject.Forms.Form2.Show
MyProject.Forms.Form3.Show
Return
End If
If (Me.Label4.Text = "[RED]") Then
Me.Label4.Text = "[BLUE]"
Me.Label4.ForeColor = Color.Blue
MyProject.Forms.Form2.Close
MyProject.Forms.Form3.Close
MyProject.Forms.Form4.Show
MyProject.Forms.Form5.Show
Return
End If
If (Me.Label4.Text = "[BLUE]") Then
Me.Label4.Text = "[OFF]"
Me.Label4.ForeColor = Color.Red
MyProject.Forms.Form4.Close
MyProject.Forms.Form5.Close
Return
End If
End If
If (Form1.GetAsyncKeyState(&H71) > 0) Then
If (Me.Label5.Text = "[OFF]") Then
Me.Label5.Text = "[ON]"
Me.Label5.ForeColor = Color.Green
Me.Label10.Visible = True
Return
End If
If (Me.Label5.Text = "[ON]") Then
Me.Label5.Text = "[OFF]"
Me.Label5.ForeColor = Color.Red
Me.Label10.Visible = False
Return
End If
End If
If (Form1.GetAsyncKeyState(&H72) > 0) Then
If (Me.Label6.Text = "[1]") Then
Me.Label6.Text = "[2]"
Me.Label6.ForeColor = Color.Green
Me.Label10.ForeColor = Color.Green
Return
End If
If (Me.Label6.Text = "[2]") Then
Me.Label6.Text = "[3]"
Me.Label6.ForeColor = Color.Red
Me.Label10.ForeColor = Color.Red
Return
End If
If (Me.Label6.Text = "[3]") Then
Me.Label6.Text = "[4]"
Me.Label6.ForeColor = Color.White
Me.Label10.ForeColor = Color.White
Return
End If
If (Me.Label6.Text = "[4]") Then
Me.Label6.Text = "[5]"
Me.Label6.ForeColor = Color.BlueViolet
Me.Label10.ForeColor = Color.BlueViolet
Return
End If
If (Me.Label6.Text = "[5]") Then
Me.Label6.Text = "[1]"
Me.Label6.ForeColor = Color.Yellow
Me.Label10.ForeColor = Color.Yellow
Return
End If
End If
If (Form1.GetAsyncKeyState(&H73) > 0) Then
If (Me.Label7.Text = "[OFF]") Then
Me.Label7.Text = "[ON]"
Me.Label7.ForeColor = Color.Green
Me.movemenue.Start
Return
End If
If (Me.Label7.Text = "[ON]") Then
Me.Label7.Text = "[OFF]"
Me.Label7.ForeColor = Color.Red
Me.movemenue.Stop
Return
End If
End If
If ((Form1.GetAsyncKeyState(&H74) > 0) AndAlso (Me.Label8.Text = "F5")) Then
Try
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
Dim process As Process = Process.GetProcessesByName("Wolfteam")(0)
process.CloseMainWindow
Thread.Sleep(500)
If (Process.GetProcessesByName("Wolfteam").Length > 0) Then
process.Kill
Me.Close
End If
End If
End Sub

Ich glaube das wolltest du Ungef�hr wissen oder Boreos ??
Mehr hau ich aber net rein ;)

Why u destroy my work? I hate posting any hacks, couse I hate noobs as you, who have to be interesting -.-.

11/21/2011 15:58 GinChilla#22

Quote:

Originally Posted by RodneyPetr

Why u destroy my work? I hate posting any hacks, couse I hate noobs as you, who have to be interesting -.-.

I just give him a hint. I don�t publish all.

11/21/2011 16:08 RodneyPetr#23

Quote:

Originally Posted by Sunny_Boyyy

I just give him a hint. I don�t publish all.

U still destroy my work. If u know how to decompile hacks, don't post anywhere codes..! If u hard work on good hack and want sell it and anyone buy it, decompile and post anywhere codes, what u do? I don't say my hack is anything good, but from now I don't post here any good hacks. Only tools. Thank you. (Sorry for my english)

11/21/2011 16:13 GinChilla#24

No, i just give him a hint. You got lot of Form & SourceCodes.
Your work is not destroyed. Just make an Update, I would�t post anymore codes.
It�s just that he know how to do.

11/21/2011 16:17 RodneyPetr#25

Quote:

Originally Posted by Sunny_Boyyy

No, i just give him a hint. You got lot of Form & SourceCodes.
Your work is not destroyed. Just make an Update, I would�t post anymore codes.
It�s just that he know how to do.

If he want know how to do it - then he have to learning. C0lo's hack too don't have anywhere codes.

11/21/2011 18:01 CrackKID#26

mach doch einfach ein neuen tread auf ...

11/21/2011 20:03 samenamedame2#27

It is working and it is not a virus

11/21/2011 21:28 RodneyPetr#28

Quote:

Originally Posted by samenamedame2

It is working and it is not a virus

Look at other's comments. It work and I have virustotal in thread, too.

12/02/2012 10:09 SsbigmansS#29

It flashes i play windows 7 64 bit why It flashes to me ?

12/02/2012 11:27 �▐��H�ΓΘ#30

Dont push a so old thread....The tool is patched....

Page 2 of 3