Visual Basic Wolftü kodlama OFF check box yapma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Banlı Üye
Katılım
25 Şub 2018
Mesajlar
683
Tepki puanı
139
8 HİZMET YILI
Selamun aleyküm
Bağlantıları görmek için lütfen Giriş Yap

böyle hile kodladım da çalışıyor bu hileyi oyunda iken açıyorum ve o oyun bittiği an tekrar oyuna girerken wolftü bin hatası veriyor ne yapmam gerek on pointerleri by pass button obj kodlarını tamamladım da yapmam gereken bir şey varmı? yardım pls
 
Onaylı Üye
Katılım
17 Ara 2015
Mesajlar
66
Tepki puanı
1
Ödüller
9
10 HİZMET YILI
El Sonunda Mı Hata Veriyor ? Eğer Cevap Evet ise Pointerin olduğu checkbox ' a On Error Resume Next yaz obj ile kodladığın hilerin başına yaz yani böyle


If CheckBox1.Checked = True Then
Timer1.start()
On Error Resume Next
'pointer on'
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
'pointer off '

End If


Devam Çıkış Gibi Hata ise bu yöntem geçerlidir.
aksi halde cevabın hayır ise hatayı biraz ayrıntılı şekilde anlatırmısın?
 
  • Konuyu başlatan
  • Yasaklandı
  • #4
Banlı Üye
Katılım
25 Şub 2018
Mesajlar
683
Tepki puanı
139
8 HİZMET YILI
KARDEŞ HİLE AÇIP KAPATMA NASIL YAPILIR Timer1.Start()
Timer1.Stop() böyle mi olcak
 
Herkesin menfaatince kankisin bu hayatta.
Süper Üye
Katılım
22 Ara 2017
Mesajlar
1,461
Çözümler
1
Tepki puanı
542
8 HİZMET YILI
kardeşim öyle değil kodların yanlış zaten
 
  • Konuyu başlatan
  • Yasaklandı
  • #6
Banlı Üye
Katılım
25 Şub 2018
Mesajlar
683
Tepki puanı
139
8 HİZMET YILI
Kardeş özelden anlatırmısın hile çalışıyor mesela oyuan girdim sonra hileyi açtım bir maç yaptıktan sonra tekrar girdiğim vakit diyor ki wolftü bin bulunamadı
 
Onaylı Üye
Katılım
26 Şub 2017
Mesajlar
57
Tepki puanı
4
Ödüller
6
Yaş
25
9 HİZMET YILI
Beyler öncelikle SelamünAleyküm ben wolf areiya girince optimize diyo napmalıyım ? Şimdiden Teşşekürler.
 
Griffin Premium
Katılım
3 Mar 2017
Mesajlar
1,378
Çözümler
1
Tepki puanı
1,001
Ödüller
12
Sosyal
9 HİZMET YILI
Zamanla öğreneceksin.
 
Üye
Katılım
4 Şub 2018
Mesajlar
24
Tepki puanı
0
Yaş
27
8 HİZMET YILI
selamın aleyküm insert tuşumu açıyor hileyi ? yardım edebilecek var mı ?
 
MUHAF1Z
Seçkin Üye
Katılım
18 Nis 2017
Mesajlar
299
Tepki puanı
14
Ödüller
7
Yaş
38
9 HİZMET YILI
Kod:
Imports Microsoft.VisualBasic

Imports Microsoft.VisualBasic.CompilerServices

Imports System

Imports System.Collections

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Diagnostics

Imports System.Drawing

Imports System.IO

Imports System.Runtime.CompilerServices

Imports System.Windows.Forms

Imports System.Environment

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)

        Try

            Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)

            FileSystem.FileClose(New Integer() {1})

            FileSystem.FileClose(New Integer() {2})

            If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then

                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)



            Else

                File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})

                FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)



            End If

            If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then

                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)



            Else

                File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})

                FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)



            End If

        Catch exception1 As Exception

            ProjectData.SetProjectError(exception1)

            Dim ex As Exception = exception1

            ProjectData.SetProjectError(ex)

            Dim exception As Exception = ex

            ProjectData.ClearProjectError()

            ProjectData.ClearProjectError()

        End Try



    End Sub



    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            WriteLong("wolftü.bin", Label1.Text + &H37F904, "2268606836") 'Name Esp On

            WriteLong("wolftü.bin", Label1.Text + &H37F950, "8946703") 'Taç Gizleme On

        Else

            WriteLong("wolftü.bin", Label1.Text + &H37F904, "2268606837") 'Name Esp Off

            WriteLong("wolftü.bin", Label1.Text + &H37F950, "8946959") 'Taç Gizleme Off

        End If

    End Sub



    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            WriteLong("wolftü.bin", Label1.Text + &H83C83, "2665025140") 'No recoil On

        Else

            WriteLong("wolftü.bin", Label1.Text + &H83C83, "2665025141") 'No Recoil Off

        End If

    End Sub



    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            WriteLong("wolftü.bin", Label1.Text + &H151453, "1301090420") 'No Spread On

        Else

            WriteLong("wolftü.bin", Label1.Text + &H151453, "1301090421") 'No Spread Off

        End If

    End Sub



    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            WriteLong("wolftü.bin", Label1.Text + &H13DF99, "4252861286") 'İnfinite Ammo On

            WriteLong("wolftü.bin", Label1.Text + &H136BEE, "2257258100") 'No Reload On

        Else

            WriteLong("wolftü.bin", Label1.Text + &H13DF99, "4236084070") 'İnfinte Ammo Off

            WriteLong("wolftü.bin", Label1.Text + &H136BEE, "2257258101") 'No Reload Off

        End If

    End Sub



    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

        If CheckBox5.Checked = True Then

            WriteLong("wolftü.bin", Label2.Text + &H83F35, "1566441904") 'AlWays HeadShout On

        Else

            WriteLong("wolftü.bin", Label2.Text + &H83F35, "1566490674") 'AlWays HeadShout Off

        End If

    End Sub



    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged

        If CheckBox6.Checked = True Then

            WriteLong("wolftü.bin", Label2.Text + &H2E494, "3641198040") 'Ölümsüzlük On

        Else

            WriteLong("wolftü.bin", Label2.Text + &H2E494, "3641198041") 'Ölümsüzlük Off

        End If

    End Sub

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        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

    End Sub



    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)

        For Each moz As System.Diagnostics.ProcessModule In s.Modules

            If moz.FileName.IndexOf("obj") <> -1 Then

                Label2.Text = moz.BaseAddress.ToString

            End If

        Next

        Try



        Catch ex As Exception



        End Try

    End Sub

End Class







Yukarıdaki gibi kodladım. Herhangi bir sıkıntısı yok çalışıyor. Fakat AlWays HeadShout kısmını ''Q'' harfiyle açma kapama yapmak istiyorum. nasıl yapabilirim yardımcı olursanız sevinirim
 
Moderatörün son düzenlenenleri:
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst