Sign in to follow this  
Followers 0
Sparky90ful

_IsPressed problems

5 posts in this topic

Hy all i have a problem with this code 

While 1
    If _IsPressed("64", $hDLL) Then
        Sleep(100)
          While _IsPressed("65", $hDLL) = 0
           Sleep(3050)
            Send ("{NUMPAD6}")
            Sleep(100)
            Send ("{NUMPAD4}")
        WEnd

        EndIf

Sleep(100)

WEnd

When i press numpad 5 the script doesn't exit from loop is the same if

While 1
    If _IsPressed("64", $hDLL) Then
        Sleep(100)

        Do 
           Sleep(3050)
            Send ("{NUMPAD6}")
            Sleep(100)
            Send ("{NUMPAD4}")
        Until _IsPressed("65", $hDLL) = 1

        EndIf

Sleep(100)

WEnd

Share this post


Link to post
Share on other sites



Sparky90ful,

Because of the long Sleep times when your script is unresponsive you have to keep the keys pressed untitl they are checked - this makes it look as if you are stuck in the loop. Better to check as the script waits like this: ;)

#include <Misc.au3>

HotKeySet("{ESC}", "On_Exit")

$hDLL = DllOpen("user32.dll")

While 1
    If _IsPressed("64", $hDLL) Then

        ConsoleWrite("Starting loop" & @CRLF)

        Sleep(100)

        While 1
            $nBegin = TimerInit() ; get a timestamp
            While TimerDiff($nBegin) < 3050 ; Until the delay expires
                If _IsPressed("65", $hDLL) = 1 Then ; Check for the key
                    ExitLoop 2 ; Exit both loops
                EndIf
            WEnd
            ConsoleWrite("NP6" & @CRLF)
            ;Send ("{NUMPAD6}")
            $nBegin = TimerInit()
            While TimerDiff($nBegin) < 100
                If _IsPressed("65", $hDLL) = 1 Then
                    ExitLoop 2
                EndIf
            WEnd
            ConsoleWrite("NP4" & @CRLF)

        WEnd

        ConsoleWrite("Ending Loop" & @CRLF)
    EndIf

    Sleep(100)

WEnd

Func On_Exit()
    DllClose($hDLL)
    Exit
EndFunc   ;==>On_Exit

That works fine for me.  How about you? :)

M23

1 person likes this

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

yes it is working but i am a noob in programing it would take some time to understand but if i want to do this in a notepad?Like the script write 6 and 4 Thanks very much for help

Edited by Sparky90ful

Share this post


Link to post
Share on other sites

Sparky90ful,

I just used the ConsoleWrite lines to show what was happening. All you need do is remove them and uncomment the original Send lines - then you can paste the key strokes into "Notepad" as you wish. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Thanks , :thumbsup: :thumbsup: :thumbsup:

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