Süper Üye
[font='Open Sans', sans-serif, Arial] Public Class Form ÜZERİNE ŞU KODLAR YAZILACAK[/FONT]
Kod:
Kod:
Kod:
Imports Microsoft.VisualBasic
Kod:
[CENTER]Imports Microsoft.VisualBasic.CompilerServices[/CENTER]
[CENTER]Imports System[/CENTER]
[CENTER]Imports System.Collections[/CENTER]
[CENTER]Imports System.Collections.Generic[/CENTER]
[CENTER]Imports System.ComponentModel[/CENTER]
[CENTER]Imports System.Diagnostics[/CENTER]
[CENTER]Imports System.Drawing[/CENTER]
[CENTER]Imports System.IO[/CENTER]
[CENTER]Imports System.Runtime.CompilerServices[/CENTER]
[CENTER]Imports System.Threading[/CENTER]
[CENTER]Imports System.Windows.Forms[/CENTER]
[align=center]Imports System.Environment[font='Open Sans', sans-serif, Arial]Form1 Load a şu kodlar yazılacak[/FONT]
[font='Open Sans', sans-serif, Arial][font=Monaco, Consolas, Courier, monospace]Try[/FONT]
[font=Monaco, Consolas, Courier, monospace] Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileClose(New Integer() {1})[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileClose(New Integer() {2})[/FONT]
[font=Monaco, Consolas, Courier, monospace] If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace] Else[/FONT]
[font=Monaco, Consolas, Courier, monospace] File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Monaco, Consolas, Courier, monospace] If My.Computer.FileSystem.FileExists((folderPath & "\xhunter1.sys")) Then[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace] Else[/FONT]
[font=Monaco, Consolas, Courier, monospace] File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})[/FONT]
[font=Monaco, Consolas, Courier, monospace] FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)[/FONT]
[font=Monaco, Consolas, Courier, monospace] End If[/FONT]
[font=Monaco, Consolas, Courier, monospace] Catch ex As Exception[/FONT]
[font=Monaco, Consolas, Courier, monospace] End Try [/FONT][/FONT]