Arkadaşlar şimdi bir tane always headshot checkboxumuz olsun bir tanede örnek olarak capslock.Editleyelim textini fontunu.Yaptıktan sonra always headshot normal istediğiniz gibi kodlayın ama
Kod:
On Error Resume Next
If CheckBox5.Checked = True Then
CheckBox6.Visible = False
timer1.start
Else
timer1.stop
CheckBox6.Visible = True
End If
bunun gibi checkbox visible komutu ekleyelim sizin always headshot ınız başka timer veya checkbox ise editleyin. timera ise
Kod:
İf checkbox5.checked = True Then
WriteLong("wolftü.bin", label3.Text + &H718A5, "1566441904") 'Always HeadShout On
Else
WriteLong("wolftü.bin", label3.Text + &H718A5, "1566490674") 'Always HeadShout Of
End If
Şimdi bu kod ne işe yarar derseniz always headshot çalıştığınızda tuşlu checkboxı saklayacak o yüzden checkbox hangisiyse editleyin.
Geçelim tuşluya.Bakın kod tamamen benimdir pointer ve value dışında mantık tamamen bana aittir.İnternette alıntı yapıcaklar elbet ama paylaştığım saate güne bakınız.
Caps lock olarak örnek vericeğim.
Caps lock checkbox kodu
Kod:
On Error Resume Next
If CheckBox6.Checked = True Then
head.Start()
CheckBox5.Visible = False
Else
head.Stop()
CheckBox5.Visible = True
End If
Head timerımın ismi kafa karıştırmasın timer 2 ise timer2 yapınız.Bunda ise capslock checkbox ını seçerseniz always headshot gizleniyor tabi kaldırınca tik işaretini geri geliyor.
Geçelim timer koduna
Kod:
If GetAsyncKeyState(Keys.CapsLock) Then
WriteLong("wolftü.bin", label3.Text + &H718A5, "1566441904") 'Always HeadShout On
Else
WriteLong("wolftü.bin", label3.Text + &H718A5, "1566490674") 'Always HeadShout Of
End If
Beyler daha bitmedi bu tuş kodunu tanıtmamız lazım.Bunu yapmak için formumuzun en üstüne çıkıp public class formunuz neyse işte onun altına enter ile boşluk açıp bu kodu giriniz.
Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Şuan işlemimiz bitti.Eğer benim gibi xigncode de açmak istemiyorsanız hileyi ve obj yi oyunda değilde otomatik yapmak istiyorsanız csh obj ve bin timerlerinin enabled ini true yapıp timerlere girip hepsinin en üstüne enterlayıp bu kodu yazalım
Örnek olarak csh verim
Kod:
On Error Resume Next
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
Label1.Text = moz.BaseAddress.ToString
End If
Next
Beyler bir teşekkürü esir görmeyiniz kesinlikle günceldir.