Güncel pointerları rica etsem?

GoldenPars · 9 May 2018

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 +

Lady Dimitrescu · 19 May 2018

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

Ara

Güncel pointerları rica etsem?

GoldenPars

MutemadiyenYT

Lady Dimitrescu

Benzer Konular