скрипт записи нажатий клавиш и воспроизведения не работает

Обсуждение программ nnCron и nnCron LITE

скрипт записи нажатий клавиш и воспроизведения не работает

Postby felcons » Tue, 12 Dec 2017, 19:48

есть три задачки вот такого содержания:
Code: Select all

#( Запись!
\  NoActive
WatchHotKey: "^$@r"
NoLog SingleInstance
: N>SBL  N>S S"  " S+ ;
: N>SBL+  N>SBL S+ ;

\ Кейлоггинг
VARIABLE start-time
CREATE LogKeyDN 255 ALLOT
: LogKeyDN! LogKeyDN + C! ; ( x code -- )
: LogKeyDN@ LogKeyDN + C@ ; ( code -- )

: log-code
>R
GetTickCount start-time @ - N>SBL
R> N>SBL+ crlf S+
S" e:\script.log" FAPPEND
;

: LOG-ANYKEY-PRESSED
255 1 DO  I KEY-PRESSED?
   IF   \ Лог нажатия кнопки
      I LogKeyDN@ 0=
      IF   \ в прошлый проход эта кнопка была не нажата?
         I log-code -1 I LogKeyDN!
      THEN
   ELSE   \ Лог отпускания
      I LogKeyDN@
      IF   \ нажималась ли эта кнопка?
         I NEGATE log-code
         0 I LogKeyDN!
      THEN
   THEN
LOOP
;

\ ху-логгинг
: log-moving  >R >R
GetTickCount start-time @ - N>SBL
0 N>SBL+
R> N>SBL+ R> N>SBL+ crlf S+
S" e:\script.log" FAPPEND
;
VARIABLE x-pos
VARIABLE y-pos
: LOG-MMoving
MOUSE-POS x-pos @ y-pos @ D<> IF MOUSE-POS 2DUP log-moving y-pos ! x-pos ! THEN
;

: Шпионить
BEGIN
10 PAUSE
LOG-ANYKEY-PRESSED
LOG-MMoving
VK_NUMLOCK KEY-PRESSED?
UNTIL
-17 log-code
-162 log-code
;
Action:
300 300 BEEP S" e:\script.log" FDELETE \ Опционально :)
LogKeyDN 255 ERASE x-pos 0! y-pos 0!
GetTickCount start-time !
Шпионить
300 300 BEEP
)#

<%
: FOR-FLINES   { xt \ Lf Lc -- }   ( a u xt -- )
    R/O OPEN-FILE-SHARED THROW TO Lf
    258 ALLOCATE THROW TO Lc
    BEGIN Lc 1+ 255 Lf READ-LINE THROW WHILE
    Lc C!
    Lc xt EXECUTE
    REPEAT
    DROP
    Lf CLOSE-FILE DROP
;

: KeyDN
CASE
   1 OF MOUSE-LBDN ENDOF
   2 OF MOUSE-RBDN ENDOF
   DUP DUP OF specKeyDN ENDOF
ENDCASE
;

: KeyUP
CASE
   1 OF MOUSE-LBUP ENDOF
   2 OF MOUSE-RBUP ENDOF
   DUP DUP OF specKeyUP ENDOF
ENDCASE
;

: Диверсия { \ x -- }
COUNT <TIB
get-number
GetTickCount start-time @ - - DUP 0< IF DROP 0 THEN PAUSE
get-number TO x
 x IF
   x 0> IF x KeyDN THEN
   x 0< IF x NEGATE KeyUP THEN
    ELSE
        get-number get-number MOUSE-MOVE
    THEN
TIB>
;
%>
#( Воспроизведение@
\  NoActive
WatchHotKey: "^$@p"
NoLog SingleInstance
Action:
300 300 BEEP
GetTickCount start-time !
S" e:\script.log" ['] Диверсия FOR-FLINES
300 300 BEEP
)#
#( Zello
NoLog
WatchHotKey: "@]"
Action:
StartIn: "E:\Program Files\zello\"
ShowMaximized NormalPriority
START-APP: E:\program files\zello\zello.exe
)#

по сути то скрипт на запись и воспроизведения нажатий клавиш.
но я выяснил, что комбинация windows +m в скрипте не отрабатывает. Потому было сделано программу зелло на запуск по грорчим клавишам nncron.
Теперь выяснил что и комбинация клавиш alt +tab, не записывается и не воспроизводится.
НМне ндо было запустить несколько копий программы zello, и вбить логины и пароли.
На сколько реально допилить скрипт записи и воспроизведения, чтоб он отрабатывал все нажатия клавиш, и ничего не пропускал?
Реально ли с помощью такого скрипта запустить несколько копий программы zello, и чтоб он вбил логины и пароли?
Если можна, то помогите, чтоб допилить скрипт, и чтоб он все нажатия клавиш обрабатывал и ничего не пропускал.
felcons
 
Posts: 17
Joined: Fri, 29 Jan 2010, 14:52

Re: скрипт записи нажатий клавиш и воспроизведения не работа

Postby VoidVolker » Thu, 21 Dec 2017, 11:08

О, это вообще очень старый скрипт. Если будет время - попробую переписать его.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2907
Joined: Tue, 25 Apr 2006, 17:56

Re: скрипт записи нажатий клавиш и воспроизведения не работа

Postby felcons » Fri, 22 Dec 2017, 12:25

А что, была ли какая-то новая версия этого ж скрипта? Но по сути думаю, что не было, раз Вы говорите, что он очень старый. На сколько реально его довести до ума таким образом, чтоб все клавиши анализировались и он работал?
felcons
 
Posts: 17
Joined: Fri, 29 Jan 2010, 14:52

Re: скрипт записи нажатий клавиш и воспроизведения не работа

Postby VoidVolker » Fri, 22 Dec 2017, 20:59

Нет, не было новых версий - просто эксперимент. Вообще, он там все клавиши сканирует стандартными методами WinAPI. Но WinAPI - это такая штука, которая бывает очень своеобразной и непредсказуемой временами, из-за чего часто приходится искать обходные пути. Так что и в этом случае думаю что-то похожее может быть.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2907
Joined: Tue, 25 Apr 2006, 17:56

Re: скрипт записи нажатий клавиш и воспроизведения не работа

Postby felcons » Sat, 23 Dec 2017, 12:49

Если что надо будет протестировать, то я готов помочь. Очень нужен скрипт, который бы работал без збоев.
felcons
 
Posts: 17
Joined: Fri, 29 Jan 2010, 14:52


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: Absolum and 2 guests