[font=Hind, sans-serif]wolftü CSH+BİN Ayni Anda Aktif Etme[/FONT]
[font=Hind, sans-serif][font=Hind, sans-serif]Anlatim:[/FONT]
[/FONT]
[font=Hind, sans-serif]Timer Oluşturub Timeri True Yapip 2Kere timere tiklayin Bu Kodlari Yapiştirin[/FONT]
[font=Hind, sans-serif][font=Hind, sans-serif]Kod:[/FONT][/FONT]
[/FONT]
[font=Hind, sans-serif]Timer Oluşturub Timeri True Yapip 2Kere timere tiklayin Bu Kodlari Yapiştirin[/FONT]
[font=Hind, sans-serif][font=Hind, sans-serif]Kod:[/FONT][/FONT]
[font=Hind, sans-serif][font=Monaco, Consolas, Courier, monospace] Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)[/FONT]
[/FONT]
[font=Monaco, Consolas, Courier, monospace] For Each moz As System.Diagnostics.ProcessModule In p.Modules[/FONT]
[font=Monaco, Consolas, Courier, monospace] If moz.FileName.IndexOf("csh") <> -1 Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] cshh.Text = moz.BaseAddress.ToString[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Monaco, Consolas, Courier, monospace] Next[/FONT]
[font=Monaco, Consolas, Courier, monospace] Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)[/FONT]
[font=Monaco, Consolas, Courier, monospace] For Each moz As System.Diagnostics.ProcessModule In p.Modules[/FONT]
[font=Monaco, Consolas, Courier, monospace] If moz.FileName.IndexOf("bin") <> -1 Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] binn.Text = moz.BaseAddress.ToString[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Hind, sans-serif][font=Monaco, Consolas, Courier, monospace] Next[/FONT]
[/FONT]
[/FONT]
[font=Monaco, Consolas, Courier, monospace] For Each moz As System.Diagnostics.ProcessModule In p.Modules[/FONT]
[font=Monaco, Consolas, Courier, monospace] If moz.FileName.IndexOf("csh") <> -1 Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] cshh.Text = moz.BaseAddress.ToString[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Monaco, Consolas, Courier, monospace] Next[/FONT]
[font=Monaco, Consolas, Courier, monospace] Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)[/FONT]
[font=Monaco, Consolas, Courier, monospace] For Each moz As System.Diagnostics.ProcessModule In p.Modules[/FONT]
[font=Monaco, Consolas, Courier, monospace] If moz.FileName.IndexOf("bin") <> -1 Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] binn.Text = moz.BaseAddress.ToString[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Hind, sans-serif][font=Monaco, Consolas, Courier, monospace] Next[/FONT]
[/FONT]
Kod:
