Float 1 Offset

Posts 1–3 of 3 · Page 1 of 1
Float 1 Offset
Here's my code.

Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
Try
WriteDMAInteger("TubeTycoon",&hTubeTycoon.exe+6B08 4, FlatTextBox1.Text)
Catch

End Try
End Sub

I get a syntax error on the &h in &hTubeTycoon.exe+6B084
Quote Originally Posted by Sasuke Uchiha! View Post
Here's my code.

Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
Try
WriteDMAInteger("TubeTycoon",&hTubeTycoon.exe+6B08 4, FlatTextBox1.Text)
Catch

End Try
End Sub

I get a syntax error on the &h in &hTubeTycoon.exe+6B084
Is hTubeTycoon.exe any kind of type?
Is it possible to declare Variables in VB which contains a dot?

You should replace hTubeTycoon.exe with the Module Address Memory Entry Point of the Process.
Quote Originally Posted by Sasuke Uchiha! View Post

WriteDMAInteger("TubeTycoon",&hTubeTycoon.exe+6B08 4, FlatTextBox1.Text)
Example:

I'll do mine, you learn. There is 2 way to do it.

First and easy:
Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WriteDMAInteger("TubeTycoon", &H7566B8, Value)
    End Sub
Second way:
Code:
    Class uTorrent
        Public Shared exe As Integer = &H400000  '(uTorrent.exe + &H3566B8 = &H7566B8)
    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WriteDMAInteger("TubeTycoon", uTorrent.exe + &H3566B8, Value)
    End Sub
Another problem with you code is probably your memory editing function finds "TubeTycoon" process over and over again. If you try to edit memory too fast it will lag. You should set a global handle for process and use it all functions.

Code:
Public Class Form1

    Private Declare Function WriteProcessMemory4Me Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Const PROCESS_ALL_ACCESS = &H1F0FF
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

    Public Shared hProcess As IntPtr

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim gamewindow As Process() = Process.GetProcessesByName("TubeTycoon")
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, gamewindow(0).Id)
        WriteInteger(hProcess, &HmyAddress, myValue)

    End Sub

    Public Sub WriteInteger(ByVal Process As IntPtr, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 1)
        WriteProcessMemory4Me(Process, Address, CInt(Value), nsize, 0)
    End Sub
End Class

Quote Originally Posted by MikeRohsoft View Post
Is hTubeTycoon.exe any kind of type?
Is it possible to declare Variables in VB which contains a dot?

You should replace hTubeTycoon.exe with the Module Address Memory Entry Point of the Process.
the "&h" before TubeTycoon.exe means hex my friend
Posts 1–3 of 3 · Page 1 of 1

Post a Reply

Similar Threads

Tags for this Thread

None

Need help?