본문 바로가기

Programming/VB

키보드,마우스 잠그기 (제어)

안녕하세요. L1NUX 입니다.

오늘은 그냥 아주 간단한 키보드,마우스 잠그기(제어)를 해볼꺼에용~!

 

준비물 : 비주얼베이직 , Form1 , Command버튼(해도되고안해도되고) 그리고 머리!

 

1. 먼저 폼을 켜주세용

 

2. 폼을 더블클릭해서 소스창에 들어온뒤 일반으로 바꿔주세요.(Private Sub Form_Load()위에다가 마우스로 클릭해도 됩니다.)

 

 

3. 그다음 위와 같이 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 를 쳐주세요

 

4.프로그램을 실행하자 마자 키보드,마우스를 잠그려면 폼에다가 BlockInput True 를 쳐주시고

버튼을 클릭시 잠그게 하고싶으신 분들은 커맨드버튼에다가 BlockInput True 쳐주세요.!

 

---------------------------------------------------------------------------------------------------------------

자 이제 모든 것은 끝났어요. 이제 저것을 exe로 만들어서 친구에게 배포하는겁니다.(크헬헬헬)

↑퍽 (저렇게 나쁜짓을 하면 앙대요!)

그럼이만~

 

 

 

 

 

 

 

 

아차!!! 중요한걸 잊고 갈뻔했네요. 키보드,마우스 제어가 풀리려면 Ctrl+Alt+Delete 키를 누르시면 될껍니다!

그럼모두 즐거운 하루 되시고 건강 하세용~!