Brauch Hilfe mit GetAsyncKeyState +_+

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Brauch Hilfe mit GetAsyncKeyState +_+

Beitrag von MVXA »

Hallo !
Ich wollt ein Programm schreiben (kein Keylogger, naja in einer entfernten art und weise schon +_+) mit dem man zählen kann wieviele Taste insgesamt gedrückt wurden. Hier mal der Code:

Code: Alles auswählen

Repeat 
    For lngI = 0 To 255
        Taste = GetAsyncKeyState_(lngI)
        If (Taste & $1) = $1
            Miep+1
            Debug Miep
        EndIf 
    Next
    
    lngI = 0
    Delay(1)
Until GetAsyncKeyState_(27)
Funkt eigentlich ganz gut. Problem gibts da, das Mausklicks mit gezählt werden. Könnt ihr mir vielleicht helfen wie ich Mausklicks ignorieren kann?
Bild
Benutzeravatar
Hroudtwolf
Beiträge: 1416
Registriert: 30.10.2004 23:33
Kontaktdaten:

Beitrag von Hroudtwolf »

Code: Alles auswählen

Repeat
eventid.l=windowevent()
if eventid.l<>#WM_LBUTTONDOWN
    For lngI = 0 To 255
        Taste = GetAsyncKeyState_(lngI)
        If (Taste & $1) = $1
            Miep+1
            Debug Miep
        EndIf
    Next
   endif 
    lngI = 0
    Delay(1)
Until GetAsyncKeyState_(27)
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

scheitert daran, dass ich kein Fenster benutze +_+. Müsst ich das wieder zu einem Programm zusammen fügen...
Bild
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

:?

Code: Alles auswählen

Repeat 
  For lngI = 7 To 255 
    Taste = GetAsyncKeyState_(lngI) 
    If (Taste & $1) = $1 
      Miep+1 
      Debug Miep 
    EndIf 
  Next 
  
  lngI = 0 
  Delay(1) 
Until GetAsyncKeyState_(27)
musst nur gucken, was das VK_CANCEL (03) Control-break processing macht, weil das hab ich ja jetzt weggelassen.

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Antworten