Hallo!
hat von Euch jemand eine Idee, wie man Mausklicks mit PB zählen kann? Dabei soll die Standardfunktion allerdings nicht beeinträchtigt werden, es soll nur jeder Klick, evtl. sogar in Links- und Rechtsklick aufgeteilt, mitgezählt werden.
Grüsse
Michael
Mausklicks zählen?
- vonTurnundTaxis
- Beiträge: 2130
- Registriert: 06.10.2004 20:38
- Wohnort: Bayreuth
- Kontaktdaten:
Müsste so funktionieren:
Code: Alles auswählen
Repeat
ExamineMouse()
If MouseButton(1) And losgelassen = 1
gedruekt+1
losgelassen = 0
EndIf
If MouseButton(1) = 0
losgelassen = 1
EndIf
Until MouseButton(2)Das geht leider nur in Verbindung mit OpenScreen()
EDIT: Hab jetzt "plötzlich" was im CodeArchiv gefunden:
EDIT: Hab jetzt "plötzlich" was im CodeArchiv gefunden:
Code: Alles auswählen
Repeat
If GetAsyncKeyState_(#VK_LBUTTON)
Beep_(1400,200)
While GetAsyncKeyState_(#VK_LBUTTON) :Wend
EndIf
If GetAsyncKeyState_(#VK_RBUTTON)
Beep_(1400,200)
While GetAsyncKeyState_(#VK_RBUTTON) :Wend
EndIf
If GetAsyncKeyState_(#VK_MBUTTON)
Beep_(1400,200)
While GetAsyncKeyState_(#VK_MBUTTON) :Wend
EndIf
If GetAsyncKeyState_(#VK_ESCAPE)
End
EndIf
Delay(1)
ForEver
is doch doof, dann wird ja das ganze programm angehalten...
wie wäre es mit sowas?
ist natürlich noch verbesserungswürdig, aber immerhin ein kleiner denkanstoss.
c ya,
nco2k
wie wäre es mit sowas?
Code: Alles auswählen
Repeat
If LeftMouse And GetAsyncKeyState_(#VK_LBUTTON) = #False
LeftMouse = #False
LeftMouseClicks + 1
ElseIf GetAsyncKeyState_(#VK_LBUTTON)
LeftMouse = #True
EndIf
Until GetAsyncKeyState_(#VK_ESCAPE) : Endc ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.