Visual Basic Wolftü kodlama OFF check box yapma

madamwt · 7 Mar 2018

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

criss1616 · 7 Mar 2018

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?

Fight5Freedom · 7 Mar 2018

Oto Objmi Yoksa Ellemi?

madamwt · 7 Mar 2018

KARDEŞ HİLE AÇIP KAPATMA NASIL YAPILIR Timer1.Start()
Timer1.Stop() böyle mi olcak

The Originals · 7 Mar 2018

kardeşim öyle değil kodların yanlış zaten

madamwt · 7 Mar 2018

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ı

lera21 · 7 Mar 2018

Beyler öncelikle SelamünAleyküm ben wolf areiya girince optimize diyo napmalıyım ? Şimdiden Teşşekürler.

om3rcan · 8 Mar 2018

Zamanla öğreneceksin.

madamwt · 8 Mar 2018

Kardeşim kod yanlışsa bi yardım etsen özelden bir soru soruyorum bakmıyorsun takmıyorsun sora sora öğrenilir de sorduğum sorulara cevap gelmiyor

The Originals' Alıntı:
kardeşim öyle değil kodların yanlış zaten

emirbelll · 27 Mar 2018

selamın aleyküm insert tuşumu açıyor hileyi ? yardım edebilecek var mı ?

elexus · 18 Ara 2018

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

Ara

Visual Basic Wolftü kodlama OFF check box yapma

madamwt

criss1616

Fight5Freedom

madamwt

The Originals

Herkesin menfaatince kankisin bu hayatta.

madamwt

lera21

om3rcan

madamwt

emirbelll

elexus

MUHAF1Z