Results 1 to 1 of 1
  1. #1
    Ell0ll
    Ell0ll is offline
    Guest
    Join Date
    2012 Dec
    Posts
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    Hi every one need help in VB 2010

    Hi every one i need to do something in this code vb 2010
    this is the module
    Code:
    'VB.NET Module
    'Author : Cless
    'How to use Read/Write Pointer
    'Example Read
    '       Me.Text = ReadPointerInteger(Game exe name, &HPointer,&HOffset).ToString()
    '
    '       Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540).ToString()
    '       Or
    '       Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()
    'Example Write
    '       WritePointerInteger(Game exe name,&HPointer,Value,&HOffset)
    '
    '       WritePointerInteger("gta_sa",&HB71A38,1000,&H540)
    '       Or
    '       WritePointerInteger("gta_sa",&HB71A38,1000,&H540, &H544)
    
    Module Trainer
        Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
        Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
        Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single
        Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double
    
        Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte
        Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer
        Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single
        Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double
    
        Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte
            Dim Value As Byte
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    ReadMemoryByte(Handle, Address, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer
            Dim Value As Integer
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    ReadMemoryInteger(Handle, Address, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single
            Dim Value As Single
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    ReadMemoryFloat(Handle, Address, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double
            Dim Value As Double
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    ReadMemoryByte(Handle, Address, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte
            Dim Value As Byte
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    ReadMemoryByte(Handle, Pointer, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer
            Dim Value As Integer
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    ReadMemoryInteger(Handle, Pointer, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single
            Dim Value As Single
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    ReadMemoryFloat(Handle, Pointer, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double
            Dim Value As Double
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    ReadMemoryDouble(Handle, Pointer, Value)
                End If
            End If
            Return Value
        End Function
    
        Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte)
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    WriteMemoryByte(Handle, Address, Value)
                End If
            End If
        End Sub
    
        Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer)
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    WriteMemoryInteger(Handle, Address, Value)
                End If
            End If
        End Sub
    
        Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single)
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    WriteMemoryFloat(Handle, Address, Value)
                End If
            End If
        End Sub
    
        Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double)
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    WriteMemoryDouble(Handle, Address, Value)
                End If
            End If
        End Sub
    
        Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    WriteMemoryByte(Handle, Pointer, Value)
                End If
            End If
        End Sub
    
        Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    WriteMemoryInteger(Handle, Pointer, Value)
                End If
            End If
        End Sub
    
        Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    WriteMemoryFloat(Handle, Pointer, Value)
                End If
            End If
        End Sub
    
        Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())
            If Process.GetProcessesByName(EXENAME).Length <> 0 Then
                Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
                If Handle <> 0 Then
                    For Each I As Integer In Offset
                        ReadMemoryInteger(Handle, Pointer, Pointer)
                        Pointer += I
                    Next
                    WriteMemoryDouble(Handle, Pointer, Value)
                End If
            End If
        End Sub
    End Module
    when i started using this code
    this form appeared
    Code:
    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
        Inherits System.Windows.Forms.Form
    
        'Form overrides dispose to clean up the component list.
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub
    
        'Required by the Windows Form Designer
        Private components As System.ComponentModel.IContainer
    
        'NOTE: The following procedure is required by the Windows Form Designer
        'It can be modified using the Windows Form Designer.  
        'Do not modify it using the code editor.
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.Button1 = New System.Windows.Forms.Button()
            Me.Button2 = New System.Windows.Forms.Button()
            Me.TextBox1 = New System.Windows.Forms.TextBox()
            Me.TextBox2 = New System.Windows.Forms.TextBox()
            Me.SuspendLayout()
            '
            'Button1
            '
            Me.Button1.Location = New System.Drawing.Point(103, 137)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(68, 35)
            Me.Button1.TabIndex = 0
            Me.Button1.Text = "Button1"
            Me.Button1.UseVisualStyleBackColor = True
            '
            'Button2
            '
            Me.Button2.Location = New System.Drawing.Point(108, 197)
            Me.Button2.Name = "Button2"
            Me.Button2.Size = New System.Drawing.Size(62, 36)
            Me.Button2.TabIndex = 2
            Me.Button2.Text = "Button2"
            Me.Button2.UseVisualStyleBackColor = True
            '
            'TextBox1
            '
            Me.TextBox1.Location = New System.Drawing.Point(96, 31)
            Me.TextBox1.Name = "TextBox1"
            Me.TextBox1.Size = New System.Drawing.Size(87, 20)
            Me.TextBox1.TabIndex = 3
            '
            'TextBox2
            '
            Me.TextBox2.Location = New System.Drawing.Point(96, 88)
            Me.TextBox2.Name = "TextBox2"
            Me.TextBox2.Size = New System.Drawing.Size(86, 20)
            Me.TextBox2.TabIndex = 4
            '
            'Form1
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(284, 262)
            Me.Controls.Add(Me.TextBox2)
            Me.Controls.Add(Me.TextBox1)
            Me.Controls.Add(Me.Button2)
            Me.Controls.Add(Me.Button1)
            Me.Name = "Form1"
            Me.Text = "Form1"
            Me.ResumeLayout(False)
            Me.PerformLayout()
    
        End Sub
        Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents Button2 As System.Windows.Forms.Button
        Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
        Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    End Class
    after that i added this code so i can use it
    Code:
        Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = ReadPointerInteger("game.dat", &H1DF288, &H33E).ToString()
        End Sub
    
        Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    TextBox2.Text = WritePointerInteger("game.dat",&HB71A38,1000,&H33E)
        End Sub
    now i will explain my problem
    when i use this module it always give me 0 not the number in Cheat engine

    this program work fine with any game if the extension is exe but it is not work cuz the game is .dat
    when i tried game with exe extension i wrote it without the extension and it work fine but when i try the game that i want it work it is dat not exe that is why it always give me 0 i do not know why this happen

    another problem when i try this program on game with exe extension i cant use button2 that write to the memory it give me error

    sorry about bad english i hope some one help me with this

Similar Threads

  1. [Release] Aika [iTF] Auto [12/11/2010]
    By [iTF]Tanker in forum Aika Bots, Hacks, Cheats
    Replies: 90
    Last Post: 2011-12-18, 09:15 PM
  2. Mmorpg 2010
    By jkp in forum Games Lounge
    Replies: 2
    Last Post: 2010-12-29, 09:06 AM
  3. Forum Update 2010-11-29
    By Dwar in forum Rules/Announcements
    Replies: 6
    Last Post: 2010-12-01, 02:23 PM
  4. xenocode virtualization 2010 Unpacking
    By fleex in forum Programming Tutorials
    Replies: 0
    Last Post: 2010-11-29, 04:08 PM
  5. News 2010-07-22
    By Dwar in forum Rules/Announcements
    Replies: 0
    Last Post: 2010-11-29, 04:02 PM
Visitors found this page by searching for:
Nobody landed on this page from a search engine, yet!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •