Maus gedrückt

[AndyX]

Code: Alles auswählen

If GetAsyncKeyState_(#VK_LBUTTON)
   Debug "Links"
EndIf

If GetAsyncKeyState_(#VK_RBUTTON)
   Debug "Rechts"
EndIf

EDIT: Dóh! Zu spät!
EDIT2: Dóh??? Ich meinte natürlich D´oh!

[Bytedevil]

Was soll ich dazu sagen...

[AndyX]

Am besten nix, sonst wirds noch peinlicher

[Bytedevil]

... das geht doch kaum noch!

Obwohl, doch:

Ich habe den Code

Code: Alles auswählen

If GetAsyncKeyState_(#VK_LBUTTON) 
   Debug "Links" 
EndIf 

If GetAsyncKeyState_(#VK_RBUTTON) 
   Debug "Rechts" 
EndIf

im Editor eingegeben und nix passiert!!!!
































=

[bluejoke]

Tja, niemand hat gesagt, dass es so fix und fertig ist!

Mach mal folgendes:

Code: Alles auswählen

Repeat
If GetAsyncKeyState_(#VK_LBUTTON)
  Debug "Links"
  Break
EndIf

If GetAsyncKeyState_(#VK_RBUTTON)
  Debug "Rechts"
  Break
EndIf 
Delay(10)
ForEver

Simon


P.S.: Edit mal all die Leerzeilen weg!

[Bytedevil]

Hab das jetzt alles so in Word eingegeben... da passiert immer noch nix!!!

WAS MACH ICH BLOSS FALSCH, BLUEJOKE?!






























=

[MVXA]

So mal ganz klein am Rande: das ist hier kein Kindergarten. Der Kindergarten ist hier gleich um die Ecke...

[Bytedevil]

Och, MVXA... Spielverderber...

[MVXA]

Jaa ich bin ein großer Spielverderber. Deswegen ist auch ein T-Shirt mit großer Fettschrift "Spaßbremse" in meinem Kleiderschrank.

Hier noch was zum Topic:

Code: Alles auswählen

Global RBtn, LBtn

Repeat
    If GetAsyncKeyState_(#VK_LBUTTON)
        If LBtn = 0
            Debug "Links gedrückt"
            LBtn = 1
        Else
            Debug "Links immer noch gedrückt"
        EndIf
    Else
        If LBtn = 1
            Debug "Links los gelassen"
            LBtn = 0
        EndIf
    EndIf
    
    If GetAsyncKeyState_(#VK_RBUTTON)
        If RBtn = 0
            Debug "Rechts gedrückt"
            RBtn = 1
        Else
            Debug "Rechts immer noch gedrückt"
        EndIf
    Else
        If RBtn = 1
            Debug "Rechts los gelassen"
            RBtn = 0
        EndIf
    EndIf
    Delay(10)
ForEver

[AndyX]

LOL was treibt ihr hier noch so spät