CL4Y3R
Özel Üye
Formun En Üstüne Yazılacak:
[font=Monaco, Consolas, Courier, monospace]Imports System[/font]
Imports Microsoft.VisualBasic
[size=small][font=Monaco, Consolas, Courier, monospace]Imports Microsoft.VisualBasic.CompilerServices[/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Collections[/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Collections.Generic[/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Environment[/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Windows.Forms[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Threading[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Runtime.CompilerServices[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.IO[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Drawing[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports Syst[font=Monaco, Consolas, Courier, monospace]em.Diagnostics[/font][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.ComponentModel[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Form1 Loada Yazılacak:[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][hide][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][/hide][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[font=Monaco, Consolas, Courier, monospace]Imports System[/font]
Imports Microsoft.VisualBasic
[size=small][font=Monaco, Consolas, Courier, monospace]Imports Microsoft.VisualBasic.CompilerServices[/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Collections[/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Collections.Generic[/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Environment[/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Windows.Forms[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Threading[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Runtime.CompilerServices[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.IO[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.Drawing[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports Syst[font=Monaco, Consolas, Courier, monospace]em.Diagnostics[/font][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Imports System.ComponentModel[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace]Form1 Loada Yazılacak:[/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][size=small][font=Monaco, Consolas, Courier, monospace][hide][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size][/font][/size]
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
Catch ex As Exception
End Try