OBJ çekme [yardım]

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
9 Eyl 2015
Mesajlar
35
Tepki puanı
2
Ödüller
8
10 HİZMET YILI
merhaba wolfteama giriyorum csh binde sorun yok çalışıyor fakat oyuna girdiğimde obj çek butonuna tıkladığımda erişim engellendi diyor ? Lütfen neden diyor

HATA ile ilgili fotoraf

Bağlantıları görmek için lütfen Giriş Yap
 
Hello World
Uzman Üye
Katılım
9 Nis 2016
Mesajlar
198
Çözümler
1
Tepki puanı
12
Yaş
36
10 HİZMET YILI
OBJ Oyun İçinden Açıcan Hata Vermez
 
Onaylı Üye
Katılım
19 Kas 2015
Mesajlar
71
Tepki puanı
0
10 HİZMET YILI
Bypass yapman lazm bu kodlarla:
PHP:
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 Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.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)
                Label1.Text = ("Erişim Engellendi ")
            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)
                Label2.Text = ("Erişim Engellendi")
            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
        Dim p As Process()
        p = Process.GetProcessesByName("wolftü.bin") 'set wolftü process
        If p.Count = 1 Then ' if wolftü process detected
            Label3.Text = ("ByPass Başarılı")
            Label3.ForeColor = Color.Green
        End If
    End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst