|
You last visited: Today at 18:03
Advertisement
New Rodney's D3D Menu WolfTeam Hack Tool!
Discussion on New Rodney's D3D Menu WolfTeam Hack Tool! within the Wolfteam forum part of the Shooter category.
11/20/2011, 19:48
|
#16
|
elite*gold: 8
Join Date: Jan 2010
Posts: 6,738
Received Thanks: 2,873
|
btw: thanks-trading isn't allowed. so dont beg for thanks...
|
|
|
11/20/2011, 20:02
|
#17
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
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
|
#18
|
elite*gold: 20
Join Date: Oct 2011
Posts: 149
Received Thanks: 87
|
Its for aeria?
|
|
|
11/20/2011, 20:09
|
#19
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
Quote:
Originally Posted by iStarzs
Its for aeria?
|
Yeah, US and DE.
|
|
|
11/21/2011, 15:06
|
#20
|
elite*gold: 47
Join Date: Dec 2010
Posts: 2,801
Received Thanks: 965
|
SourceCode:
Form1:
<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:
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
|
|
|
11/21/2011, 15:55
|
#21
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
Quote:
Originally Posted by Sunny_Boyyy
SourceCode:
Form1:
<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:
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
|
#22
|
elite*gold: 47
Join Date: Dec 2010
Posts: 2,801
Received Thanks: 965
|
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
|
#23
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
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
|
#24
|
elite*gold: 47
Join Date: Dec 2010
Posts: 2,801
Received Thanks: 965
|
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
|
#25
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
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
|
#26
|
elite*gold: 0
Join Date: Sep 2010
Posts: 20
Received Thanks: 2
|
mach doch einfach ein neuen tread auf ...
|
|
|
11/21/2011, 20:03
|
#27
|
elite*gold: 0
Join Date: Sep 2011
Posts: 8
Received Thanks: 0
|
It is working and it is not a virus
|
|
|
11/21/2011, 21:28
|
#28
|
elite*gold: 0
Join Date: Nov 2011
Posts: 14
Received Thanks: 15
|
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
|
#29
|
elite*gold: 0
Join Date: Nov 2012
Posts: 6
Received Thanks: 0
|
It flashes i play windows 7 64 bit why It flashes to me ?
|
|
|
12/02/2012, 11:27
|
#30
|
elite*gold: 0
Join Date: Oct 2012
Posts: 212
Received Thanks: 47
|
Dont push a so old thread....The tool is patched....
|
|
|
All times are GMT +2. The time now is 18:03.
|
|