Sign in to follow this  
Followers 0
Prompt

CountinueLoop

4 posts in this topic

Hello

I need your help people.

I have recorded the script with a help of ScriptWriter.

I need that script makes CountinueLoop till I stop it manually.

I have added the attachment

I will appreciate

Thanks in advance.

New1.au3

Share this post


Link to post
Share on other sites



Try this.

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

While 1
    $paused
    WinWait("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    If Not WinActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá") Then WinActivate("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    WinWaitActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    MouseMove(721, 585)
    MouseDown("left")
    MouseUp("left")
    WinWait("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    If Not WinActive("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá") Then WinActivate("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    WinWaitActive("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    MouseMove(414, 98)
    MouseDown("left")
    MouseUp("left")
    WinWait("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    If Not WinActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá") Then WinActivate("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    WinWaitActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    MouseMove(287, 277)
    MouseDown("left")
    MouseUp("left")
    MouseMove(727, 592)
    MouseDown("left")
    MouseUp("left")
    WinWait("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    If Not WinActive("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá") Then WinActivate("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    WinWaitActive("Send virtual smile - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    MouseMove(414, 99)
    MouseDown("left")
    MouseUp("left")
    WinWait("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    If Not WinActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá") Then WinActivate("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    WinWaitActive("Windows Live Hotmail - Windows Internet Explorer", "Êîìàíäíàÿ ñòðîêà èçá")
    MouseMove(283, 273)
    MouseDown("left")
    MouseUp("left")
WEnd

Func TogglePause()
    $paused = Not $paused
    While $paused
        Sleep(100)
    WEnd
EndFunc  ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc  ;==>Terminate

Share this post


Link to post
Share on other sites

Look at HotkeySet(), Do ... Until and/or While ... WEnd in the helpfile. Also welcome to the forums. The helpfile is a great place for information as there are 2k+ examples/functions.

Share this post


Link to post
Share on other sites

It works! I just had to correct the coordinates of MouseMove.

Thanks a lot!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0