Cheat Engine

[thedebutent]

hello,
I want to know how to search a text with the value in vb.net?
thanks for your help
Here image below:

[Zanzer]

As you can see in your own screenshot, text is nothing more than an array of bytes.
76 00 61 00 75 00 6C 00 etc...
The text in your example is in a unicode format, hence the extra 00 bytes.
Simply convert your string into an array of bytes and use the various search methods provided all over this site and others.

[thedebutent]

here is my code:

[Public Class Form1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function ReadProcessMemory4 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Byte

Public Function FindPattern(ByVal Process As String, ByVal Pattern As Byte(), ByVal Mask As String) As Long
For dwCurrentAddress As Long = &H10000 To &H7FFFFFF Step &H1
If Compare(Process, dwCurrentAddress, Pattern, Mask) Then
Return dwCurrentAddress
End If
Next
Return -1
End Function
Public Function Compare(ByVal Process As String, ByVal Address As Long, ByVal Pattern As Byte(), ByVal Mask As String) As Boolean
Dim pTemp As Byte = Nothing
For i As Integer = 0 To Mask.Length - 1 Step 1
pTemp = ReadByte(Process, (Address + i), 4)
If pTemp = Nothing Then
Return False
End If
If Mask(i) = "x" And pTemp <> Pattern(i) Then
Return False
End If
Next
Return True
End Function

Public Function ReadByte(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Byte
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Function
End If
Dim hProcess As IntPtr = OpenProcess(&H10, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Function
End If
Dim hAddress As Integer
Dim vBuffer As Byte = Nothing

hAddress = Address
ReadProcessMemory4(hProcess, hAddress, vBuffer, nsize, 0)

Return vBuffer
End Function


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim Pattern As Byte() = Array.ConvertAll("76 00 61 00 75 00 6C 00 74 00 4C 00 65 00 76 00 65 00 6C 00 39 00 31".ToCharArray(), Function(c) CType(Asc(c), Byte))
Dim MonAddress As Long = FindPattern("Template.exe", Pattern, "xxxxxxxxxxxxxxxxxxxxxxx")
TextBox1.Text = MonAddress => no found

End Sub]
Did you find another solution faster for bytes "76 00 61 00 75 00 6C 00 74 00 4C 00 65 00 76 00 65 00 6C 00 39 00 31"?
Thank you beforehand[/code]

[thedebutent]

here is my code that works address :

[pkedpker]

[thedebutent]

hello,
here is my code change: