Help sending keys

[lsakizada]

I would like to press and hold the Ctrl key on the right side of the keyboard while pressing the Scroll Lock key twice in quick succession.

The following code does not work for me.

Any help to correct it?

Send("{Right CONTROL down}") ;12
Send("{SCROLL LOCK 2}") ;91

Regards.

[water]

The right control key is "{RCTRL}" and scroll lock is "{SCROLLLOCK}"

Check this page or this for more details.

Edited April 1, 2011 by water

[lsakizada]

The right control key is "{RCTRL}" and scroll lock is "{SCROLLLOCK}"

Check this page or this for more details.

Water thanks for pointing the proper keys aliases.

My code is not working can you please look at it?

I did not figure out how from the documents how to make it to works as I mentioned in my first post.

#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
#include <Array.au3>
Send("{RCTRL up}")
Global $hDll = DllOpen("user32.dll")
Global $TheKey1 = "12" ; alt
Global $TheKey2 = "42" ; b
;RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll", "REG_DWORD", "1")
;RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll")
While 1
    _PressedKeyBoard($TheKey1, $TheKey2)
    Sleep(100)
WEnd

Func _PressedKeyBoard($TheKey1, $TheKey2)

    Select
        Case StringLen($TheKey1) > 0 And StringLen($TheKey2) > 0
            If _IsPressed($TheKey1, $hDll) Then
                If _IsPressed($TheKey2, $hDll) Then
                    ;MsgBox(0,0,0)
                    Send("{RCTRL down}")
                    For $i = 1 To 2
                        Send("{SCROLLLOCK toggle}") ;91
                    Next
                    ;Send("{RCTRL up}") ;Releases the key
                    While _IsPressed($TheKey2, $hDll) And _IsPressed($TheKey1, $hDll)
                        Sleep(10)
                    WEnd
                EndIf
            EndIf
        Case Else
    EndSelect
EndFunc   ;==>_PressedKeyBoard

[BrewManNH]

Try sending just {SCROLLLOCK} instead of adding toggle in, that may be a different key code than just scrolllock, not sure. Also you can send the 2 scrollock key codes like this Send("{Scrolllock 4}")

[lsakizada]

Try sending just {SCROLLLOCK} instead of adding toggle in, that may be a different key code than just scrolllock, not sure. Also you can send the 2 scrollock key codes like this Send("{Scrolllock 4}")

Its still not working for me:

#include <GUIConstants.au3>
#include <Misc.au3>
#include <File.au3>
#include <Array.au3>
Send("{RCTRL up}")
Global $hDll = DllOpen("user32.dll")
Global $TheKey1 = "12" ; alt
Global $TheKey2 = "42" ; b
;RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll", "REG_DWORD", "1")
;RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters", "CrashOnCtrlScroll")
While 1
    _PressedKeyBoard($TheKey1, $TheKey2)
    Sleep(100)
WEnd

Func _PressedKeyBoard($TheKey1, $TheKey2)

    Select
        Case StringLen($TheKey1) > 0 And StringLen($TheKey2) > 0
            If _IsPressed($TheKey1, $hDll) Then
                If _IsPressed($TheKey2, $hDll) Then
                    ;MsgBox(0,0,0)
                    Send("{RCTRL down}")
                    ;For $i = 1 To 2
                    Send("{SCROLLLOCK 2}") ;91
                    ;Next
                    ;Send("{RCTRL up}") ;Releases the key
                    While _IsPressed($TheKey2, $hDll) And _IsPressed($TheKey1, $hDll)
                        Sleep(10)
                    WEnd
                EndIf
            EndIf
        Case Else
    EndSelect
EndFunc   ;==>_PressedKeyBoard

[water]

Why do you press the SCROLLLOCK key two times? Do you want to set it on or off? "{SCROLLLOCK xy}" allows xy to be on, off or toggle.

Edited April 1, 2011 by water

[lsakizada]

Why do you press the two times? Do you want to set it on or off? "{SCROLLLOCK xy}" allows xy to be on, off or toggle.

I am trying to create some kind of utility to create a crash of the system for QA testing purpose.

Read Here.

Finally, the crash will happen on certain event that my application will generate.

[dufran3]

lol, sounds like someone trying to plan an April Fool's joke to me...

[bogQ]

02,04,2011 heare, he is late

[lsakizada]

lol, sounds like someone trying to plan an April Fool's joke to me...

Very funny but its not adding value to the thread.

Don't you hear ever about "crash testing"?

[water]

I see.

If you uncomment the msgbox statements (or replace them with ConsoleWrite so the script is not halted) does the script run so far where the send commands are executed?

The pcsupport site talks about:

To create the BSOD, press and hold the Ctrl key on the right side of the keyboard while you press the Scroll Lock key twice in quick succession.

But maybe AutoIt is sending the two Scrolllock keys too fast. Try to put a sleep(x) between the two send statements.

This example encreases the wait time by 10 ms each time.

Send("{RCTRL down}")
For $i = 1 To 100
    Send("{SCROLLLOCK}") ;91
    Sleep($i*10)
    Send("{SCROLLLOCK}") ;91
Next

Another question: If you set the regkeys do you get the BSOD if you press the keys yourself?