Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
'37
Dim string1 As Long
Dim string2 As Integer
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B89C)
Call VBPNBQKCVD(string2, 569900, 4)
Catch
End Try
End Sub
But my Prestige isn't:
Code:
Private Sub Prestige4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prestige4.Click
'4
Dim string1 As Long
Dim string2 As Integer
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B8A4)
Call VBPNBQKCVD(string2, 4, 4)
Catch
End Try
End Sub
All I did was copy the whole thing from first, then edited the address(and I have checked it over and over), changed the value. No error, but it doesn't work in-game. Any suggestions?
Ollydbg
Also heard that Ollydbg can find addresses. I find the iw4mp module>search for all referenced text strings>search for "prestige"(as an example).
It says in the left area that the address is 00*******, but the real one is 01B2B** ("*" mean's i can't remember). So the addresses are different. Anyone knows how? Hell_demon mentioned something about MOV[x].y, but didn't elaborate.
One of those addresses is probably the value. Only assuming this based on my knowledge and assembly and from what you said Hell_Demon gave you,
Code:
mov [x],y
In this case, "x" is the address and the "mov" instruction is moving the contents of "y" into "x". The brackets is like the dereference operator in C++, sorry I can't explain it in VB since I don't know anything about it.
If the actual value of "x" is an address, it will basically take whatever is in "x", and go to that location in memory and, then move whatever "y" is into that location.
I think Hell_Demon was trying to tell you that you have to edit an instruction similar to that, I'm not sure.
Ehh, this is more assembly than it is VB, if this is against the rules you guys can delete this.
Well, I need my 1st question answered, and the Ollydbg is more in interest of finding addresses that I can use in my VB trainer.
Thanks for your thoughts anyway.
This is really a question for Hell, Why or maybe warpath , Or anyone else who is more familiar with this then the VB section Probably is, I will allow it, But you may want to VM or PM one of them and point them to this thread.
As far as the VB side goes, the code itself is flawless.
Originally Posted by NextGen1
This is really a question for Hell, Why or maybe warpath , Or anyone else who is more familiar with this then the VB section Probably is, I will allow it, But you may want to VM or PM one of them and point them to this thread.
As far as the VB side goes, the code itself is flawless.
Ugh. It's not working and I need it working >.< ()
But um, yea, Hell_demon rarely responds, and he talks very complicated, so I'll go give WPS a link to this thread.
Originally Posted by Bluthera
...But um, yea, Hell_demon rarely responds, and he talks very complicated...
That's why he's my favourite.
Anyways, I'd assume it would be something with the handling of the address (I.E. Perhaps you'd handle the Prestige address as a boolean, and the rank hack as an integer, I wouldn't know though: I don't hack COD)
The code seems to be good though.
Dim bla bla...declared at the top...
Code:
Private Sub pr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pr2.Click
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B8A4)
Call OIBGHGEJUO(string2, 2, 4)
Catch
MsgBox(ErrorToString)
End Try
End Sub
Works fine.
Managed to get the Prestige problem solved. I just removed the Try, Catch, End Try. Thanks Blubb for telling me to put that in the first place