On Error Resume Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
csh.Text = moz.BaseAddress.ToString
End If
Next
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
obj.Text = moz.BaseAddress.ToString
End If
Next
Dim y As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In y.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
bin.Text = moz.BaseAddress.ToString
End If
Next