Sign in to follow this  
Followers 0

XampPause used with "HotKeySet"

2 posts in this topic

Posted (edited)

Hi,

Included is three XamplePause codes that you can use, modify, and change as needed. When putting thes scripts together I used AutoIT3 Forum and Help File.

Code 1: Pause your script with a "HotSetKey" using the keyboard "Pause/Break" key then after un-pauseing the script it re-starts at the same location specificed by you.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Local $msg, $lbCount, $Count, $Exit

Global $Paused
HotKeySet("{PAUSE}", "PaRsSameLocation")
HotKeySet("{ESC}", "_Exit")

GUICreate("XampPause Restart SaLoc", 275, 100); will create a dialog box that when displayed is centered
    
    GUICtrlCreateLabel('Keboard Keys: "Esc" = Exit Script' & @LF & @LF & ' and "Pause/Break" = Pause Script', 30, 5, 175, 50, $SS_CENTER)
    $lbCount = GUICtrlCreateLabel("1", 10, 75, 25, 25)
    $Count = GUICtrlCreateButton("Count", 45, 75, 50, 20)   
    $Exit = GUICtrlCreateButton("Exit", 100, 75, 50, 20)
    
GUISetState();Displays an empty dialog box
    
;Run the GUI until the dialog is closed
    Do
        $msg = GUIGetMsg()
        Select
            Case $msg = $Count
                MsgBox(0, "You clicked on", "Yes")
                For $i = 1 to 50                    
                    Sleep(500)
                    GUICtrlSetData($lbCount, $i)
                Next
                For $i = 50 to 1 Step -1                    
                    Sleep(500)
                    GUICtrlSetData($lbCount, $i)
                Next
                MsgBox(0,"", "Count Complete...")           
            Case $msg = $Exit
                MsgBox(0, "You clicked", "Exit")
                _Exit()             
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "You clicked", "Close")
                _Exit()             
        EndSelect           
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $Exit

Func PaRsSameLocation()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',395,325)
    WEnd
    ToolTip("") 
EndFunc

Func _Exit()
    Exit 0
EndFunc

Code 2: Pause your script with a "HotSetKey" using the keyboard "Pause/Break" key then after un-pauseing the script it re-starts at a different location specificed by you.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)
Global $Paused, $lbCount
Main()

Func Main()
Global $msg, $Count, $Exit


HotKeySet("{PAUSE}", "PaRsDifferentLocation")
HotKeySet("{ESC}", "_Exit")

GUICreate("Xamp DiffLoc", 250, 100);Creates a centered dialog box

    GUICtrlCreateLabel('Keboard Keys: "Esc" = Exit Script' & @LF & @LF & ' and "Pause/Break" = Pause Script', 30, 5, 175, 50, $SS_CENTER)
    $lbCount = GUICtrlCreateLabel("1", 10, 75, 25, 25)
    $Count = GUICtrlCreateButton("Count", 45, 75, 50, 20)   
    $Exit = GUICtrlCreateButton("Exit", 100, 75, 50, 20)
    
GUISetState();Displays an empty dialog box
    
;Run the GUI until the dialog is closed
    Do
        $msg = GUIGetMsg()
        Select
            Case $msg = $Count
                PaRsDifferentLocation()         
            Case $msg = $Exit
                MsgBox(0, "You clicked on", "Exit")
                _Exit()
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "You clicked on", "Close")
                _Exit()
        EndSelect           
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $Exit
EndFunc

Func PaRsDifferentLocation()
    $Paused = NOT $Paused
        While 1
            Switch $Paused
                Case 0
                    sleep(100)
                    ToolTip('Script is "Paused"',395,325)
                Case 1
                    ToolTip("")
                    MsgBox(0, "You clicked on", "Yes")
                        For $i = 1 to 50
;MsgBox(0, "Count down!", $i)
                            Sleep(500)
                            GUICtrlSetData($lbCount, $i)
                        Next
                        For $i = 50 to 1 Step -1
;MsgBox(0, "Count down!", $i)
                            Sleep(500)
                            GUICtrlSetData($lbCount, $i)
                        Next
                        MsgBox(0,"", "count Complete...")
                EndSwitch
        WEnd
EndFunc

Func _Exit()
    Exit 0
EndFunc

Code 3: Pause your script with a "HotSetKey" then after un-pauseing a button will need to be clicked to restart script.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)
Global $Paused, $lbCount
Global $msg, $lbCount, $Count, $Exit

HotKeySet("{PAUSE}", "PaRsButtonclick")
HotKeySet("{ESC}", "_Exit")

GUICreate("XampPause Button Click", 250, 100);creates a centered dialog box
    
    GUICtrlCreateLabel('Keboard Keys: "Esc" = Exit Script' & @LF & @LF & ' and "Pause/Break" = Pause Script', 30, 5, 175, 50, $SS_CENTER)
    $lbCount = GUICtrlCreateLabel("1", 10, 75, 25, 25)
    $Count = GUICtrlCreateButton("Count", 45, 75, 50, 20)   
    $Exit = GUICtrlCreateButton("Exit", 100, 75, 50, 20)
    
GUISetState();displays an empty dialog box

Main()

Func Main()
;Run the GUI until the dialog is closed
    Do
        $msg = GUIGetMsg()
        Select
            Case $msg = $Count
                MsgBox(0, "You clicked ", "Count")
                For $i = 1 to 50;Count up                   
                    Sleep(500)
                    GUICtrlSetData($lbCount, $i)
                Next
                For $i = 50 to 1 Step -1;Count down                 
                    Sleep(500)
                    GUICtrlSetData($lbCount, $i)
                Next
                MsgBox(0,"", "Count Complete...")           
            Case $msg = $Exit
                MsgBox(0, "You clicked ", "Exit")
                _Exit()
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "You clicked ", "Close")
                _Exit()
        EndSelect           
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $Exit
EndFunc

Func PaRsButtonclick()
    $Paused = NOT $Paused
    While $Paused
    sleep(100)
    ToolTip('Script is "Paused"',395,325)
    WEnd
    
    ToolTip("")
    GUICtrlSetData($lbCount, "1")
    Main()
EndFunc

Func _Exit()
    Exit 0
EndFunc

Learning to write scripts,

jfcby

Edited by jfcby

Share this post


Link to post
Share on other sites



Posted

Nice! Keep up the work!

Cheers,

Brett

:P

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

  • Recently Browsing   0 members

    No registered users viewing this page.