01.Public Class Form1
02. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
03. 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)
04. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
05.
06. End Sub
07.
08. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
09. Dim name As String = "zuma"
10. Dim hProcess As Process() = Process.GetProcessesByName(name)
11. Dim address As Integer = &H35480C0
12. Dim currentscore As Integer
13. ReadProcessMemory(hProcess(0).Handle, address, currentscore, 4, 0)
14. Label1.Text = currentscore
15. End Sub
16.
17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
18. Dim name As String = "zuma"
19. Dim hProcess As Process() = Process.GetProcessesByName(name)
20. Dim address As Integer = &H35480C0
21. Dim value As Integer = 10009999
22. WriteProcessMemory(hProcess(0).Handle, address, value, 4, 0)
23. End Sub
24.End Class
