Visual basic hile kodluyorum hata yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
19 Ağu 2016
Mesajlar
65
Tepki puanı
1
9 HİZMET YILI
Oyuna giriyorum ve 1 el atıyorum daha sonra tekrer odaya giriyom
ve bu hatayı alıyorum
G3YaA6.jpg

<<Yardımınızı Beklerim <<
 
Üye
Katılım
21 Nis 2016
Mesajlar
43
Tepki puanı
0
10 HİZMET YILI
Bypass olmadığı için atıyo olabilir.
Bypass nası yaparım dersen,
Buton'a girilecek kod:

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
If My.Computer.FileSystem.FileExists((folderPath & "\xigncode")) Then

End If
FileSystem.FileOpen(1, (folderPath & "\xigncode"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
Catch ex As Exception

End Try

Public Class Form1'in üstüne girilecek kodlar:

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
 
Üye
Katılım
16 Ağu 2016
Mesajlar
45
Tepki puanı
0
Yaş
29
9 HİZMET YILI
Kardeşim genelde obj'den dolayı atar, odada obj'yi aktif ediyorsun çıkınca gene açık kalıyor ve hata veriyor.Obj'yi timer'e at On Error Resume Next ekle, otomatik olsun :)
 
Nothing.
Süper Üye
Katılım
30 Nis 2016
Mesajlar
957
Tepki puanı
37
10 HİZMET YILI
solution explorer'den readwritingmemory'i aç ordan messagebox("wolftü.bin açık değil") yazar sil onları kaydet.
 
Üye
Katılım
23 Şub 2016
Mesajlar
45
Tepki puanı
0
10 HİZMET YILI
Hilene ByPass Ekle
Timer = Enabled True
Interval : 25000
Kod :
Kod:
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

Unutmadan ByPass İçin Xingcode Dolarken Açacaksın
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst