memoryhackers.org Songma Tarafından Paylaşımlar Devam Ediyor....
+1 Repi Benim İçin Çok Görmeyin
Form'a eklenecekler Yapamayanlar TS3 Sunucumuza Gele Bilir Mh.ts3self.com Ordaki İsmim BilekShot
2 Adet Timer
1 adet label ve
Timer1 timer2 nin Enabledleri:True Yapınız
Form'u İstediginiz Gibi Süsleyin
Form'a Çift Tıklayın CTRL+A Yapıp Hepsini Silin Ve Aşağıdaki Kodu Yapıştırın
+1 Repi Benim İçin Çok Görmeyin
Form'a eklenecekler Yapamayanlar TS3 Sunucumuza Gele Bilir Mh.ts3self.com Ordaki İsmim BilekShot
2 Adet Timer
1 adet label ve
Timer1 timer2 nin Enabledleri:True Yapınız
Form'u İstediginiz Gibi Süsleyin
Form'a Çift Tıklayın CTRL+A Yapıp Hepsini Silin Ve Aşağıdaki Kodu Yapıştırın
PHP:
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
Public Class Form1
Private Sub RTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTheme1.Click
End Sub
Private Sub PerplexButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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
If (Enumerable.Count(Of Process)(Process.GetProcessesByName("wolftü.bin")) > 0) Then
Label1.Text = (" Giriş Yapılıyor...")
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If (Enumerable.Count(Of Process)(Process.GetProcessesByName("xxd-0.xem")) > 0) Then
Form2.Show()
Me.Hide()
Timer2.Stop()
End If
End Sub
End Class
