Kod:
Private Sub DeimosCheckbox1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox1.Click
On Error Resume Next
If DeimosCheckbox1.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H3A4BC4, "2268606836") 'Name Esp Red On
End If
If DeimosCheckbox1.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H3A4B84, "2268606837") 'Name Esp Of
End If
End Sub
Private Sub DeimosCheckbox2_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox2.Click
On Error Resume Next
If DeimosCheckbox2.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H33ED88, "8946703") 'Taç Gizleme ON
End If
If DeimosCheckbox2.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H33ED88, "8946959") 'Taç Gizleme OFF
End If
End Sub
Private Sub DeimosCheckbox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox3.Click
On Error Resume Next
If DeimosCheckbox3.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H13D2A0, "4252861286") 'İnfinite Ammo On
End If
If DeimosCheckbox3.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H13D2A0, "4236084070") 'İnfinite Ammo Off
End If
End Sub
Private Sub DeimosCheckbox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox4.Click
On Error Resume Next
If DeimosCheckbox4.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H115B83, "2654543220") 'No Fall Damage On
End If
If DeimosCheckbox4.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H115B83, "2654543221") 'No Fall Damage Of
End If
End Sub
Private Sub DeimosCheckbox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox5.Click
On Error Resume Next
If DeimosCheckbox5.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H83B43, "2665025140") ' No Recoil On
End If
If DeimosCheckbox5.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H83B43, "2665025141") 'No Recoil Off
End If
End Sub
Private Sub PictureBox2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub DeimosCheckbox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox6.Click
On Error Resume Next
If DeimosCheckbox6.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H129F3D, "1301090420") 'No Spread On
End If
If DeimosCheckbox6.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H129F3D, "1301090421") 'No Spread Off
End If
End Sub
Private Sub DeimosCheckbox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox7.Click
On Error Resume Next
If DeimosCheckbox7.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &HC540C, "2257258100") 'No Reload On
End If
If DeimosCheckbox7.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &HC540C, "2257258101") 'No Reload Of
End If
End Sub
Private Sub DeimosCheckbox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox8.Click
On Error Resume Next
If DeimosCheckbox8.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H192D10, "3071218292") 'No Weapon Sp On
End If
If DeimosCheckbox8.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H192D10, "3071218293") 'No Weapon Sp Of
End If
End Sub
Private Sub DeimosCheckbox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox9.Click
On Error Resume Next
If DeimosCheckbox9.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &HF7A04, "3897951979") 'Respawn Where Died On
End If
If DeimosCheckbox9.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &HF7A04, "3897951860") 'Respawn Where Died Of
End If
End Sub
Private Sub DeimosCheckbox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox10.Click
On Error Resume Next
If DeimosCheckbox10.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H46A3B4, "1072064102") 'Jump x2
End If
If DeimosCheckbox10.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H46A3B4, "1062165545") 'Jump Off
End If
End Sub
Private Sub DeimosCheckbox24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox24.Click
On Error Resume Next
If DeimosCheckbox24.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H199E7B, "2341280884") 'Wolfview x2.0 On
End If
If DeimosCheckbox24.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H199E7B, "2341280885") 'Wolfview x2.0 Of
End If
End Sub
Private Sub DeimosCheckbox23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox23.Click
On Error Resume Next
If DeimosCheckbox23.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H7300C, "2665032052") 'Ctrl Underground On
End If
If DeimosCheckbox23.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H7300C, "2665032053") 'Ctrl Underground Off
End If
End Sub
Private Sub DeimosCheckbox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox11.Click
On Error Resume Next
If DeimosCheckbox11.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &46A3B4, "25920527") 'Jump Speed On
End If
If DeimosCheckbox11.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H46A3B4, "1062165545") 'Jump Off
End If
End Sub
Private Sub DeimosCheckbox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox12.Click
On Error Resume Next
If DeimosCheckbox12.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H1A746C, "1574503796") 'Rapid Fire On
End If
If DeimosCheckbox12.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H1A746C, "1574503797") 'Rapid Fire Of
End If
End Sub
Private Sub DeimosCheckbox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox13.Click
On Error Resume Next
If DeimosCheckbox13.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H59858, "1574503796") 'Early Respawn On
End If
If DeimosCheckbox13.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H59858, "1574503797") 'Early Respawn Of
End If
End Sub
Private Sub DeimosCheckbox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox14.Click
On Error Resume Next
If DeimosCheckbox14.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H110916, "845022581") 'Tutunma On
End If
If DeimosCheckbox14.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H110916, "845022580") 'Tutunma Off
End If
End Sub
Private Sub DeimosCheckbox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox15.Click
On Error Resume Next
If DeimosCheckbox15.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H5909D, "28312949") 'Kurt Koşusu On
End If
If DeimosCheckbox15.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H5909D, "28312948") 'Kurt Koşusu Off
End If
End Sub
Private Sub DeimosCheckbox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox16.Click
On Error Resume Next
If DeimosCheckbox16.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H1123D2, "2391618677") 'Move Speed On
End If
If DeimosCheckbox16.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H1123D2, "2391618676") 'Move Speed Off
End If
End Sub
Private Sub DeimosCheckbox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox17.Click
On Error Resume Next
If DeimosCheckbox17.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H112949, "3968011381") ' Wolf Dash GL On
End If
If DeimosCheckbox17.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H112949, "3968011380") ' Wolf Dash GL Off
End If
End Sub
Private Sub DeimosCheckbox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox18.Click
On Error Resume Next
If DeimosCheckbox18.Checked = True Then
WritePointerInteger("wolftü.bin", Label1.Text + &H1B808C, "19601", &H28) 'Wolf Ability
End If
If DeimosCheckbox18.Checked = False Then
WritePointerInteger("wolftü.bin", Label1.Text + &H1B808C, "19611", &H40) 'Wolf Ability
End If
End Sub
Private Sub DeimosCheckbox19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox19.Click
On Error Resume Next
If DeimosCheckbox19.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H115B80, "5") 'No Gravity On
End If
If DeimosCheckbox19.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H115B80, "1967244534") 'No Gravity Of
End If
End Sub
Private Sub DeimosCheckbox20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox20.Click
On Error Resume Next
If DeimosCheckbox20.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H1972EC, "2665023604") 'Axis Hack On
End If
If DeimosCheckbox20.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H1972EC, "2665023605") 'Axis Hack of
End If
End Sub
Private Sub DeimosCheckbox21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox21.Click
On Error Resume Next
If DeimosCheckbox21.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H22311A, "98110580") 'Speed On
End If
If DeimosCheckbox21.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H22311A, "98110581") 'Speed Of
End If
End Sub
Private Sub DeimosCheckbox22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox22.Click
On Error Resume Next
If DeimosCheckbox22.Checked = True Then
WriteLong("wolftü.bin", Label1.Text + &H387BAC, "36603151") 'Bomb Speed On
End If
If DeimosCheckbox22.Checked = False Then
WriteLong("wolftü.bin", Label1.Text + &H387BAC, "36340751") ' Bomb Speed Off
End If
End Sub
Private Sub DeimosCheckbox28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeimosCheckbox28.Click
On Error Resume Next
If DeimosCheckbox28.Checked = True Then
WriteLong("wolftü.bin", Label3.Text + &HEDDC0, "378215541") 'Takla On
End If
If DeimosCheckbox28.Checked = False Then
WriteLong("wolftü.bin", Label3.Text + &HEDDC0, "378215540") 'Takla Of
End If
Moderatörün son düzenlenenleri:
