Hold RMB

[trust]

Hello, i try to find script: when i press RMB > RMB hold down, if press RMB one more time > RMB unhold
i find some similar script (when press RMB > hold N button/ press again > N unhold) but when i run this, script use 50% cpu, looks like something wrong in code
can anyone help create new or fix old code please ?

expandcollapse popup

#include <Misc.au3>

$status = 0
Local $hDLL = DllOpen("user32.dll")

Func status ()                                                                                             
    if _IsPressed("02",$hDLL) = true then                                                                 
        $status = $status-1                                                                             
        do                                                                                                 
            _IsPressed("02",$hDLL)
        until _IsPressed("02",$hDLL) = false
        $status = $status+2                                                                
        If $status = 3 Then                                                                            
        $status = 1
        EndIf
        EndIf
        EndFunc


while 1
    status ()
if $status = 1 Then
    ;ConsoleWrite("_IsPressed - Click_1." & @CRLF) ;Для отладки
    Send("{n down}")
    Do                                                                                                    
        status ()
        until $status = 2
ElseIf $status = 2 Then
    ;ConsoleWrite("_IsPressed - Click_2." & @CRLF) ;Для отладки
    Send("{n up}")
    Do                                                                                                    
        status ()
        until $status = 1
EndIf

sleep(30)
WEnd
DllClose($hDLL)

 

[Jos]

RMB?

There is a close loop in your code without any Sleep() so high CPU is expected.

[trust]

5 minutes ago, Jos said:

RMB?

Yep, right mouse button

 

6 minutes ago, Jos said:

There is a close loop in your code without any Sleep() so high CPU is expected.

Im totally 0 in code, so i dont know where need sleep xd

[Andreik]

Using some pauses as Jos suggested would fix your CPU usage.

expandcollapse popup

#include <Misc.au3>

$status = 0
Local $hDLL = DllOpen("user32.dll")

Func status ()                                                                                             
    if _IsPressed("02",$hDLL) = true then                                                                 
        $status -= 1                                                                             
        Do                                                                                                 
            _IsPressed("02",$hDLL)
            Sleep(10)
        until Not _IsPressed("02", $hDLL)
        $status += 2                                                                
        If $status = 3 Then $status = 1
    EndIf
EndFunc


While True
    status ()
    if $status = 1 Then
        ;ConsoleWrite("_IsPressed - Click_1." & @CRLF) ;Для отладки
        Send("{n down}")
        Do                                                                                                    
            status ()
            Sleep(10)
        until $status = 2
    ElseIf $status = 2 Then
        ;ConsoleWrite("_IsPressed - Click_2." & @CRLF) ;Для отладки
        Send("{n up}")
        Do                                                                                                    
            status()
            Sleep(10)
        until $status = 1
    EndIf
    sleep(30)
WEnd

DllClose($hDLL)

 

[trust]

49 minutes ago, Andreik said:

Using some pauses as Jos suggested would fix your CPU usage.

expandcollapse popup

#include <Misc.au3>

$status = 0
Local $hDLL = DllOpen("user32.dll")

Func status ()                                                                                             
    if _IsPressed("02",$hDLL) = true then                                                                 
        $status -= 1                                                                             
        Do                                                                                                 
            _IsPressed("02",$hDLL)
            Sleep(10)
        until Not _IsPressed("02", $hDLL)
        $status += 2                                                                
        If $status = 3 Then $status = 1
    EndIf
EndFunc


While True
    status ()
    if $status = 1 Then
        ;ConsoleWrite("_IsPressed - Click_1." & @CRLF) ;Для отладки
        Send("{n down}")
        Do                                                                                                    
            status ()
            Sleep(10)
        until $status = 2
    ElseIf $status = 2 Then
        ;ConsoleWrite("_IsPressed - Click_2." & @CRLF) ;Для отладки
        Send("{n up}")
        Do                                                                                                    
            status()
            Sleep(10)
        until $status = 1
    EndIf
    sleep(30)
WEnd

DllClose($hDLL)

 

working perfect, thank you so much