Odczytywanie klawiszy

[XxToMcIoxX]

xxx

[Zkumeku]

Mam pewien problem gdyż nie wiem jakiej funkcji mam użyć aby program wykonywal operacje : wczytuje z każdej lini klawisz lub kordy myszy i nastepnie klika lub naciska klawisz

 

Oto kod odpowiedzialny za zapisywanie klawiszy/kordów myszy

 

#include <Misc.au3>

HotKeySet("{End}", "knc")

 

$file = FileOpen(@ScriptDir&"\log.txt", 9)

$dll = DllOpen("user32.dll")

 

Func knc()

FileWrite($file, @CRLF)

FileClose($file)

DllClose($dll)

Exit

EndFunc

 

While 1

If _IsPressed(1, $dll) Then

FileWrite($file, MouseGetPos(0)&", "&MouseGetPos(1)&@CRLF)

ElseIf _IsPressed(46, $dll) Then

FileWrite($file, "F"&@CRLF)

ElseIf _IsPressed(41, $dll) Then

FileWrite($file, "A"&@CRLF)

ElseIf _IsPressed(57, $dll) Then

FileWrite($file, "W"&@CRLF)

ElseIf _IsPressed(53, $dll) Then

FileWrite($file, "S"&@CRLF)

ElseIf _IsPressed(44, $dll) Then

FileWrite($file, "D"&@CRLF)

EndIf

Sleep(100)

WEnd

 

Na tym forum nie pomaga się przy keyloggerach i kradzieżach... a to inaczej nie wygląda

 

Trochę inaczej ma się to co napisałeś do kodu który umieściłeś. Patrząc na tekst (nie kod), możesz czytać pokolei linijki z pliku i wrzucać je np. do Send()

[karolkarol21621]

Jeśli dobrze Cię zrozumiałem to możesz to zrobić tak:

#include <File.au3>
$read=fileread("klawisze.txt")
$l=_FileCountLines("klawisze.txt")
For $x=0 to $l Step 1
	$read_linia=FileReadLine("klawisze.txt", $x)
	If IsString($read_linia) Then
	Send($read_linia)
Else
	$cord=StringSplit($read_linia, ":")
	MouseClick("left", $cord[1], $cord[2], 1)
	EndIf
Next
Exit

[Things]

Na tym forum nie popieramy kradzieży.