[iPwned]

I am getting an Overflow error, And I really don't understand why I am getting it.

Code

//This is your offset, 0x432
Dim bSpotted As Integer = &H432

//This is our function
Private Function leet()
    Do
        For i As Integer = 1 To 64

            //This is an entity you read
            Dim dwEntity As UInteger
            ReadProcessMemory(hProcess, CByte(dwClient + dwEntityList + (&H10 * i)), dwEntity, 4, 0)
            
            //Entity not found?! SKIP!
            If Not dwEntity Then
                Continue For
            End If
            
            //Set target spotted, write 1
            WriteProcessMemory(hProcess, CByte(dwEntity + bSpotted), 1,  1, 0)
        Next i
    Loop
End Sub

thanks for helping! 🤝

[Only3]

CByte max value is 255
also check that u use the api with the right args

[iPwned]

I am using this:

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

And for WPM:

Code

Public Declare Function WriteProcessMemory Lib "kernel32" ( _
    ByVal hProcess As Integer, _
    ByVal lpBaseAddress As Integer, _
    ByVal lpBuffer As String, _
    ByVal nSize As Integer, _
    ByRef lpNumberOfBytesWritten As Integer) As Integer

[iPwned]

? anyone able to help me? thanks _)

[The-One]

https://msdn.microsoft.com/en-us/library/s2dy91zy.aspx

CByte
Byte Data Type (Visual Basic)
0 through 255 (unsigned);

Check the parameter you are using the byte in, it is not of the type byte. What type is it? Check the website I posted to find out that type ranges from -2,147,483,648 through 2,147,483,647.

[Nervo]

It looks like you have no idea what you're doing. The second param is an integer, so why converting to byte? Btw. I believe your bSpotted offset is wrong.

csgo hackz copypasta