- Yasaklandı
- #1
Onaylı Üye
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]+Rep Vermeyı VE Tesekkur Butonuna Basmayı Unutmayın[/FONT][/FONT]
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]Gerekli Olanlar : [/FONT]
[/FONT]
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif] 1 Adet Button[/FONT]
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]Buttona Girilecek Kod : [/FONT][/FONT]
[/FONT]
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif] 1 Adet Button[/FONT]
[font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif]Buttona Girilecek Kod : [/FONT][/FONT]
PHP:
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
Form1.Show()
Me.Hide()
End Try
Publıc Class Form1 in Üstüne Girilecek Kod :
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.Threading
Imports System.Windows.Forms
Imports System.Environment
[color=#ff3333][SIZE=7][font='Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif][b]+Rep Vermeyı Butonuna Basmayı Unutmayın[/b][/FONT][/SIZE][/color]