[Problem] Odczytywanie zapisanych klawiszy

[XxToMcIoxX]

Witam. Odrazu na wstepie pisze iz nie jest to zaden keylogger itp. jest to farmbot polegajacy na nagraniu swoich klikniec a,w,s,d oraz klikniec myszy, a nastepnie odtworzenie ich. Problem moj polega na tym ze nie wiem jakiek funkcji mam uzyc aby odczytywalo zapisane w notatniku liczby i nastepnie albo klikalo w te kordy albo klikalo odpowiedni przycisk

 

Tutaj jest kod odpowiadajacy za zapis klawiszy

 

#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

[karolkarol21621]

#include <File.au3>
$read=fileread("klawisze.txt")
$l=_FileCountLines("klawisze.txt")
For $x=0 to $l Step 1
    $read_linia=FileReadLine("klawisze.txt", $x)
    Send($read_linia)
Next

Odczytuje kolejno linie i wysyła tekst

[XxToMcIoxX]

A co jeśli trzeba kliknac mysza? oczywiście też w danej kolejności np. a, klik mysza,w,s,klik mysza,d ?

[karolkarol21621]

#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 StringInStr($read_linia, ":") Then
	$pozycja=StringSplit($read_linia, ":")
	MouseClick("left", $pozycja[1], $pozycja[2], 1)
Else
	    Send($read_linia)
	EndIf

Next

Pozycje myszy w tej postaci: 100:100

[Keniger]

Facepalm masz w folderze autoita program który nagrywa twoje kliki i wszystko inne i pozniej kod robi ci z tego lol

[XxToMcIoxX]

Mi wypisuje jedynie kordy myszy...

sam zobacz: http://scr.hu/0d9c/c0gy6

 

 

@UP Owszem może coś takiego jest ale ja chcę zrobić osobny program, gdybym coś takiego chciał zrobić to zrobił bym program w którym wystarczylo by skopiować do scite i gotowe

[XxToMcIoxX]

@reff nie ma nikt pomysłu?

[karolkarol21621]

Nie zapisuje Ci klawiszy tylko same kordy? Screen jest niedostępny

[XxToMcIoxX]

Zapisuje klawisze oraz kordy myszy zamiast klikac w te kordy.....

[Ballas]

A więc zacznijmy od początku. <_<

 

_IsPressed()
 

Albo dołożysz kawałek kodu albo zapis do pliku będzie nie prawidłowy.

 

 

#include <Misc.au3>
$licznik = 0
$dll = DllOpen("user32.dll")
While 1
If _IsPressed(41, $dll) Then
   ToolTip($licznik)
   $licznik +=1
EndIf
;Sleep(100)
WEnd

 

 

Odpal powyższy kod u siebie i wciśnij "A", na tooltipie zobaczysz ile już byś miał wpisów.

Wszystko zależy od Sleepa, za duży slepp - za mało wpisów, za mały sleep - za dużo wpisów.

Ale co tu podziałać. Do IsPressed jest też jeszcze jedna opcja (dość prymitywna, lecz działająca).

Przeanalizuj poniższy kod (jeśli jesteś choć trochę rozgarnięty odrazu dowiesz się o co chodzi).

 

 

#include <Misc.au3>
#include <File.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) = 1 Then
        FileWrite($file, "m:,"&MouseGetPos(0)&", "&MouseGetPos(1)&@CRLF)
            Do
               $return = _IsPressed(1, $dll)
            Until $return <> 1
    ElseIf _IsPressed(46, $dll) = 1 Then
        FileWrite($file, "k:F"&@CRLF)
            Do
               $return = _IsPressed(46, $dll)
            Until $return <> 1
    ElseIf _IsPressed(41, $dll) = 1 Then
        FileWrite($file, "k:A"&@CRLF)
            Do
               $return = _IsPressed(41, $dll)
            Until $return <> 1
    ElseIf _IsPressed(57, $dll) = 1 Then
        FileWrite($file, "k:W"&@CRLF)
            Do
               $return = _IsPressed(57, $dll)
            Until $return <> 1
    ElseIf _IsPressed(53, $dll) = 1 Then
        FileWrite($file, "k:S"&@CRLF)
            Do
               $return = _IsPressed(53, $dll)
            Until $return <> 1
        ElseIf _IsPressed(44, $dll) = 1 Then
        FileWrite($file, "k:D"&@CRLF)
            Do
               $return = _IsPressed(44, $dll)
            Until $return <> 1
    EndIf
WEnd

Prymitywne, ale działa.

 

 

A tutaj masz funkcje odczytujące i używające zapisanych danych:

 

 

#include <Misc.au3>
#include <File.au3>
Global $tablica[200]
$file = @ScriptDir&"\log.txt"

Przypisz($file)
Wykonaj()

Func Przypisz($param1)
   $ilosc =_FileCountLines($param1)
   $tablica[0] = $ilosc
   For $i = 1 to $ilosc
   $line = FileReadLine($param1,$i)
   $tablica[$i] = $line
   Next
EndFunc

Func Wykonaj()
   	  		 MsgBox(0,"",$tablica[0])
   For $i = 1 to $tablica[0]
	  If StringLeft($tablica[$i],2) = "k:" Then
		 Send(StringMid($tablica[$i],3))
	  ElseIf StringLeft($tablica[$i],2) = "m:" Then
		 $xy = StringSplit($tablica[$i],",")
		 MouseClick("",$xy[2],$xy[3],1,1)
	  EndIf
   Next
EndFunc