


![=]](/forum/images/emotions/=].gif)



mw3.SetByte(<name address here>, System.Text.Encoding.ASCII.GetBytes(TextBox1.Text & ControlChars.NullChar))
Process p = Process.GetProcessesByName("iw5mp")(0)
Dim moduleBase As Integer = &H0
For Each pm As ProcessModule In p.Modules
If pm.ModuleName = "steam_api.dll" Then
moduleBase = pm.BaseAddress
Exit For
End If
Next
Dim myAddress As Integer = moduleBase + <offset>
Public Function ReadInt(ByVal address As Integer) As Integer
Dim buffer As Byte(3)
Dim bytesRead As IntPtr
ReadProcessMemory(hProcess, new IntPtr(address), buffer, 4, bytesRead)
Return BitConverter.ToInt32(buffer)
End If
![=]](/forum/images/emotions/=].gif)

Public Sub Get_baseAddres(ByVal BaseName As String)
Dim moduleBase As Integer
For Each pm As ProcessModule In pArray(0).Modules
If pm.ModuleName = BaseName Then
moduleBase = pm.BaseAddress
Exit For
End If
Next
myAddress = moduleBase
End Sub