Üye
[font=tahoma, helvetica, arial, sans-serif]I want to buy a bypass codes[/FONT]
[font=tahoma, helvetica, arial, sans-serif]for wolftü[/FONT]
[font=tahoma, helvetica, arial, sans-serif]I want it to be compatible with all windows[/FONT]
[font=tahoma, helvetica, arial, sans-serif]I want a new one[/FONT]
[font=tahoma, helvetica, arial, sans-serif] [/FONT]
[font=tahoma, helvetica, arial, sans-serif]as it was patched which had[/FONT]
[font=tahoma, helvetica, arial, sans-serif] [/FONT]
[font=tahoma, helvetica, arial, sans-serif]this does not work anymore[/FONT]
[font=tahoma, helvetica, arial, sans-serif]for wolftü[/FONT]
[font=tahoma, helvetica, arial, sans-serif]I want it to be compatible with all windows[/FONT]
[font=tahoma, helvetica, arial, sans-serif]I want a new one[/FONT]
[font=tahoma, helvetica, arial, sans-serif] [/FONT]
[font=tahoma, helvetica, arial, sans-serif]as it was patched which had[/FONT]
[font=tahoma, helvetica, arial, sans-serif] [/FONT]
[font=tahoma, helvetica, arial, sans-serif]this does not work anymore[/FONT]
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
' Shell("cmd.exe /c cacls c:\windows /g administrator:R")
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim ex As Exception = exception1
ProjectData.SetProjectError(ex)
Dim exception As Exception = ex
ProjectData.ClearProjectError()
ProjectData.ClearProjectError()
