VB 2010 - Dead Island Riptide Trainer

[Bluespide]

Code:

1 2 3 4 5 6 7 8

Private Function getModulPtrByName(ByVal proc As Process, ByVal name As String) As IntPtr For i As Integer = 0 To proc.Modules.Count - 1 If proc.Modules(i).ModuleName.Equals(name) Then Return proc.Modules(i).BaseAddress End If Next Throw New Exception("module not found") End Function

---