Dim enumerator As IEnumerator
Dim process As Process = Process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.Label2.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator,IDisposable).Dispose
End If
WritePointerInteger("wolftü.bin", Label2.Text + &H277510, "1", &H14, &H120, &H464)
End Try