Uzman Üye
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]CSH:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]1 Tane Label Ekleyin İsmi [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]csh [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Olsun.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Form1 Load:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kodlama Şekli:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
OBJ:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]1 Tane Label Ekleyin İsmi [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]obj [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Olsun.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Form1 Load:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kodlama Şekli:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]İşine Yaradıysa [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif] Rep Çok Görme [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]1 Tane Label Ekleyin İsmi [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]csh [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Olsun.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Form1 Load:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
Kod:
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
csh.text = moz.BaseAddress.ToString
End If
Next
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kodlama Şekli:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
Kod:
WriteLong("wolftü.bin", csh.Text+&H123456, "value")
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]
OBJ:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]1 Tane Label Ekleyin İsmi [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]obj [/FONT][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Olsun.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Form1 Load:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
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
obj.text = moz.BaseAddress.ToString
End If
Next
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kodlama Şekli:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
Kod:
WriteLong("wolftü.bin", obj.Text+&H123456, "value")
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]İşine Yaradıysa [/FONT]