Nie działa kod na trainer

[dadajszen]

Witam mam taki kod :

 

Public Class Form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim p As Process = Process.GetProcessesByName("MineSweeper")(0)
            For Each MOZ As System.Diagnostics.ProcessModule In p.Modules
                Dim asd As String = TextBox1.Text
                If MOZ.FileName.IndexOf("minesweeper.exe+AAA38") <> -1 Then , asd) 
                MessageBox.Show(MOZ.BaseAddress.ToString)
                End If
            Next
        Catch


        End Try
    End Sub
End Class

 

Wywala 2 errory, chodzi mi o to żeby znalazło adres Bazowy oraz by dodało daną wartość podaną w TextBoxie, oraz mam pytanie czy taki kodzik zadziała ? Nie trzeba nigdzie offsetów dopisywać ? Same minesweeper.exe ? 

[BremLOL]

Spróbuj wpisać samo Minesweeper.exe. Osobiście nie znam się na tworzeniu cheatów, ale chyba tu chodzi o to by podać samą nazwę procesu gry.

[dadajszen]

        Dim SaperBase As Integer
        Dim Adres As Integer
        SaperBase = Process.GetProcessesByName("MineSweeper.exe")(0).Modules(0).BaseAddress
        Adres = SaperBase + &H4CECBC

Mam coś takiego i mam pytanie jak dodać do tego funkcje ktora dodaje np 1000 value ?