노트북이나 키보드의 Quick Key 100배(?) 활용

요즘 키보드에는 노트북처럼 퀵키가 몇개씩은 있습니다.

저는 기본으로 5개가 있죠.



이것으로는 5개의 프로그램 밖에 실행을 못하기 때문에 불편함이 있어서...

저는 더 많은 프로그램을 실행하기위해 다음과 같은 스크립트를 사용하고 있습니다.



아, 일단 사용법은 키를 한번 누를때, 두번, 세번 누를때

또 1번 키, 2번 키를 연속 누를 때...모두 다른 프로그램이 뜨도록하는겁니다.

격투기의 콤보처럼...^^



자 그럼 설명 들어 갑니다.


먼저 키누름 명령에 대해 프로그램이 뜨도록 스크립트를 만듭니다.


c:\\qk\qk.vbs 로 이름을 정합시다.

`___________________________________________
set w=WScript.CreateObject("WScript.Shell")

w.RegWrite "HKCU\\eak", ""

Select Case WScript.Arguments(0)
Case 1: w.Run "calc"
Case 11: w.Run "http://freechal.com/wscript"
Case 2: w.Run "explorer /e,c:"
Case 12: w.Run "http://winbbs.intizen.com"
Case 121: w.Run "c:\Program Files"
Case Else w.Run "notepad "& WScript.ScriptFullName
End Select
`----------

Case 뒤의 숫자가 키를 누른 횟수를 나타냅니다. 11은 1번키를 두번 누른거죠.



1번 키와 2번 키만 설명 하도록 하죠.



또 1번 키에 대한 스크립트를 다음과 같이 만듭니다.



이름은 c:\\qk\key1.vbs 로 하죠.

`________________________
mmo="HKCU\\eak"

With WScript.CreateObject("WScript.Shell")
ocl=.RegRead(mmo)&"1"
.RegWrite mmo, ocl
For I=1 To 10
WScript.Sleep 100
If .RegRead(mmo)<>ocl Then WScript.Quit
Next
.Run "c:\\qk\qk.vbs "&ocl
End With
`--------



2번 키의 스크립트는 1번과 다 같고 4째줄에 &"1" 만 &"2" 로 바꾸시면 됩니다.



이름은 c:\\qk\key2.vbs

`________________________
mmo="HKCU\\eak"

With WScript.CreateObject("WScript.Shell")
ocl=.RegRead(mmo)&"2"
.RegWrite mmo, ocl
For I=1 To 10
WScript.Sleep 100
If .RegRead(mmo)<>ocl Then WScript.Quit
Next
.Run "c:\\qk\qk.vbs "&ocl
End With
`--------



아시겠지만 1번, 2번의 10째줄 경로는 아까 qk.vbs 만든 경로입니다.

이걸로 스크립트는 다 만드신 겁니다.


퀵키가 실행시킬 수 있는 프로그램을 설정하는 방법은 모두 알고 계시겠죠?

이건 키보드 마다 틀릴거 같은데...저는 제어판에 있더군요.



거기서 1번키에 대한 프로그램을 아까 만든 key1.vbs 로 지정합니다.

당연히 2번키는 key2.vbs 죠.

이제 모두 끝입니다.



아참, 처음 키누르시기 전에 qk.vbs 를 한번 실행하십시오.(레지스트리등록)



1번키 눌러보시고, 1번키를 두번도 눌러보시고, 1번키 2번키를 연속으로도...

아까 qk.vbs 에서 Case 뒤에 적힌데로 누르시면 실행될겁니다.

더 많이 만드셔도 됩니다. Case 112211 이런식으로... 완전히 철권 콤보죠.^^