wolftü Yardm

MuhammeDesigN · 25 Eyl 2018

kullandığım kodlamada bypass ve v.b hepsi mevcut fakat oyundan açtıktan sonra log verdi ve bir tanede log vermeden 15 gün banladı bunun çözümü ne Yeni Bypass falanmı çıktı acaba ?

Aorsien · 25 Eyl 2018

Başlığı düzenlersen sevinirim. Hangi oyunla ilgili sorun yaşıyorsan başlığı ona göre değiştir.

Mr.BullS · 25 Eyl 2018

Güncel Olmayan Pointer Felanmı Kodladın Mesela 50 Özelllikli Hile Kodladım 1 Özellik Yüzünden Log Yedim Şimdi O Özelliği Silsem Bie Log Veriyor Çözüm Yeni Bi Proje Aç

MuhammeDesigN · 25 Eyl 2018

Kullandığım Proje 2017 nin eskiden kodladığım bir proje üstüne pointer ve obj ekledm ama ondan önce pointeri değiştirip girdiğimde 15 gün ban yemiştim log vermediği halde acaba projedemi sorun var bypass falan her yerde olan yani aynı

⋅vox · 26 Eyl 2018

Yeni bir projede sadece 1 özellikle birlikte oyuna gir dene kardeşim. Hem 2 dakka sürmez hem de sorun projede mi anlamış olursun

MuhammeDesigN · 26 Eyl 2018

Taç Gizleme Ve Name ESP Li Bir Hile Yaptım
Bypass Ayarları Denilen Şekilde https://memoryhackers.org/konular/vb-net-hile-kodlama.21170/ şu konudaki Gibi fakat bendeki tuşlu olarak ayarladım Yani Direk Timerdan çekiyorum tuşa bağlı aç kapalı olması için CSH yide çektim Siz Yapınca 1 gün sonra ban yiyormusunuz yani ben 15 gün öncede denedim ve ban yedim dünde yapdığım hile ban yedi şimdi bunu bugün açacam yarın ban yiyecekmiyim bakalım

MuhammeDesigN · 26 Eyl 2018

Şuanda Yeni Projede Yaptığım Hile

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 Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    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
        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
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.K) Then
            WriteLong("wolftü.bin", Label1.Text + &H3B1014, "2268606836") 'Name Esp On
            WriteLong("wolftü.bin", Label1.Text + &H3B1060, "8946703") 'Taç Gizleme On

        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        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)
                TextBox1.Text = ("Eriþim Engellendi ")
            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 Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If GetAsyncKeyState(Keys.L) Then

            WriteLong("wolftü.bin", Label1.Text + &H3B1014, "2268606837") 'Name Esp Of
            WriteLong("wolftü.bin", Label1.Text + &H3B1060, "8946959") 'Taç Gizleme Off

        End If
    End Sub
End Class

Hata V.b Birşey varmı bende hata gözükmüyor ve bunu aynı şekil öteki projede yaptm hile çalşyr sorun yok ama 1 gün sonra ban yiyorum 15 gün

önceki kullandığım projenin içide böyle

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

    Dim exception As Exception

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        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
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        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 & "\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)
            Diem exception As Exception = ex
            ProjectData.ClearProjectError()
            ProjectData.ClearProjectError()
        End Try
        Dim p As Process()
        p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
        If p.Count = 1 Then ' if wolftü process detected

        End If
    End Sub

    Private Sub Timer4_Tick(sender As System.Object, e As System.EventArgs) Handles Timer4.Tick
        If GetAsyncKeyState(Keys.K) Then
            WriteLong("wolftü.bin", Label1.Text + &H3B1014, "2268606836") 'Name Esp On
            WriteLong("wolftü.bin", Label1.Text + &H3B1060, "8946703") 'Taç Gizleme On
         
        End If
    End Sub
    Private Sub Timer6_Tick(sender As System.Object, e As System.EventArgs) Handles Timer6.Tick
        If GetAsyncKeyState(Keys.L) Then

            WriteLong("wolftü.bin", Label1.Text + &H3B1014, "2268606837") 'Name Esp Of
            WriteLong("wolftü.bin", Label1.Text + &H3B1060, "8946959") 'Taç Gizleme Off
         
        End If
    End Sub

    Private Sub Timer7_Tick(sender As System.Object, e As System.EventArgs) Handles Timer7.Tick
        On Error Resume Next
        Kill("C:\Joygame\WolfteamTS\IMG\object.lto")
        Kill("C:\Joygame\WolfteamTS\IMG\cshdell.dl")
        Kill("C:\Joygame\WolfteamTS\xigncode\xigncode.log")
        Kill("C:\Joygame\WolfteamTS\xigncode\xxd-0.xem")
        Kill("C:\Joygame\WolfteamTS\xigncode\xm.exe")
        Kill("C:\Joygame\WolfteamTS\xigncode\xmag.xem")
        FileSystem.Kill("http://www.joygame.com/wolftü//user//noocBouse//FurxXX0")
        FileSystem.Kill("http://www.joyacc.textbanned/user.\\444User/")
    End Sub

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

    End Sub

    Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        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("obj") <> -1 Then
                Label2.Text = moz.BaseAddress.ToString
            End If
        Next
    End Sub

    Private Sub Timer5_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        If GetAsyncKeyState(Keys.T) Then

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

        End If
    End Sub

    Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
        If GetAsyncKeyState(Keys.Y) Then

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

        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Diem(ByVal exception As Exception)
        Throw New NotImplementedException
    End Sub

End Class

MuhammeDesigN · 27 Eyl 2018

Cevappp ?

thelordkocmxd · 27 Eyl 2018

Hocam tabikide ban yersin Adminler kontrol ediyor yeni hesap aç

MuhammeDesigN · 29 Eyl 2018

Peki Şuanda Kullanılan Elinizde Boş Proje Varsa Ban Yemeyen Always ve Name ESP Yapacağım Atabilirmisiniz Acaba

XYLONV1 · 29 Eyl 2018

vb.net ile kodladıysan hileyi wolftü.bin sil wolftü.bin yap kardşm

Ara

wolftü Yardm

MuhammeDesigN

Aorsien

I'll be fine ♥

Mr.BullS

MuhammeDesigN

⋅vox

MuhammeDesigN

MuhammeDesigN

MuhammeDesigN

thelordkocmxd

MuhammeDesigN

XYLONV1

Benzer Konular