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
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
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
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
Kod:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Kod:
On Error Resume Next
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