[Help]function problem

k, what im using is:

at the top of my module:

Code:

Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

function:

Code:

    public Function checkMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
        Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
        If iw4mpLookUp.Length = 0 Then
            End
        End If
        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)

        ReadProcessMemory(processHandle, Address, Value, Bytes, Nothing)
        My.Settings.address = Value
        My.Settings.check = address
        CloseHandle(processHandle)

        Return Nothing
    End Function

what i was trying to get it to do, is pull the xp amount and save the address and value to a setting.

then at a button click on my form, this:

Code:

For Each exp As String In My.Settings.xp
            Dim address As String
            address = My.Settings.check
            checkMemory()
            If My.Settings.check = exp And address = &H1B2C89C Then
                Select Case txtequip1.Text
                    Case "Frag Grenade - 4"
                        If value <= 3600 Then
                            memoryh4x(&H1B2C89C, 3600, 4)
                        End If
                End select
           End If
end sub

can anybody explain why this is not working?

Have you checked by debugging line-by-line your code to see if it works? (This means setting a breakpoint, messagbox, debug output from line to line to see if they execute as you expect)

yea, its the function.
if i get that to work properly, then the rest will work. just need help with getting it to do what its ment to do

Well you used:

Code:

checkMemory()

but didn't enter any parameters...

Code:

(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)

yea..
im trying to get it...not set it...
if i enter parameters, it sets them, so what im trying to do becomes pointless

Add the .dll in the attachment as reference.

V1.1 has fixxed memory reading + an inject function.

Not gonna release it officially before I have something else added.

[php]Imports MHacking.BlubbsDll[/php]

[php]Private mwhack as new memoryhacking("iw4mp", "cshell.dll")

Private Sub cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click
msgbox(mwhack.ReadMemory(&H1B2C89C))
End Sub
[/php]

VirusTotal - Free Online Virus, Malware and URL Scanner

MemHack V1.1.rar - Jotti's malware scan

Attachment approved, but you could just link him to the thread, saves space

You didn't read my post.

The library in the attachment isn't he one I released.

The one in the attachment has an inject function and fixxed reading memory.

k, it reads, but all its reading is 0 when the value 2516000 is ment to be showing.
tested the address with CE and another i use, and both also say 2516000.

Post your current code.

imports area:

Code:

Imports MemHack.BlubbsDll

class area:

Code:

Private mwhack As New MemoryHacking("iw4mp", "cshell.dll")

button click:

Code:

Private Sub equip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim address As String = "&H1B2C89C"
        Dim value As Integer
        value = mwhack.ReadMemory(&H1B2C89C)
        If value < 800300 Or value > 3600 And address = &H1B2C89C Then
            Select Case txtequip.Text
                Case "Frag Grenade - 4"
                    If address <= 3600 Then
                        memoryh4x(&H1B2C89C, 3600, 4)
                    End If
                 end select
        end if
end sub

if i add a msgbox to where its being used in the button click area, it just comes up as "0"

[php]Private Sub equip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim address As String = &H1B2C89C
Dim value As long = mwhack.readmemory(&H1B2C89C)
msgbox(value)
If value < 800300 Or value > 3600 And address = &H1B2C89C Then
if txtequip.text = "Frag Grenade - 4"
If address <= 3600 Then
memoryh4x(&H1B2C89C, 3600, 4)
End If
end end if
end if
end sub[/php]

Is it for AlterIW or Steam?

this is for steam

01234567 = &H1234567
01AA11AA = &H1AA11AA
06472777 = &H6472777

Basically replace the zeros at the start with &H

honestly thought &H1B2C89C was starting with an &H instead of a 0...

[Help]function problem

Post a Reply

Similar Threads

Tags for this Thread