KENDİ BYPASS YAPMA DETAYLI ANLATIM!!!


Wolfteam Hile Teknik Yardım   

Yazar: LibertusCoder    0 Yorum    250 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 15.05.2016, 20:34:23 #1
LibertusCoder Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:212 Konu Sayısı:83 Üyelik Tarihi:15.05.2016 Rep Puanı: 26

EKLENECEKLER !!
---
2 ADET BUTTON
1 ADET PROGRESSBAR
1 ADET TEXTBOX
2 ADET LABEL
1 ADET TİMER
---------------------



Form 1 Üstüne
*
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
----

Button 2 ile yönlendirme Kodu
*
System.Diagnostics.Process.Start("Aktarılıcak Site URL")
----

Button 1'İn Altına Girilecek Kod
*
Dim p As Process = Process.GetProcessesByName("Wolfteam.bin")(0)
            Timer1.Enabled = True
        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)
                FrostTextBox1.Text = ("Erişim Engellendi ")
            End If
            If My.Computer.FileSystem.FileExists((folderPath & "wolfteam.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







Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir