| View previous topic :: View next topic |
| Author |
Message |
dnsi0
I post too much
![]() Reputation: 0
Joined: 04 Jan 2007
Posts: 2674
|
 Posted: Thu Nov 29, 2007 6:15 pm Post subject: |
 |
|
| Wiccaan wrote: | Using my toolkit, you could do this using this code:
| Code: | Private Sub Command1_Click()
Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("Wolfteam.bin")
Poke.WriteLong dwProcId, &H342C9E8C, 6004
End Sub |
|
Lol wouldent work. You didn't create the object. Just declared it. Use:
| Code: | | Set Proc = new clsProcess_Access |
and so on.
|
|
| Back to top |
|
 |
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Fri Nov 30, 2007 6:28 am Post subject: |
|
|
object ?
i want a timer to repeat the value so it freeze
but how must i do that
i got the file :
|
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Fri Nov 30, 2007 11:16 am Post subject: |
|
|
| dnsi0 wrote: | | Wiccaan wrote: | Using my toolkit, you could do this using this code:
| Code: | Private Sub Command1_Click()
Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("Wolfteam.bin")
Poke.WriteLong dwProcId, &H342C9E8C, 6004
End Sub |
|
Lol wouldent work. You didn't create the object. Just declared it. Use:
| Code: | | Set Proc = new clsProcess_Access |
and so on. |
Did you read my correction earlier, I don't have this game so I typed up a quick example using my classes for him then noticed the mistake and told him to fix it.
Which was changing:
| Code: | Dim Proc As clsProcess_Access
Dim Poke As clsMemory_Write |
To:
| Code: | Dim Proc As New clsProcess_Access
Dim Poke As New clsMemory_Write |
@uniQ:
Move the command1 code into a timer. Add a timer for the form, change the interval to something low so it will be constantly writing the value, such as 10, or 1000 (Remember, the timer interval is in milliseconds.)
So your code would become (using the default timer name of Timer1):
| Code: | Private Sub Timer1_Timer()
Dim Proc As New clsProcess_Access
Dim Poke As New clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("Wolfteam.bin")
Poke.WriteLong dwProcId, &H342CC5A4, 6004
End Sub |
I suggest you don't declare the new classes inside the timer though, you should move them to the top of the form and use Set instead when the form loads. For example, with Minesweeper:
| Code: | Option Explicit
Private Proc As clsProcess_Access
Private Poke As clsMemory_Write
Private Peek As clsMemory_Read
Private Sub Form_Load()
Set Proc = New clsProcess_Access
Set Poke = New clsMemory_Write
Set Peek = New clsMemory_Read
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set Proc = Nothing
Set Poke = Nothing
Set Peek = Nothing
End Sub
Private Sub Timer1_Timer()
Dim Proc As New clsProcess_Access
Dim Poke As New clsMemory_Write
Dim dwProcId As Long
dwProcId = Proc.GetProcessIdByName("winmine.exe")
Poke.WriteByte dwProcId, &H1005194, &HA
End Sub |
_________________
- Retired. |
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Fri Nov 30, 2007 1:31 pm Post subject: |
|
|
wow thanks
But how do i turn it on and off
On =
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Off
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
??
PM : i test it nothing happent i give it up you help me with many things but i dont get it to work om sorry
maby for the last time you can make a Visual Basic Project with all the correct codes inside
so i can see whats the right thing
thanks
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Sat Dec 01, 2007 12:18 am Post subject: |
|
|
| Code: | Private Sub Command1_Click()
Timer1.Enabled = IIf(Timer1.Enabled = True, False, True)
End Sub |
Disable the timer in the properties on the right when you first add it to the form, add an interval of what ever you want, then use the above code.
_________________
- Retired. |
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Sat Dec 01, 2007 7:07 am Post subject: |
|
|
I dont get it to work
Can you make it for me plz
That timer ( so the value will freeze )
And the On and Off commands on the button
That will help alot :
|
|
| Back to top |
|
|
colo
Expert Cheater
 Reputation: 1
Joined: 09 Apr 2005
Posts: 111
|
| Posted: Sat Dec 01, 2007 9:51 am Post subject: |
|
|
mmm you can use this code and add timer 
Module1.bas
| Code: |
Option Explicit
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Public WinName As String
Public Declare Function GetClassName Lib "user32" _
Alias "GetClassNameA" _
(ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal classname As String, _
ByVal WindowName As String) As Long
Public Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" _
(ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, lpBuffer As Any, _
ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Sub WriteAInt(Address As Long, Value As Long, ByteLength As Long)
Dim hwnd As Long, classname As Long, pid As Long, phandle As Long
hwnd = FindWindow(vbNullString, WinName)
If (hwnd <> 0) Then
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle <> 0) Then
WriteProcessMemory phandle, Address, Value, ByteLength, 0&
End If
CloseHandle phandle
End If
End Sub |
Form1.frm
| Code: | 'Simply use Call WriteAInt(Address, Value, ByteLength) to poke an address.
Private Sub Command1_Click()
Call WriteAInt(&HC847BC, 99999999, 4)
End Sub
Private Sub Form_Load()
'The following Variable will hold the name of the game's window.
Module1.WinName = vbNullString
End Sub
End Sub |
learn tut -> VB6.0 and idea how make game trainer!!!!
|
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Sat Dec 01, 2007 9:58 am Post subject: |
|
|
| uniQ. wrote: | I dont get it to work
Can you make it for me plz
That timer ( so the value will freeze )
And the On and Off commands on the button
That will help alot : |
Did you bother to read what I posted? I gave you everything you needed. The source you just posted has nothing of what I just explained... reread through the thread and implement what is given to you. If you are unable to do that, you need to stop and start reading more about how to use VB6.
_________________
- Retired. |
|
| Back to top |
|
|
dnsi0
I post too much
![]() Reputation: 0
Joined: 04 Jan 2007
Posts: 2674
|
| Posted: Sat Dec 01, 2007 10:11 am Post subject: |
|
|
| Create a timer and jsut constantly set or just use a ce o.o
|
|
| Back to top |
|
|
Devolve
How do I cheat?
![]() Reputation: 0
Joined: 21 Sep 2007
Posts: 4
|
| Posted: Sat Dec 01, 2007 11:18 am Post subject: |
|
|
| How do you find the address of a specific weapon/object ?
|
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Sun Dec 02, 2007 11:39 am Post subject: |
|
|
Wiccaan
thanks for all you help
many people have seen that your quite skilled
with scripting
I dont get it to work so i get more lessons in vb6
so i think i can make a trainer with vb6 in 2009 -,-
Thanks all
|
|
| Back to top |
|
|
Devilizer
Master Cheater
![]() Reputation: 0
Joined: 22 Jun 2007
Posts: 451
|
| Posted: Sun Dec 02, 2007 12:16 pm Post subject: |
|
|
Seriously..
The addresses are patched, i got all new address, bleh check out gzn.
|
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Sun Dec 02, 2007 3:59 pm Post subject: |
|
|
lol bake a cake newb
this address are not patched i used it today
CyA
|
|
| Back to top |
|
|
Devilizer
Master Cheater
![]() Reputation: 0
Joined: 22 Jun 2007
Posts: 451
|
| Posted: Sun Dec 02, 2007 4:41 pm Post subject: |
|
|
Newb? Fuck you.
342CC5A4 is then the address for wp0
|
|
| Back to top |
|
|
uniQ.
Newbie cheater
![]() Reputation: 0
Joined: 19 Nov 2007
Posts: 13
|
| Posted: Mon Dec 03, 2007 4:05 pm Post subject: |
|
|
yo kid
listen
I use a other CheatEngine
Because the standard CheatEngine is patched by Wolfteam
So i use a cheat engine with a other source to use the address
dont call me noob
you really dont know what im capable to do
so watch your words 
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
