1) : 1 Adet Timer Ekleyin
2) : Oluşturduğunuz Timerin Enabledi True Yapın
3) : Ve timete Çift Tıklayarak Bu Kodu Yazın....
kod:
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
label3.Text = moz.BaseAddress.ToString
End If
Next
NOT: Kodun Üstündeki On error Resume Next Yazısı Dursun Yoksa Oyundan Atar
2) : Oluşturduğunuz Timerin Enabledi True Yapın
3) : Ve timete Çift Tıklayarak Bu Kodu Yazın....
kod:
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
label3.Text = moz.BaseAddress.ToString
End If
Next
NOT: Kodun Üstündeki On error Resume Next Yazısı Dursun Yoksa Oyundan Atar
İşe Yaradı