Option Explicit
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
        Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2
  
  
Private Sub Timer1_Timer()
    Dim i As Integer
      
    For i = 1 To 1
        If GetAsyncKeyState(i) = -32767 Then
            mouse_event MOUSEEVENTF_LEFTDOWN, 0, 10, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 10, 0, 0
        End If
    Next
End Sub
  
Private Sub Form_Load()
    ' intervalo para el timer
    Timer1.Interval = 50
End Sub

Public 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

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim Ipbaseaddress As Integer = &H1874D00
            Dim IpBuffer As Integer = TextBox1.Text
            LblVida.Text = value
            ReadProcessMemory(hprocess(0).Handle, Ipbaseaddress, value, 4, 0)
        Catch ex As Exception
        End Try
    End Sub

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim Ipbaseaddress As Integer = &H1874D00
            Dim IpBuffer As Integer = TextBox1.Text
            ReadProcessMemory(hprocess(0).Handle, Ipbaseaddress, value, 4, 0)
        Catch ex As Exception
            MsgBox("Engine for Game")
        End Try
    End Sub
End Class

Public Class Form1
    Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hprocess As Integer, ByVal Address _
                                                                                           As Integer, ByRef Value As Integer, ByVal Size As Integer, ByRef BytesWritten As Integer) As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim address As Integer = &H2A4D00
            Dim value As Integer = TextBox1.Text
            LblVida.Text = value
            WriteProcessMemory(hprocess(0).Handle, address, value, 4, 0)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Try
            Dim name As String = "Tutorial-i386"
            Dim hprocess As Process() = Process.GetProcessesByName(name)
            Dim address As Integer = &H2A4D00
            Dim value As Integer = TextBox1.Text
            WriteProcessMemory(hprocess(0).Handle, address, value, 4, 0)
        Catch ex As Exception
            MsgBox("Engine for Game")
        End Try
    End Sub
End Class