Key press to act as toggle for 2 or more functions

[Cybazaar]

Hello everyone,

I am using AutoIt for a short time now (just as a hobby), mostly trying to automate my workplace because our IT are too lazy to fulfill our needs for anything. Anyways, i've created a script that fits my needs and works just i have planned it.

As you will see, i use 2 different keys to perform 2 actions and now my question is, is there any way, and how, to use instead the same key so that it performs the first action on its first time being pressed, and then perform the second action the second time it is being pressed (and maybe loop back to the first state but this is not mandatory at all, just got it on my mind now).

Here it is what my script looks like:

While 1
      If WinActive ("[CLASS:AcrobatSDIWindow]") Then
         If _IsPressed("6A") Then
            Send ("^c")
            WinActivate ("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove (270, 610, 0)
            MouseClick ($MOUSE_CLICK_LEFT)
            Send ("^v")
            WinActivate ("[CLASS:AcrobatSDIWindow]", "")
         ElseIf _IsPressed("6D") Then
            Send ("^c")
            WinActivate ("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove (500, 610, 0)
            MouseClick ($MOUSE_CLICK_LEFT)
            Send ("^v")
         EndIf
      EndIf
   WEnd

I would like to merge 6A and 6D into just 6A.

Thanks in advance for your help!

[RTFC]

Local $firstPress=True
While 1
      If WinActive ("[CLASS:AcrobatSDIWindow]") Then
         If _IsPressed("6A") Then
            Send ("^c")
            WinActivate ("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            
            If $firstPress=True Then
                MouseMove (270, 610, 0)
                MouseClick ($MOUSE_CLICK_LEFT)
                Send ("^v")
                WinActivate ("[CLASS:AcrobatSDIWindow]", "")
            Else
                MouseMove (500, 610, 0)
                MouseClick ($MOUSE_CLICK_LEFT)
                Send ("^v")
            EndIf   
            $firstPress=Not $firstPress
      EndIf
    EndIf
WEnd

Edit: one missing Endif added.

Edited May 18, 2018 by RTFC

[BrewManNH]

You could try something like this:

$Toggle = False
While 1
    If WinActive("[CLASS:AcrobatSDIWindow]") Then
        If _IsPressed("6A") And $Toggle = False Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(270, 610, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("^v")
            WinActivate("[CLASS:AcrobatSDIWindow]", "")
            $Toggle = True
            elseifIf _IsPressed("6A") And $Toggle = True Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(500, 610, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("^v")
            $Toggle = False
        EndIf
    EndIf
WEnd

 

[Cybazaar]

24 minutes ago, RTFC said:

Local $firstPress=True
While 1
      If WinActive ("[CLASS:AcrobatSDIWindow]") Then
         If _IsPressed("6A") Then
            Send ("^c")
            WinActivate ("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            
            If $firstPress=True Then
                MouseMove (270, 610, 0)
                MouseClick ($MOUSE_CLICK_LEFT)
                Send ("^v")
                WinActivate ("[CLASS:AcrobatSDIWindow]", "")
            Else
                MouseMove (500, 610, 0)
                MouseClick ($MOUSE_CLICK_LEFT)
                Send ("^v")
            EndIf   
            $firstPress=Not $firstPress
      EndIf
WEnd

 

I don't know why, but it didn't work, it had something to do with Wend

But anyways

8 minutes ago, BrewManNH said:

You could try something like this:

$Toggle = False
While 1
    If WinActive("[CLASS:AcrobatSDIWindow]") Then
        If _IsPressed("6A") And $Toggle = False Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(270, 610, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("^v")
            WinActivate("[CLASS:AcrobatSDIWindow]", "")
            $Toggle = True
            elseifIf _IsPressed("6A") And $Toggle = True Then
            Send("^c")
            WinActivate("[CLASS:OMain]", "")
            WinMove("[CLASS:OMain]", "", 0, 300, 1280, 702)
            MouseMove(500, 610, 0)
            MouseClick($MOUSE_CLICK_LEFT)
            Send("^v")
            $Toggle = False
        EndIf
    EndIf
WEnd

 

This works perfectly, just that you made a typo on line 24 writing elseifIF.

Thanks a lot folks, im happy to learn