Sign in to follow this  
Followers 0
ihenvyr

Merging Or Joing 3 Scripts

2 posts in this topic

HELLO everyone!! :think:

i have 3 scripts..

Keyboard script - hotkey which disable some keyboard keys

mouse script - which has a mouse trap script

Timer script - hotkey which has a start and countdown timer..

when timer gets zero, some keyboard keys will be disabled and mouse will be mousetrapped

when you add time, keyboard keys will be enabled and mouse will be free to move again..

is it possible to merge all the 3 script?

i have no experience about merging or joining script..

any ideas or advice.. for me to work with? :(

here is my script:

Timer script:

HotKeySet("{HOME}", "add4Min")

Dim $min = 0, $sec = 60, $start = False, $first_S = False, $finish_S = False

Func add4Min()
    If $first_S = False Then
        $min += 4
        $first_S = True
        $start = True
    ; script to enable mouse and keyboard
    Else
        $min += 4
        $start = True
    EndIf
    $finish_S = False
EndFunc

While 1
    If $finish_S = False Then
        If $start = True Then
            $sec -= 1
            If $sec = 0 Then
                $sec = 59
                If $min = 0 Then
                    $finish_S = True
                ;script to disable mouse and keyboard
                EndIf
                $min -= 1
            EndIf
            ToolTip('' & StringFormat('%i:%i', $min, $sec), 0, 0)
        Else
            ToolTip('' & StringFormat('%i:%i', 0, 0), 0, 0)
        EndIf
    Else
        ToolTip('' & StringFormat('%i:%i TIMED OUT', 0, 0), 0, 0)
        $first_S = False
    EndIf
    Sleep(1000)
WEnd

keyboard script:

;Other
HotKeySet("a", "OtherA")
HotKeySet("{UP}", "OtherUP")
HotKeySet("{ENTER}", "OtherENTER")

While 1
    Sleep(10)
WEnd

;Other
Func OtherA()
    Send("")
EndFunc

Func OtherUP()
    Send("")
EndFunc

Func OtherENTER()
    Send("")
EndFunc

mouse script:

#include <Misc.au3>
HotKeySet("{PGUP}", "TerminateMouseTrap")

While 1
    _MouseTrap(100, 100, 100, 100)
    Sleep(100)
WEnd

Func TerminateMouseTrap()
    _MouseTrap()
    Exit
EndFunc

Umbrella Member

Share this post


Link to post
Share on other sites



Hi,

why douple post?

Nevermind, I posted the answer on the other one.

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

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