Emektar Üye
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif]Kod:[/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font=Verdana, Arial, sans-serif]Arkadaşlar hepsini bir arada kodlarsanız obj olduğu için oyun içinde acılmalıdır[/FONT][/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font=Verdana, Arial, sans-serif]yani butona kodlayın butonu oyun içinde aktif edin yada form loada kodlayın hileyi oyun içinde açın size kalmış iyi günler[/FONT][/FONT]
Kod:
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.cshye ait label.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.bine ait label.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("obj") <> -1) Then
Me.objye ait label.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try
POİNTERLER[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font=Verdana, Arial, sans-serif]Arkadaşlar hepsini bir arada kodlarsanız obj olduğu için oyun içinde acılmalıdır[/FONT][/FONT]
[font='Segoe UI', 'Trebuchet MS', 'Helvetica Neue', Vedrana, Arial, sans-serif][font=Verdana, Arial, sans-serif]yani butona kodlayın butonu oyun içinde aktif edin yada form loada kodlayın hileyi oyun içinde açın size kalmış iyi günler[/FONT][/FONT]
