Advertisement
Guest User

Untitled

a guest
Oct 17th, 2012
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.37 KB | None | 0 0
  1. #include API.ahk
  2. #IfWinActive
  3. #UseHook
  4. #SingleInstance, Force
  5. GoSub,UpdateTrayTip
  6. Menu,Tray,NoStandard
  7. Menu,Tray,Add,Reset,F12
  8. Menu,Tray,Add,Exit,Exit
  9. OnExit,LogAndExit
  10. Menu, Tray, Icon, klick_counter.ico, , 1
  11. L=0
  12. M=0
  13. R=0
  14. LH=0
  15. MH=0
  16. RH=0
  17. ;----------------------------------------------------------------------------------------------
  18. ;------------------------------------------Overlay---------------------------------------------
  19. ;----------------------------------------------------------------------------------------------
  20. Updates:
  21. Gui, Add, Text,, Suche nach Updates...
  22. Gui, Add, Text,, Bitte Warten !
  23. Gui, Show
  24. Sleep, 3000
  25. Gui Destroy
  26. return
  27. ;----------------------------------------------------------------------------------------------
  28. ;----------------------------------------------------------------------------------------------
  29. ;----------------------------------------------------------------------------------------------
  30. Exit
  31.  
  32. SetTimer, Recordtimer, 100
  33. ;------------------------------
  34. Recordtimer:
  35. If M > %MH%
  36. Loop, read,ini.txt
  37. {
  38. last_line:=A_LoopReadLine
  39. }
  40. IfInString,last_line, MH=
  41. {
  42. FileAppend, %MH%=%M%
  43. }
  44. return
  45. ;-------------------------------
  46.  
  47. F12::
  48. L=0
  49. M=0
  50. R=0
  51. return
  52.  
  53. F10::
  54. MsgBox Klick Counter Ergebnis:`n===============`nLinks Klicks: %L%`nMittle Klicks: %M%`nRechts
  55.  
  56. Klicks: %R%`n===============`n`nDie Klicks werden in einer Textdatei gespeichert.`nDie Textdatei
  57.  
  58. heißt "Klick History".`n`n===============`nÜbersicht:`n`nF10: Hauptmenü aufrufen`nF12:Counter
  59.  
  60. fast Reset`n`n`n`n`n Copyright To5ch.
  61. MsgBox, 4,, Soll weiter gezählt werden ?
  62. IfMsgBox yes
  63. return
  64. IfMsgBox no
  65. msgbox Bis zum Nächsten mal :-)
  66. ExitApp
  67. return
  68.  
  69. F11:
  70. Test := Textcreate("Arial", 9, true, false)
  71. TextSetPos(Test, 58, 525)
  72. TextSetColor(Test, 0xFFFFFFFF)
  73. Textshow(Test)
  74. return
  75.  
  76. ~LButton::L++
  77. ~MButton::M++
  78. ~RButton::R++
  79.  
  80. UpdateTrayTip:
  81. Menu,Tray,Tip,Made by To5ch`n=============`nF10: Hauptmenü`nF12: Counter Reset`n=============`n
  82.  
  83. %L% Links Klicks`n%M% Mittle Klicks`n%R% Rechts Klicks
  84. SetTimer,UpdateTrayTip,50
  85. Return
  86.  
  87.  
  88. LogAndExit:
  89. FormatTime,T,,dd/MM/yyyy hh:mm:ss
  90. FileAppend,%T% %L% Links Klicks`, %M% Mittle Klicks`, %R% Rechts Klicks`n,Klick History.log
  91. Sleep, 1000
  92. FileAppend,======================================================================`n,Klick
  93.  
  94. History.log
  95. Exit:
  96. ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement