NotesWhat is notes.io?

Notes brand slogan

Notes - notes.io

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
     
 
what is notes.io
 

Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...

With notes.io;

  • * You can take a note from anywhere and any device with internet connection.
  • * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
  • * You can quickly share your contents without website, blog and e-mail.
  • * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
  • * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.

Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.

Easy: Notes.io doesn’t require installation. Just write and share note!

Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )

Free: Notes.io works for 12 years and has been free since the day it was started.


You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;


Email: [email protected]

Twitter: http://twitter.com/notesio

Instagram: http://instagram.com/notes.io

Facebook: http://facebook.com/notesio



Regards;
Notes.io Team

     
 
Shortened Note Link
 
 
Looding Image
 
     
 
Long File
 
 

For written notes was greater than 18KB Unable to shorten.

To be smaller than 18KB, please organize your notes, or sign in.