Güncel pointerları rica etsem?

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
MutemadiyenYT
Onaylı Üye
Katılım
5 Kas 2016
Mesajlar
105
Tepki puanı
15
Ödüller
6
Yaş
26
9 HİZMET YILI
Arkadaşlar rica etsem woltu güncel pointerları bana verebilirmisiniz? Forum üzerinde güncel yazılan bir pointer konusundaki pointerları denedim sadece name esp ve sınırsız mermi çalışıyor diğerleri çalışmıyor. Lütfen beyler +
 
Ultra Üye
Katılım
6 May 2018
Mesajlar
2,369
Çözümler
1
Tepki puanı
591
Ödüller
7
8 HİZMET YILI
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("csh") <> -1) Then

Me.Label1.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("bin") <> -1) Then

Me.Label2.Text = current.BaseAddress.ToString

End If

If (current.FileName.IndexOf("obj") <> -1) Then

Me.Label3.Text = current.BaseAddress.ToString

End If

Loop

Finally

If TypeOf enumerator Is IDisposable Then

TryCast(enumerator, IDisposable).Dispose()

End If

End Try

Şimdi 1 Tane Timer Ekle Ve Timere Tıklayıp Enablesini True Yap

On Error Resume Next

Label1= CSH

Label2= Bin

Label3= OBJ
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst