[font=Roboto, Tahoma, Arial, sans-serif]ANLATIM:[/FONT]
[font=Roboto, Tahoma, Arial, sans-serif]1. 1 tane 'Button' ve 2 tane label koyuyoruz[/FONT]
2. bunların ismini dilediğiniz gibi değiştirin
3. 'Button'a çift tıklayıp altta verdiğim kodu yapıştırın
4. Doya Doya kullanın
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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
Label1.Text = moz.BaseAddress.ToString
End If
Next
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next 
