wolftü Takla Kodlama Tuş İle Çalıştırma
- Konuyu başlatan ART Hack
- Başlangıç tarihi
- Durum
Lazım Olanlar : timer1, timer2 WritePointerInteger NOT: timer2 enabled = true ınterval = 1
kardeş public class form1'in altına bu kodu gir : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer1'ede bunu :
If GetAsyncKeyState(Keys.F2) Then
Timer2.Start()
Else
Timer2.Stop()
End If
Son Olarak Timer2 yede bu kodu gir :
Dim hack As Integer = obj.Text + &H1BD65
WriteLong("wolftü.bin", hack, "378215541")
tuşu (Keys.F2) Yerinden değiştirebilirsin F2 yerine mesela P ama harf BÜYÜK OLCAK
kardeş public class form1'in altına bu kodu gir : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer1'ede bunu :
If GetAsyncKeyState(Keys.F2) Then
Timer2.Start()
Else
Timer2.Stop()
End If
Son Olarak Timer2 yede bu kodu gir :
Dim hack As Integer = obj.Text + &H1BD65
WriteLong("wolftü.bin", hack, "378215541")
tuşu (Keys.F2) Yerinden değiştirebilirsin F2 yerine mesela P ama harf BÜYÜK OLCAK
ILoveMH' Alıntı:Lazım Olanlar : timer1, timer2 WritePointerInteger NOT: timer2 enabled = true ınterval = 1
kardeş public class form1'in altına bu kodu gir : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer1'ede bunu :
If GetAsyncKeyState(Keys.F2) Then
Timer2.Start()
Else
Timer2.Stop()
End If
Son Olarak Timer2 yede bu kodu gir :
Dim hack As Integer = obj.Text + &H1BD65
WriteLong("wolftü.bin", hack, "378215541")
tuşu (Keys.F2) Yerinden değiştirebilirsin F2 yerine mesela P ama harf BÜYÜK OLCAK
usta bu kodları nereye hangi dosyaya yazıcaz. yardım edermisiniz.
- Konuyu başlatan
- #5
Eyw AdamsınILoveMH' Alıntı:Lazım Olanlar : timer1, timer2 WritePointerInteger NOT: timer2 enabled = true ınterval = 1
kardeş public class form1'in altına bu kodu gir : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer1'ede bunu :
If GetAsyncKeyState(Keys.F2) Then
Timer2.Start()
Else
Timer2.Stop()
End If
Son Olarak Timer2 yede bu kodu gir :
Dim hack As Integer = obj.Text + &H1BD65
WriteLong("wolftü.bin", hack, "378215541")
tuşu (Keys.F2) Yerinden değiştirebilirsin F2 yerine mesela P ama harf BÜYÜK OLCAK
Bu Arada Value Ve Pointer Güncelmi ?
GetAsyncKeyState Yazan Yerde Error Simgesi Var Ne Yapabilirim? :huh:ILoveMH' Alıntı:Lazım Olanlar : timer1, timer2 WritePointerInteger NOT: timer2 enabled = true ınterval = 1
kardeş public class form1'in altına bu kodu gir : Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer1'ede bunu :
If GetAsyncKeyState(Keys.F2) Then
Timer2.Start()
Else
Timer2.Stop()
End If
Son Olarak Timer2 yede bu kodu gir :
Dim hack As Integer = obj.Text + &H1BD65
WriteLong("wolftü.bin", hack, "378215541")
tuşu (Keys.F2) Yerinden değiştirebilirsin F2 yerine mesela P ama harf BÜYÜK OLCAK
- Konuyu başlatan
- #8
ILoveMH' Alıntı:
Aynen Tamam işi Şimdi Çözdüm (Ah Dikkatsiz Kafam)ILoveMH' Alıntı:
Peki Buton Veya Label Ekleyecekmiyiz?
ILoveMH' Alıntı:obj cekilmemis o yüzden hata veriyor
bu arada ekran alıntı aracınımı kullanıyon ?
Bağlantıları görmek için lütfen
Giriş Yap
Bu resimdede Gördüğün gibi bypass kodu bu olsa gerek. eğer buysa ben bunu fazladan bir Timer ekledim Bu koduyazmak için. Keşke Bir Video Lu Anlatsan
ILoveMH' Alıntı:
Gerçekten Çekeceksen Allah RAzı Olsun. ''Taklayı Bir tuş ile Aktif Etme'' diye bir video çekersen gerçekten çok sevinirim.
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)ILoveMH' Alıntı:
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
- Durum
Benzer Konular
