Paylaş:
Bildirimler
Tümünü Sil

Wolfteam Oto ByPass Ekleme [VB]  

  RSS
TechnoPvCity
(@technopvcity)
Üye

[hide]

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 & "wolfteam.binxhunter1.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
        Dim p As Process = Process.GetProcessesByName("WolfTeam.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
        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

[/hide]

---------------------------------------------------------------------------------------------------------

En Üste Gelen Kod

---------------------------------------------------------------------------------------------------------

[hide]

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

[/hide]

Alıntı
Gönderildi : 10 Eylül 2016 18:25
murat3547
(@murat3547)
Gelişen Üye

Eyvallah repini verdim

CevapAlıntı
Gönderildi : 10 Eylül 2016 18:48
askin321
(@askin321)
Aktif Üye

teşekkürler.

CevapAlıntı
Gönderildi : 16 Eylül 2016 03:08
rakam19
(@rakam19)
Aktif Üye

bakalım bir arkadaşlar

CevapAlıntı
Gönderildi : 16 Eylül 2016 19:30
FullExtremo
(@fullextremo)
Seçkin Üye

Tek Atma

CevapAlıntı
Gönderildi : 29 Mart 2017 14:41
zeojaweed28721
(@zeojaweed28721)
Aktif Üye

yaşasın sen olmasan

CevapAlıntı
Gönderildi : 3 Mart 2018 21:06
jeaxyjoker
(@jeaxyjoker)
Yeni Üye

sağol

CevapAlıntı
Gönderildi : 30 Ocak 2019 02:21
Sedart
(@sedart)
Aktif Üye

teşekkürler

CevapAlıntı
Gönderildi : 24 Şubat 2019 05:44
kara39
(@kara39)
Yeni Üye

Eline Sağlık

CevapAlıntı
Gönderildi : 28 Temmuz 2019 15:40
Paylaş:
Başa dön